diff options
author | Case Duckworth | 2022-01-31 00:54:53 -0600 |
---|---|---|
committer | Case Duckworth | 2022-01-31 00:54:53 -0600 |
commit | 195618bcf36a4ee2fe6f038d6d27936f1c1f22df (patch) | |
tree | 7235485f19743eed5e13157beafe941f42801490 /lisp/+eshell.el | |
parent | Add secret-source as an auth-source (diff) | |
download | emacs-195618bcf36a4ee2fe6f038d6d27936f1c1f22df.tar.gz emacs-195618bcf36a4ee2fe6f038d6d27936f1c1f22df.zip |
Random stuff
Diffstat (limited to 'lisp/+eshell.el')
-rw-r--r-- | lisp/+eshell.el | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/lisp/+eshell.el b/lisp/+eshell.el index d49358d..d70bed7 100644 --- a/lisp/+eshell.el +++ b/lisp/+eshell.el | |||
@@ -29,7 +29,12 @@ any directory proferred by `consult-dir'." | |||
29 | "Delete the character to the right, or quit eshell on an empty line." | 29 | "Delete the character to the right, or quit eshell on an empty line." |
30 | (interactive "p") | 30 | (interactive "p") |
31 | (if (and (eolp) (looking-back eshell-prompt-regexp)) | 31 | (if (and (eolp) (looking-back eshell-prompt-regexp)) |
32 | (eshell-life-is-too-much) | 32 | (progn (eshell-life-is-too-much) |
33 | (when (and (<= 1 (count-windows)) | ||
34 | ;; I'm guessing the extra frame is for the server? | ||
35 | (> (length (frame-list)) 2) | ||
36 | server-process) | ||
37 | (delete-frame))) | ||
33 | (delete-forward-char arg))) | 38 | (delete-forward-char arg))) |
34 | 39 | ||
35 | ;;; Insert previous arguments | 40 | ;;; Insert previous arguments |