From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Fri, 2 Jun 2000 23:03:31 +0000 (+0000)
Subject: (log-edit-done): Thinko in the "same comment" detection.
X-Git-Tag: emacs-pretest-21.0.90~3539
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f905e56a7390c165cf7b7bade9188fd60d41043e;p=emacs.git

(log-edit-done): Thinko in the "same comment" detection.
---

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 <monnier@cs.yale.edu>
 ;; 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)))