mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-16 02:50:26 -08:00
Code Issues Projects Releases Wiki Activity

(log-edit-mode): Make vc-comment-ring-index local.

Browse source 
(log-edit-done): Only add the comment to the ring if it's different
from the last comment entered.
This commit is contained in:
Stefan Monnier 2000-06-02 02:28:39 +00:00
parent c5def0db86
commit 1be7700237
1 changed files with 7 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

12
lisp/log-edit.el
View file

@ -5,7 +5,7 @@
;; Author: Stefan Monnier <monnier@cs.yale.edu> ;; Author: Stefan Monnier <monnier@cs.yale.edu>
;; Keywords: pcl-cvs cvs commit log ;; Keywords: pcl-cvs cvs commit log
;; Version: $Name: $ ;; Version: $Name: $
;; Revision: $Id: log-edit.el,v 1.4 2000/05/10 22:20:51 monnier Exp $ ;; Revision: $Id: log-edit.el,v 1.5 2000/05/21 02:13:26 monnier Exp $
;; This file is part of GNU Emacs. ;; This file is part of GNU Emacs.
@ -28,10 +28,8 @@
;; Todo: ;; Todo:
;; - Remove a single leading `* <file>' in log-edit-insert-changelog
;; - Move in VC's code ;; - Move in VC's code
;; - Add compatibility for VC's hook variables ;; - Add compatibility for VC's hook variables
;; - add compatibility with cvs-edit.el
;;; Code: ;;; Code:
@ -177,7 +175,8 @@ Several other handy support commands are provided of course and
the package from which this is used might also provide additional the package from which this is used might also provide additional
commands (under C-x v for VC, for example). commands (under C-x v for VC, for example).
\\{log-edit-mode-map}") \\{log-edit-mode-map}"
(make-local-variable 'vc-comment-ring-index))
(defun log-edit-hide-buf (&optional buf where) (defun log-edit-hide-buf (&optional buf where)
(when (setq buf (get-buffer (or buf log-edit-files-buf))) (when (setq buf (get-buffer (or buf log-edit-files-buf)))
@ -205,7 +204,10 @@ If you want to abort the commit, simply delete the buffer."
(save-excursion (save-excursion
(goto-char (point-max)) (goto-char (point-max))
(insert ?\n))) (insert ?\n)))
(if (boundp 'vc-comment-ring) (ring-insert vc-comment-ring (buffer-string))) (let ((comment (buffer-string)))
(when (and (boundp 'vc-comment-ring) (ring-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))) (let ((win (get-buffer-window log-edit-files-buf)))
(if (and log-edit-confirm (if (and log-edit-confirm
(not (and (eq log-edit-confirm 'changed) (not (and (eq log-edit-confirm 'changed)