emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Preserve current directory when splitting eshell

Browse source 
Fixes #3091
This commit is contained in:
Henrik Lissner 2020-05-11 22:09:17 -04:00
parent 24aabfc8e0
commit de27b2c041
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
1 changed files with 9 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

6
modules/term/eshell/autoload/eshell.el
View file

@ -21,13 +21,15 @@
t)) t))
(defun +eshell--bury-buffer (&optional dedicated-p) (defun +eshell--bury-buffer (&optional dedicated-p)
(let ((directory default-directory))
(unless (switch-to-prev-buffer nil 'bury) (unless (switch-to-prev-buffer nil 'bury)
(switch-to-buffer (doom-fallback-buffer))) (switch-to-buffer (doom-fallback-buffer)))
(when (eq major-mode 'eshell-mode) (when (eq major-mode 'eshell-mode)
(switch-to-buffer (doom-fallback-buffer))) (switch-to-buffer (doom-fallback-buffer)))
(when +eshell-enable-new-shell-on-split (when +eshell-enable-new-shell-on-split
(when-let (win (get-buffer-window (+eshell/here))) (let ((default-directory directory))
(set-window-dedicated-p win dedicated-p)))) (when-let (win (get-buffer-window (+eshell/here t)))
(set-window-dedicated-p win dedicated-p))))))
(defun +eshell--setup-window (window &optional flag) (defun +eshell--setup-window (window &optional flag)
(when (window-live-p window) (when (window-live-p window)