diff options
| author | Richard M. Stallman <rms@gnu.org> | 1996-04-16 22:33:07 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1996-04-16 22:33:07 +0000 |
| commit | a810fe63dbd764394254b6acd3ed8c7a1c449d60 (patch) | |
| tree | bac070ff63c18e91a264b9be8377852faadebc96 /lisp/vc.el | |
| parent | 924c0c93009cb2a99faa39878f435cae7136c7ee (diff) | |
| download | emacs-a810fe63dbd764394254b6acd3ed8c7a1c449d60.tar.gz | |
(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.
Diffstat (limited to 'lisp/vc.el')
| -rw-r--r-- | lisp/vc.el | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/lisp/vc.el b/lisp/vc.el index 4578d8211e3..1f649bf6abf 100644 --- a/lisp/vc.el +++ b/lisp/vc.el @@ -190,7 +190,7 @@ If nil, VC itself computes this value when it is first needed.") (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 @@ If nil, VC itself computes this value when it is first needed.") (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 @@ If nil, uses `change-log-default-name'." ;; 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. |