Mercurial > emacs

changeset 87870:f58f0ea7f580

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(vc-process-sentinel): Fix bug introduced in last change: Set mode-line-process with P's buffer made temporarily current.
author Thien-Thi Nguyen <ttn@gnuvola.org>
date Sun, 20 Jan 2008 20:29:47 +0000
parents 8986f1007b89
children 697c4a20f2b1
files lisp/vc.el
diffstat 1 files changed, 3 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/vc.el	Sun Jan 20 20:25:46 2008 +0000
+++ b/lisp/vc.el	Sun Jan 20 20:29:47 2008 +0000
@@ -958,13 +958,14 @@
 (defvar vc-sentinel-movepoint)          ;Dynamically scoped.
 
 (defun vc-process-sentinel (p s)
-  (let ((previous (process-get p 'vc-previous-sentinel)))
+  (with-current-buffer (process-buffer p)
     (setq mode-line-process
           (let ((status (process-status p)))
             ;; Leave mode-line uncluttered, normally.
             ;; (Let known any weirdness in-form-ally. ;-)  --ttn
             (unless (eq 'exit status)
-              (format " (%s)" status))))
+              (format " (%s)" status)))))
+  (let ((previous (process-get p 'vc-previous-sentinel)))
     (if previous (funcall previous p s))
     (with-current-buffer (process-buffer p)
       (let (vc-sentinel-movepoint)