From ba2318b74b0e9dfa943d3d8d0778b39cecee3541 Mon Sep 17 00:00:00 2001 From: Michael Albinus Date: Tue, 25 Aug 2009 09:02:59 +0000 Subject: [PATCH] * vc-hooks.el (vc-user-login-name): Let-bind `process-file-side-effects' with nil. --- lisp/vc-hooks.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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 -- 2.39.2