aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lisp/net/tramp.el9
1 files changed, 5 insertions, 4 deletions
diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el
index 81c79bf5d7e..61f6f2ed3a7 100644
--- a/lisp/net/tramp.el
+++ b/lisp/net/tramp.el
@@ -2412,10 +2412,11 @@ Fall back to normal file name handler if no Tramp file name handler exists."
2412(defun tramp-completion-file-name-handler (operation &rest args) 2412(defun tramp-completion-file-name-handler (operation &rest args)
2413 "Invoke Tramp file name completion handler for OPERATION and ARGS. 2413 "Invoke Tramp file name completion handler for OPERATION and ARGS.
2414Falls back to normal file name handler if no Tramp file name handler exists." 2414Falls back to normal file name handler if no Tramp file name handler exists."
2415 (when tramp-mode 2415 (if-let
2416 (if-let ((fn (assoc operation tramp-completion-file-name-handler-alist))) 2416 ((fn (and tramp-mode
2417 (save-match-data (apply (cdr fn) args)) 2417 (assoc operation tramp-completion-file-name-handler-alist))))
2418 (tramp-run-real-handler operation args)))) 2418 (save-match-data (apply (cdr fn) args))
2419 (tramp-run-real-handler operation args)))
2419 2420
2420;;;###autoload 2421;;;###autoload
2421(progn (defun tramp-autoload-file-name-handler (operation &rest args) 2422(progn (defun tramp-autoload-file-name-handler (operation &rest args)