tmux: Quote shell arg in listing windows / panes
Specifying a session and / or window to +tmux-list-windows and +tmux-list-panes just failed, because of the special characters used in the ids for sessions & windows ($ and @). Quoting the ids before building up the tmux command fixes this.
This commit is contained in:
parent
efa599f076
commit
21f2776433
1 changed files with 2 additions and 2 deletions
|
@ -104,7 +104,7 @@ but do not execute them."
|
|||
(if-let* ((lines
|
||||
(+tmux (format "list-windows %s -F '#{window_id};#{session_id};#{window_active};#{window_name};#{window_activity_flag}'"
|
||||
(if session
|
||||
(concat "-t " (car session))
|
||||
(concat "-t " (shell-quote-argument (car session)))
|
||||
"-a")))))
|
||||
(cl-loop for line in (split-string lines "\n" t)
|
||||
collect (let ((window (split-string line ";")))
|
||||
|
@ -122,7 +122,7 @@ but do not execute them."
|
|||
(if sess-or-win
|
||||
(concat (if (string-prefix-p "$" (car sess-or-win)) "-s ")
|
||||
"-t "
|
||||
(car sess-or-win))
|
||||
(shell-quote-argument (car sess-or-win)))
|
||||
"-a")))))
|
||||
(cl-loop for line in (split-string lines "\n" t)
|
||||
collect (let ((pane (split-string line ";")))
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue