mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-15 17:00:26 +00:00
Code Issues Releases Activity

(vc-next-action): Even in 1-file case, get its name from FILES.

Browse Source 
(vc-finish-logentry): Don't do vc-buffer-sync on the parent buffer
when that parent buffer is a dired buffer.
This commit is contained in:
Richard M. Stallman 1994-07-26 20:34:16 +00:00
parent f9ae53246c
commit cdaf7a1a56
1 changed files with 6 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
lisp/vc.el
View File

@ -470,7 +470,7 @@ lock steals will raise an error.
(if vc-dired-mode
(let ((files (dired-get-marked-files)))
(if (= (length files) 1)
(find-file-other-window (dired-get-filename))
(find-file-other-window (car files))
(vc-start-entry nil nil nil
"Enter a change comment for the marked files."
'vc-next-action-dired)
@ -528,7 +528,7 @@ lock steals will raise an error.
;; Accept a comment for an operation on FILE revision REV. If COMMENT
;; is nil, pop up a VC-log buffer, emit MSG, and set the
;; action on close to ACTION; otherwise, do action immediately.
;; Remember the file's buffer in parent-buffer (current one if no file).
;; Remember the file's buffer in vc-parent-buffer (current one if no file).
;; AFTER-HOOK specifies the local value for vc-log-operation-hook.
(let ((parent (if file (find-file-noselect file) (current-buffer))))
(if comment
@ -676,12 +676,11 @@ If nil, uses `change-log-default-name'."
(ring-insert vc-comment-ring (buffer-string))
))
;; Sync parent buffer in case the user modified it while editing the comment.
;; But not if it is a vc-dired buffer.
(save-excursion
(let ((buffer (get-file-buffer vc-log-file)))
(if buffer
(progn
(set-buffer buffer)
(vc-buffer-sync)))))
(set-buffer vc-parent-buffer)
(or vc-dired-mode
(vc-buffer-sync)))
;; OK, do it to it
(if vc-log-operation
(save-excursion