Commit 209bb3be authored by Michael Albinus's avatar Michael Albinus
Browse files

* net/tramp-vc.el (vc-user-login-name): Wrap defadvice with a test

for `process-file', in order to let it work for older Emacsen too.
parent a849f77d
2006-01-27 Michael Albinus <michael.albinus@gmx.de>
* net/tramp-vc.el (vc-user-login-name): Wrap defadvice with a test
for `process-file', in order to let it work for older Emacsen too.
2006-01-27 Eli Zaretskii <eliz@gnu.org>
 
* international/latexenc.el: Add a suitable `coding:' tag.
......@@ -58,7 +63,7 @@
 
* tramp-vc.el (vc-user-login-name): Comment out defadvice, it is
no longer necessary.
2006-01-25 Kenichi Handa <handa@m17n.org>
 
* international/mule.el (decode-char): Avoid the overhead of
......
......@@ -439,26 +439,27 @@ filename we are thinking about..."
;; The following defadvice is no longer necessary after changes in VC
;; on 2006-01-25, Andre.
;; (defadvice vc-user-login-name
;; (around tramp-vc-user-login-name activate)
;; "Support for files on remote machines accessed by TRAMP."
;; ;; We rely on the fact that `file' is bound when this is called.
;; ;; This appears to be the case everywhere in vc.el and vc-hooks.el
;; ;; as of Emacs 20.5.
;; ;;
;; ;; CCC TODO there should be a real solution! Talk to Andre Spiegel
;; ;; about this.
;; (let ((file (when (boundp 'file)
;; (symbol-value 'file)))) ;pacify byte-compiler
;; (or (and (stringp file)
;; (tramp-tramp-file-p file) ; tramp file
;; (setq ad-return-value
;; (save-match-data
;; (tramp-handle-vc-user-login-name uid)))) ; get the owner name
;; ad-do-it))) ; else call the original
(unless (fboundp 'process-file)
(defadvice vc-user-login-name
(around tramp-vc-user-login-name activate)
"Support for files on remote machines accessed by TRAMP."
;; We rely on the fact that `file' is bound when this is called.
;; This appears to be the case everywhere in vc.el and vc-hooks.el
;; as of Emacs 20.5.
;;
;; With Emacs 22, the definition of `vc-user-login-name' has been
;; changed. It doesn't need to be adviced any longer.
(let ((file (when (boundp 'file)
(symbol-value 'file)))) ;pacify byte-compiler
(or (and (stringp file)
(tramp-tramp-file-p file) ; tramp file
(setq ad-return-value
(save-match-data
(tramp-handle-vc-user-login-name uid)))) ; get the owner name
ad-do-it))) ; else call the original
(add-hook 'tramp-unload-hook
'(lambda () (ad-unadvise 'vc-user-login-name)))
(add-hook 'tramp-unload-hook
'(lambda () (ad-unadvise 'vc-user-login-name))))
;; Determine the name of the user owning a file.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment