emacs-31 3b22019ff0d: Fix Tramp container name completion

Michael Albinus via Mailing list for Emacs changes <[email protected]> Fri, 3 Jul 2026 07:44:25 -0400 (EDT)
Newsgroups gmane.emacs.diffs
Message-ID <[email protected]>
branch: emacs-31
commit 3b22019ff0dfda9efc1c4341d6e465d5c797091f
Author: Samuele FAVAZZA <[email protected]>
Commit: Michael Albinus <[email protected]>

    Fix Tramp container name completion
    
    * lisp/net/tramp-container.el (tramp-container--completion-function):
    Use "<>" as separator instead of "\t", which could be modified in
    the shell.
    
    Copyright-paperwork-exempt: yes
---
 lisp/net/tramp-container.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lisp/net/tramp-container.el b/lisp/net/tramp-container.el
index fec2e16a624..dabc03f990b 100644
--- a/lisp/net/tramp-container.el
+++ b/lisp/net/tramp-container.el
@@ -290,14 +290,14 @@ see its function help for a description of the format."
   (tramp-skeleton-completion-function method
     (when-let* ((raw-list
 		 (shell-command-to-string
-		  (concat program " ps --format '{{.ID}}\t{{.Names}}'")))
+		  (concat program " ps --format '{{.ID}}<>{{.Names}}'")))
 		(lines (split-string raw-list "\n" 'omit))
 		(names
 		 (tramp-compat-seq-keep
 		  (lambda (line)
 		    (when (string-match
 			   (rx bol (group (1+ nonl))
-			       "\t" (? (group (1+ nonl))) eol)
+			       "<>" (? (group (1+ nonl))) eol)
 			   line)
 		      (or (match-string 2 line) (match-string 1 line))))
 		  lines)))