(log-edit-done): Thinko in the "same comment" detection.
This commit is contained in:
parent
2082fe81fc
commit
f905e56a73
1 changed files with 4 additions and 2 deletions
|
@ -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)))
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue