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

By default, empty buffer-file-name = unreal buffer

Browse source
This commit is contained in:
Henrik Lissner 2017-06-12 14:28:59 +02:00
parent b3dafe96d3
commit d9d049549f
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
2 changed files with 8 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

3
core/autoload/buffers.el
View file

@ -142,7 +142,8 @@ popup window/buffer and b) isn't a special buffer."
(or (run-hook-with-args-until-success 'doom-real-buffer-functions buf) (or (run-hook-with-args-until-success 'doom-real-buffer-functions buf)
(not (or (doom-popup-p buf) (not (or (doom-popup-p buf)
(minibufferp buf) (minibufferp buf)
(string-match-p "^\\s-*\\*" (buffer-name buf))))))) (string-match-p "^\\s-*\\*" (buffer-name buf))
(not (buffer-file-name buf)))))))
;;;###autoload ;;;###autoload
(defun doom/next-buffer () (defun doom/next-buffer ()

8
test/core/autoload/test-buffers.el
View file

@ -36,6 +36,8 @@
(ert-deftest get-real-buffers () (ert-deftest get-real-buffers ()
(with-temp-buffers! (a b c d) (with-temp-buffers! (a b c d)
(dolist (buf (list a b))
(with-current-buffer buf (setq-local buffer-file-name "x")))
(with-current-buffer c (with-current-buffer c
(rename-buffer "*C*")) (rename-buffer "*C*"))
(with-current-buffer d (with-current-buffer d
@ -56,7 +58,9 @@
(should-not (buffer-live-p a)))) (should-not (buffer-live-p a))))
(ert-deftest kill-buffer-then-show-real-buffer () (ert-deftest kill-buffer-then-show-real-buffer ()
(with-temp-buffers! (a b c) (with-temp-buffers! (a b c d)
(dolist (buf (list a b d))
(with-current-buffer buf (setq-local buffer-file-name "x")))
(should (cl-every #'buffer-live-p buffer-list)) (should (cl-every #'buffer-live-p buffer-list))
(switch-to-buffer a) (switch-to-buffer a)
(should (eq (current-buffer) a)) (should (eq (current-buffer) a))
@ -64,7 +68,7 @@
(should (doom-kill-buffer a)) (should (doom-kill-buffer a))
(should (eq (current-buffer) b)) (should (eq (current-buffer) b))
(should (doom-kill-buffer)) (should (doom-kill-buffer))
(should (eq (current-buffer) c)) (should (eq (current-buffer) d))
(doom/kill-this-buffer) (doom/kill-this-buffer)
(should (eq (current-buffer) (doom-fallback-buffer))))) (should (eq (current-buffer) (doom-fallback-buffer)))))