diff options
| -rw-r--r-- | lisp/net/tramp.el | 9 |
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. |
| 2414 | Falls back to normal file name handler if no Tramp file name handler exists." | 2414 | Falls 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) |