mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-03 11:33:37 +00:00
Code Issues Releases Activity

(vc-finish-steal): Do vc-resynch-window in the right buffer.

Browse Source 
(vc-steal-lock): Delete spurious reference to `configuration'.
This commit is contained in:
Richard M. Stallman 1994-09-24 01:08:40 +00:00
parent 29fc1ce993
commit 3e3da61f35
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/vc.el
View File

@ -599,7 +599,7 @@ level to check it in under. COMMENT, if specified, is the checkin comment."
(mail-mode)
(erase-buffer)
(mail-setup owner (format "Stolen lock on %s" file-description) nil nil nil
(list (list 'vc-finish-steal file rev configuration)))
(list (list 'vc-finish-steal file rev)))
(goto-char (point-max))
(insert
(format "I stole the lock on %s, " file-description)
@ -610,7 +610,10 @@ level to check it in under. COMMENT, if specified, is the checkin comment."
;; This is called when the notification has been sent.
(defun vc-finish-steal (file version)
(vc-backend-steal file version)
(vc-resynch-window file t t))
(if (get-file-buffer file)
(save-excursion
(set-buffer (get-buffer-file file))
(vc-resynch-window file t t))))
(defun vc-checkin (file &optional rev comment)
"Check in the file specified by FILE.