Merge pull request #694 from MaskRay/tmux

tmux: string-split -> split-string
This commit is contained in:
Henrik Lissner 2018-06-18 23:50:56 +02:00 committed by GitHub
commit f471ef3fff
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23

View file

@ -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)