tmux: string-split -> split-string
This commit is contained in:
parent
6490c4b922
commit
51f2ea2932
1 changed files with 3 additions and 3 deletions
|
@ -108,8 +108,8 @@ but do not execute them."
|
||||||
(if session
|
(if session
|
||||||
(concat "-t " (car session))
|
(concat "-t " (car session))
|
||||||
"-a")))))
|
"-a")))))
|
||||||
(cl-loop for line in (string-split lines "\n" t)
|
(cl-loop for line in (split-string lines "\n" t)
|
||||||
collect (let ((window (string-split line ";")))
|
collect (let ((window (split-string line ";")))
|
||||||
(list (nth 0 window)
|
(list (nth 0 window)
|
||||||
:session-id (nth 1 window)
|
:session-id (nth 1 window)
|
||||||
:name (nth 3 window)
|
:name (nth 3 window)
|
||||||
|
@ -126,7 +126,7 @@ but do not execute them."
|
||||||
"-t "
|
"-t "
|
||||||
(car sess-or-win))
|
(car sess-or-win))
|
||||||
"-a")))))
|
"-a")))))
|
||||||
(cl-loop for line in (string-split lines "\n" t)
|
(cl-loop for line in (split-string lines "\n" t)
|
||||||
collect (let ((pane (split-string line ";")))
|
collect (let ((pane (split-string line ";")))
|
||||||
(list (nth 0 pane)
|
(list (nth 0 pane)
|
||||||
:window-id (nth 1 pane)
|
:window-id (nth 1 pane)
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue