# HG changeset patch
# User Michael Albinus <michael.albinus@gmx.de>
# Date 1251190979 0
# Node ID 9c2da353b60f4f70a617b417f9e1c67aa60998f3
# Parent  1c78b6ed2b93cf990db5d2259a55b4e6c52cd320
* vc-hooks.el (vc-user-login-name):
Let-bind `process-file-side-effects' with nil.

diff -r 1c78b6ed2b93 -r 9c2da353b60f lisp/vc-hooks.el
--- 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