awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-03 12:27:26 -05:00
Code Issues Packages Projects Releases Wiki Activity

tools/eshell: fix +eshell/switch

Browse Source
This commit is contained in:
Henrik Lissner
2018-03-28 17:32:35 -04:00
parent 3fb7b24544
commit 08976dafdd
1 changed files with 9 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
modules/tools/eshell/autoload/eshell.el
View File

@ -201,12 +201,13 @@ delete."
(defun +eshell/switch (buffer) (defun +eshell/switch (buffer)
"Interactively switch to another eshell buffer." "Interactively switch to another eshell buffer."
(interactive (interactive
(if (ring-empty-p +eshell-buffers) (let ((buffers (delete (current-buffer) (ring-elements +eshell-buffers))))
(user-error "No eshell buffers are available") (if buffers
(list (completing-read (user-error "No eshell buffers are available")
"Eshell buffers" (list (completing-read
(mapc #'buffer-name (delete (current-buffer) (ring-elements +eshell-buffers))) "Eshell buffers"
#'get-buffer (mapcar #'buffer-name buffers)
'require-match #'get-buffer
nil nil (buffer-name (current-buffer)))))) 'require-match
nil nil (buffer-name (current-buffer)))))))
(switch-to-buffer buffer)) (switch-to-buffer buffer))