Fix Tramp completion

* lisp/net/tramp.el (tramp-skeleton-file-name-all-completions):
Filter out "" hits.  (Bug#79173)
This commit is contained in:
Michael Albinus 2025-08-07 09:05:22 +02:00
parent d3cd93dc4d
commit 68aaeb3519

View file

@ -2972,7 +2972,7 @@ not in completion mode."
BODY is the backend specific code."
(declare (indent 2) (debug t))
`(ignore-error file-missing
(delete-dups (delq nil
(delete-dups (delq nil (delete ""
(let* ((case-fold-search read-file-name-completion-ignore-case)
(result (progn ,@body)))
;; Some storage systems do not return "." and "..".
@ -2989,7 +2989,7 @@ BODY is the backend specific code."
(dolist (elt completion-regexp-list x)
(unless (string-match-p elt x) (throw 'match nil))))))
result)
result))))))
result)))))))
(defvar tramp--last-hop-directory nil
"Tracks the directory from which to run login programs.")