diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2000-06-02 23:03:31 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2000-06-02 23:03:31 +0000 |
| commit | f905e56a7390c165cf7b7bade9188fd60d41043e (patch) | |
| tree | 7b6ab00f942c66f87ac16f4aebf11007c89b963c /lisp/log-edit.el | |
| parent | 2082fe81fc7bc48c1f2e7c756084820be74f49e6 (diff) | |
| download | emacs-f905e56a7390c165cf7b7bade9188fd60d41043e.tar.gz | |
(log-edit-done): Thinko in the "same comment" detection.
Diffstat (limited to 'lisp/log-edit.el')
| -rw-r--r-- | lisp/log-edit.el | 6 |
1 files 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 <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))) |