diff options
| -rw-r--r-- | lisp/terminal.el | 10 |
1 files changed, 4 insertions, 6 deletions
diff --git a/lisp/terminal.el b/lisp/terminal.el index c69e569..2c9edb0 100644 --- a/lisp/terminal.el +++ b/lisp/terminal.el @@ -31,9 +31,9 @@ Otherwise, switch to the first available vterm buffer." (interactive) (let* ((buffer-names (mapcar #'buffer-name (buffer-list))) (candidates (seq-filter (lambda (x) (string-search "*vterm*" x)) buffer-names)) - (cur-idx (or (seq-find-index (lambda (x) - (string= x (buffer-name (current-buffer)))) - candidates) + (cur-idx (or (cl-position-if (lambda (x) + (string= x (buffer-name (current-buffer)))) + candidates) -1)) (idx (if (= (1+ cur-idx) (length candidates)) 0 @@ -49,9 +49,7 @@ Otherwise, switch to the first available vterm buffer." ;; Custom keybindings for cycling through open VTerm buffers. :bind - (:map vterm-mode-map - ("M-s-p" . vterm-cycle-buffer) - ("M-s-d" . vterm-cycle-buffer)) + (:map vterm-mode-map ("M-s-p" . vterm-cycle-buffers)) :bind ("s-<return>" . (lambda () |