diff options
| author | Michael Albinus <michael.albinus@gmx.de> | 2020-01-25 19:25:00 +0100 |
|---|---|---|
| committer | Michael Albinus <michael.albinus@gmx.de> | 2020-01-25 19:25:00 +0100 |
| commit | 5ba6df774eef64fc6e2cd962f8502a8d371ed85a (patch) | |
| tree | a76a06146ac767f61046b625984e0922c52f1fb5 | |
| parent | 31efd1cea8d692a0b77101ec161a8cf290471ade (diff) | |
| download | emacs-5ba6df774eef64fc6e2cd962f8502a8d371ed85a.tar.gz | |
Fix Bug#39279
* lisp/net/tramp.el (tramp-completion-file-name-handler):
Fix thinko. (Bug#39279)
| -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." (defun tramp-completion-file-name-handler (operation &rest args) "Invoke Tramp file name completion handler for OPERATION and ARGS. Falls back to normal file name handler if no Tramp file name handler exists." - (when tramp-mode - (if-let ((fn (assoc operation tramp-completion-file-name-handler-alist))) - (save-match-data (apply (cdr fn) args)) - (tramp-run-real-handler operation args)))) + (if-let + ((fn (and tramp-mode + (assoc operation tramp-completion-file-name-handler-alist)))) + (save-match-data (apply (cdr fn) args)) + (tramp-run-real-handler operation args))) ;;;###autoload (progn (defun tramp-autoload-file-name-handler (operation &rest args) |