From f905e56a7390c165cf7b7bade9188fd60d41043e Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Fri, 2 Jun 2000 23:03:31 +0000 Subject: [PATCH] (log-edit-done): Thinko in the "same comment" detection. --- lisp/log-edit.el | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/lisp/log-edit.el b/lisp/log-edit.el index 8f9d28326e0..0f8dd68d214 100644 --- a/lisp/log-edit.el +++ b/lisp/log-edit.el @@ -5,7 +5,7 @@ ;; Author: Stefan Monnier ;; Keywords: pcl-cvs cvs commit log ;; Version: $Name: $ -;; Revision: $Id: log-edit.el,v 1.5 2000/05/21 02:13:26 monnier Exp $ +;; Revision: $Id: log-edit.el,v 1.6 2000/06/02 02:28:39 monnier Exp $ ;; This file is part of GNU Emacs. @@ -205,7 +205,9 @@ If you want to abort the commit, simply delete the buffer." (goto-char (point-max)) (insert ?\n))) (let ((comment (buffer-string))) - (when (and (boundp 'vc-comment-ring) (ring-p vc-comment-ring) + (when (and (boundp 'vc-comment-ring) + (ring-p vc-comment-ring) + (not (ring-empty-p vc-comment-ring)) (not (equal comment (ring-ref vc-comment-ring 0)))) (ring-insert vc-comment-ring comment))) (let ((win (get-buffer-window log-edit-files-buf))) -- 2.39.2