diff options
| author | Jakob L. Kreuze | 2022-10-23 19:11:18 -0400 |
|---|---|---|
| committer | Jakob L. Kreuze | 2022-10-23 19:11:18 -0400 |
| commit | 86ec8109fe70dfb51c88f7e155bd8fc2db77a690 (patch) | |
| tree | 2dfd73fbdea0e1d2b1c98ef8a5702326aec12f81 | |
| parent | 9ff7cf9e94c71da2096c1571bc13f5bcc82dad3d (diff) | |
Don't use deprecated seq- function in vterm-cycle-buffers
| -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 () |