From 3e3da61f356e315476fdb788cc8561034772fc2f Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 24 Sep 1994 01:08:40 +0000 Subject: [PATCH] (vc-finish-steal): Do vc-resynch-window in the right buffer. (vc-steal-lock): Delete spurious reference to `configuration'. --- lisp/vc.el | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/lisp/vc.el b/lisp/vc.el index 77101d1615d..7d6f0212fa1 100644 --- a/lisp/vc.el +++ b/lisp/vc.el @@ -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. -- 2.39.5