From: Michael Albinus <michael.albinus@gmx.de>
Date: Tue, 25 Aug 2009 09:02:59 +0000 (+0000)
Subject: * vc-hooks.el (vc-user-login-name):
X-Git-Tag: emacs-pretest-23.1.90~1690
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ba2318b74b0e9dfa943d3d8d0778b39cecee3541;p=emacs.git

* vc-hooks.el (vc-user-login-name):
Let-bind `process-file-side-effects' with nil.
---

diff --git a/lisp/vc-hooks.el b/lisp/vc-hooks.el
index d35471a4738..f84cf576343 100644
--- a/lisp/vc-hooks.el
+++ b/lisp/vc-hooks.el
@@ -436,7 +436,8 @@ For registered files, the possible values are:
   "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