Mercurial > emacs

changeset 104599:9c2da353b60f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* 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 1c78b6ed2b93
children 2209bd027daa
files lisp/vc-hooks.el
diffstat 1 files changed, 2 insertions(+), 1 deletions(-) [+]
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