diff options
| author | Michael Albinus | 2025-08-07 09:05:22 +0200 |
|---|---|---|
| committer | Michael Albinus | 2025-08-07 09:05:22 +0200 |
| commit | 68aaeb3519fd7f6176050e142f0dbc27e07992d2 (patch) | |
| tree | 07e0fd73c8fa4747d46cfbd7ef4594bbbe4428dc | |
| parent | d3cd93dc4d917b6438117e82486f044e324a6088 (diff) | |
| download | emacs-68aaeb3519fd7f6176050e142f0dbc27e07992d2.tar.gz emacs-68aaeb3519fd7f6176050e142f0dbc27e07992d2.zip | |
Fix Tramp completion
* lisp/net/tramp.el (tramp-skeleton-file-name-all-completions):
Filter out "" hits. (Bug#79173)
| -rw-r--r-- | lisp/net/tramp.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el index f3e9556f797..503b370cb3d 100644 --- a/lisp/net/tramp.el +++ b/lisp/net/tramp.el | |||
| @@ -2972,7 +2972,7 @@ not in completion mode." | |||
| 2972 | BODY is the backend specific code." | 2972 | BODY is the backend specific code." |
| 2973 | (declare (indent 2) (debug t)) | 2973 | (declare (indent 2) (debug t)) |
| 2974 | `(ignore-error file-missing | 2974 | `(ignore-error file-missing |
| 2975 | (delete-dups (delq nil | 2975 | (delete-dups (delq nil (delete "" |
| 2976 | (let* ((case-fold-search read-file-name-completion-ignore-case) | 2976 | (let* ((case-fold-search read-file-name-completion-ignore-case) |
| 2977 | (result (progn ,@body))) | 2977 | (result (progn ,@body))) |
| 2978 | ;; Some storage systems do not return "." and "..". | 2978 | ;; Some storage systems do not return "." and "..". |
| @@ -2989,7 +2989,7 @@ BODY is the backend specific code." | |||
| 2989 | (dolist (elt completion-regexp-list x) | 2989 | (dolist (elt completion-regexp-list x) |
| 2990 | (unless (string-match-p elt x) (throw 'match nil)))))) | 2990 | (unless (string-match-p elt x) (throw 'match nil)))))) |
| 2991 | result) | 2991 | result) |
| 2992 | result)))))) | 2992 | result))))))) |
| 2993 | 2993 | ||
| 2994 | (defvar tramp--last-hop-directory nil | 2994 | (defvar tramp--last-hop-directory nil |
| 2995 | "Tracks the directory from which to run login programs.") | 2995 | "Tracks the directory from which to run login programs.") |