diff options
| author | Michael Albinus | 2020-01-25 19:25:00 +0100 |
|---|---|---|
| committer | Michael Albinus | 2020-01-25 19:25:00 +0100 |
| commit | 5ba6df774eef64fc6e2cd962f8502a8d371ed85a (patch) | |
| tree | a76a06146ac767f61046b625984e0922c52f1fb5 | |
| parent | 31efd1cea8d692a0b77101ec161a8cf290471ade (diff) | |
| download | emacs-5ba6df774eef64fc6e2cd962f8502a8d371ed85a.tar.gz emacs-5ba6df774eef64fc6e2cd962f8502a8d371ed85a.zip | |
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." | |||
| 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) |