mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

* net/tramp.el (tramp-advice-file-expand-wildcards): Simplify.

Browse source 
Don't set `ad-return-value' if `ad-do-it' doesn't.
This commit is contained in:
Michael Albinus 2009-11-17 10:38:44 +00:00
parent a6eb20d8fe
commit e268e987dc
2 changed files with 15 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

25
lisp/net/tramp.el
View file

@ -8364,21 +8364,16 @@ Only works for Bourne-like shells."
(defadvice file-expand-wildcards
(around tramp-advice-file-expand-wildcards activate)
(let ((name (ad-get-arg 0)))
(if (tramp-tramp-file-p name)
;; If it's a Tramp file, dissect it and look if wildcards
;; need to be expanded at all.
(if (string-match
"[[*?]"
(tramp-file-name-localname (tramp-dissect-file-name name)))
(progn
ad-do-it
(unless ad-return-value
(setq ad-return-value (list name))))
(setq ad-return-value (list name)))
;; If it is not a Tramp file, just run the original function.
ad-do-it
(unless ad-return-value
(setq ad-return-value (list name))))))
;; If it's a Tramp file, dissect it and look if wildcards need
;; to be expanded at all.
(if (and
(tramp-tramp-file-p name)
(not (string-match
"[[*?]"
(tramp-file-name-localname (tramp-dissect-file-name name)))))
(setq ad-return-value (list name))
;; Otherwise, just run the original function.
ad-do-it)))
(add-hook
'tramp-unload-hook
(lambda ()