diff options
| author | Michael Albinus | 2009-08-25 09:02:59 +0000 |
|---|---|---|
| committer | Michael Albinus | 2009-08-25 09:02:59 +0000 |
| commit | ba2318b74b0e9dfa943d3d8d0778b39cecee3541 (patch) | |
| tree | c6e9ac369ae274eaa4a920b86d457c222a9315e4 | |
| parent | 20c76c553cafa2ea32d456acc034021c00ff285d (diff) | |
| download | emacs-ba2318b74b0e9dfa943d3d8d0778b39cecee3541.tar.gz emacs-ba2318b74b0e9dfa943d3d8d0778b39cecee3541.zip | |
* vc-hooks.el (vc-user-login-name):
Let-bind `process-file-side-effects' with nil.
| -rw-r--r-- | lisp/vc-hooks.el | 3 |
1 files changed, 2 insertions, 1 deletions
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: | |||
| 436 | "Return the name under which the user accesses the given FILE." | 436 | "Return the name under which the user accesses the given FILE." |
| 437 | (or (and (eq (string-match tramp-file-name-regexp file) 0) | 437 | (or (and (eq (string-match tramp-file-name-regexp file) 0) |
| 438 | ;; tramp case: execute "whoami" via tramp | 438 | ;; tramp case: execute "whoami" via tramp |
| 439 | (let ((default-directory (file-name-directory file))) | 439 | (let ((default-directory (file-name-directory file)) |
| 440 | process-file-side-effects) | ||
| 440 | (with-temp-buffer | 441 | (with-temp-buffer |
| 441 | (if (not (zerop (process-file "whoami" nil t))) | 442 | (if (not (zerop (process-file "whoami" nil t))) |
| 442 | ;; fall through if "whoami" didn't work | 443 | ;; fall through if "whoami" didn't work |