Mercurial > emacs
changeset 15036:e782b987fbdb
(vc-comment-ring): Initialise using make-ring.
(vc-clear-context): Initialise vc-comment-ring using make-ring.
(vc-finish-logentry): Don't initialise vc-comment-ring here.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 16 Apr 1996 22:33:07 +0000 |
| parents | a538ad05bce1 |
| children | 07171585640f |
| files | lisp/vc.el |
| diffstat | 1 files changed, 2 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/vc.el Tue Apr 16 21:54:34 1996 +0000 +++ b/lisp/vc.el Tue Apr 16 22:33:07 1996 +0000 @@ -190,7 +190,7 @@ (defvar vc-dired-mode nil) (make-variable-buffer-local 'vc-dired-mode) -(defvar vc-comment-ring nil) +(defvar vc-comment-ring (make-ring vc-maximum-comment-ring-size)) (defvar vc-comment-ring-index nil) (defvar vc-last-comment-match nil) @@ -297,7 +297,7 @@ (fillarray vc-file-prop-obarray nil) ;; Note: there is potential for minor lossage here if there is an open ;; log buffer with a nonzero local value of vc-comment-ring-index. - (setq vc-comment-ring nil)) + (setq vc-comment-ring (make-ring vc-maximum-comment-ring-size))) (defun vc-file-clear-masterprops (file) ;; clear all properties of FILE that were retrieved @@ -1006,8 +1006,6 @@ ;; Comment too long? (vc-backend-logentry-check vc-log-file) ;; Record the comment in the comment ring - (if (null vc-comment-ring) - (setq vc-comment-ring (make-ring vc-maximum-comment-ring-size))) (ring-insert vc-comment-ring (buffer-string)) )) ;; Sync parent buffer in case the user modified it while editing the comment.