- (eshell))
- ;; (let ((dir default-directory))
-
- ;; (split-window-vertically (- (/ (window-total-height) 3)))
- ;; (other-window 1)
- ;; (unless (and (boundp 'eshell-buffer-name) (get-buffer eshell-buffer-name))
- ;; (eshell))
- ;; (switch-to-buffer eshell-buffer-name)
- ;; (goto-char (point-max))
- ;; (eshell-kill-input)
- ;; (insert (format "cd %s" dir))
- ;; (eshell-send-input))
- )))
-
- ;; (global-unset-key (kbd "M-`"))