procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* 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