aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorMichael Albinus2025-08-07 09:05:22 +0200
committerMichael Albinus2025-08-07 09:05:22 +0200
commit68aaeb3519fd7f6176050e142f0dbc27e07992d2 (patch)
tree07e0fd73c8fa4747d46cfbd7ef4594bbbe4428dc
parentd3cd93dc4d917b6438117e82486f044e324a6088 (diff)
downloademacs-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.el4
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."
2972BODY is the backend specific code." 2972BODY 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.")