Mercurial > emacs
diff lisp/vc-hooks.el @ 104599:9c2da353b60f
* vc-hooks.el (vc-user-login-name):
Let-bind `process-file-side-effects' with nil.
author | Michael Albinus <michael.albinus@gmx.de> |
---|---|
date | Tue, 25 Aug 2009 09:02:59 +0000 |
parents | 0c5de07aff62 |
children | c220a29e75fd |
line wrap: on
line diff
--- a/lisp/vc-hooks.el Tue Aug 25 09:01:38 2009 +0000 +++ b/lisp/vc-hooks.el Tue Aug 25 09:02:59 2009 +0000 @@ -436,7 +436,8 @@ "Return the name under which the user accesses the given FILE." (or (and (eq (string-match tramp-file-name-regexp file) 0) ;; tramp case: execute "whoami" via tramp - (let ((default-directory (file-name-directory file))) + (let ((default-directory (file-name-directory file)) + process-file-side-effects) (with-temp-buffer (if (not (zerop (process-file "whoami" nil t))) ;; fall through if "whoami" didn't work