awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-03 12:27:26 -05:00
Code Issues Packages Projects Releases Wiki Activity

Refactor defuns-buffers.el

Browse Source
This commit is contained in:
Henrik Lissner
2016-04-12 15:54:01 -04:00
parent 144109c09b
commit 58c02f255f
1 changed files with 2 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
core/defuns/defuns-buffers.el
View File

@ -105,9 +105,7 @@ the buffer if it is being displayed in another window."
(narf/popup-close) (narf/popup-close)
(unless (narf/real-buffer-p (current-buffer)) (unless (narf/real-buffer-p (current-buffer))
(narf/previous-real-buffer) (narf/previous-real-buffer)
(when (and (string-match-p "^\\*scratch\\*" (buffer-name)) new-dir) (narf|update-scratch-buffer-cwd)))))
(setq header-line-format new-dir)
(setq default-directory new-dir))))))
;;;###autoload ;;;###autoload
(defun narf/kill-unreal-buffers () (defun narf/kill-unreal-buffers ()
@ -169,7 +167,7 @@ left, create a scratch buffer."
(switch-to-buffer "*scratch*") (switch-to-buffer "*scratch*")
(message "Nowhere to go")) (message "Nowhere to go"))
(funcall move-func) (funcall move-func)
(while (and continue ) (while (and continue)
(let ((current-buffer (current-buffer))) (let ((current-buffer (current-buffer)))
(cond ((or (eq current-buffer start-buffer) (cond ((or (eq current-buffer start-buffer)
(>= i max)) (>= i max))