diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2021-06-22 12:06:40 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-06-22 12:06:46 -0700 |
commit | 82a1d86b970be3a49a88458af8a8b5011fca7999 (patch) | |
tree | 2e4dd2682c00b74dbef135e2ea9af3db42077716 /.emacs.d/init-spw.el | |
parent | f504684dcf1415ef70772af56c3b7315162ee8e7 (diff) | |
download | dotfiles-82a1d86b970be3a49a88458af8a8b5011fca7999.tar.gz |
nicer check of the value of display-buffer-overriding-action
Diffstat (limited to '.emacs.d/init-spw.el')
-rw-r--r-- | .emacs.d/init-spw.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/.emacs.d/init-spw.el b/.emacs.d/init-spw.el index 4b7da465..f217cbc5 100644 --- a/.emacs.d/init-spw.el +++ b/.emacs.d/init-spw.el @@ -1348,10 +1348,10 @@ The ideas behind this behaviour are as follows. (insert "cd" " " ?\" initial-default-directory ?\") (eshell-send-input))) (fresh-eshell))) - ;; If `display-buffer-overriding-action' is not its default value, - ;; pop to ourselves, to allow subsequent cycling to a different - ;; Eshell in another window. E.g. C-x e e C-x 4 4 C-x e e - ((not (equal display-buffer-overriding-action '(nil . nil))) + ;; If `display-buffer-overriding-action' has some entries, pop to + ;; ourselves, to allow subsequent cycling to a different Eshell in + ;; another window. E.g. C-x e e C-x 4 4 C-x e e + ((cl-find-if-not #'null display-buffer-overriding-action) (pop-to-buffer (current-buffer)))) ;; Finally, generate and return a ring for cycling purposes. (let* ((all (delete (current-buffer) |