[Emacs-diffs] emacs/lisp vc-hooks.el

[Michael Albinus]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Michael Albinus <albinus>       09/08/25 09:03:00

Modified files:
        lisp           : vc-hooks.el 

Log message:
        * vc-hooks.el (vc-user-login-name):
        Let-bind `process-file-side-effects' with nil.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/vc-hooks.el?cvsroot=emacs&r1=1.279&r2=1.280

Patches:
Index: vc-hooks.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/vc-hooks.el,v
retrieving revision 1.279
retrieving revision 1.280
diff -u -b -r1.279 -r1.280
--- vc-hooks.el 26 Jun 2009 23:54:00 -0000      1.279
+++ vc-hooks.el 25 Aug 2009 09:02:59 -0000      1.280
@@ -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