mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-02-06 20:49:33 +00:00
Code Issues Releases Activity

* vc-hooks.el (vc-user-login-name):

Browse Source 
Let-bind `process-file-side-effects' with nil.
This commit is contained in:
Michael Albinus 2009-08-25 09:02:59 +00:00
parent 20c76c553c
commit ba2318b74b
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/vc-hooks.el
View File

@ -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