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

Smarter buffer killing (don't end up in unreal buffers)

Browse source
This commit is contained in:
Henrik Lissner 2016-02-19 12:36:40 -05:00
parent 0d5493b45e
commit da80479292
1 changed files with 6 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

12
core/defuns/defuns-buffers.el
View file

@ -141,7 +141,7 @@ the buffer if it is being displayed in another window."
(message "Killed %s matches" i)))
;;;###autoload
(defun narf/cycle-real-buffers (&optional n scratch-default)
(defun narf/cycle-real-buffers (&optional n)
"Switch to the previous buffer and avoid special buffers. If there's nothing
left, create a scratch buffer."
(let* ((start-buffer (current-buffer))
@ -158,12 +158,12 @@ left, create a scratch buffer."
(switch-to-buffer "*scratch*")
(message "Nowhere to go"))
(funcall move-func)
(while (and continue (< i max))
(while (and continue )
(let ((current-buffer (current-buffer)))
(cond ((eq current-buffer start-buffer)
(when scratch-default
(narf|update-scratch-buffer-cwd)
(switch-to-buffer "*scratch*"))
(cond ((or (eq current-buffer start-buffer)
(>= i max))
(narf|update-scratch-buffer-cwd)
(switch-to-buffer "*scratch*")
(setq continue nil))
((not (memq current-buffer real-buffers))
(funcall move-func))