From 58c02f255f832dbdd9ea9fa80509a2f4b76670c6 Mon Sep 17 00:00:00 2001 From: Henrik Lissner Date: Tue, 12 Apr 2016 15:54:01 -0400 Subject: [PATCH] Refactor defuns-buffers.el --- core/defuns/defuns-buffers.el | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) diff --git a/core/defuns/defuns-buffers.el b/core/defuns/defuns-buffers.el index ad9bace3d..e16e4facc 100644 --- a/core/defuns/defuns-buffers.el +++ b/core/defuns/defuns-buffers.el @@ -105,9 +105,7 @@ the buffer if it is being displayed in another window." (narf/popup-close) (unless (narf/real-buffer-p (current-buffer)) (narf/previous-real-buffer) - (when (and (string-match-p "^\\*scratch\\*" (buffer-name)) new-dir) - (setq header-line-format new-dir) - (setq default-directory new-dir)))))) + (narf|update-scratch-buffer-cwd))))) ;;;###autoload (defun narf/kill-unreal-buffers () @@ -169,7 +167,7 @@ left, create a scratch buffer." (switch-to-buffer "*scratch*") (message "Nowhere to go")) (funcall move-func) - (while (and continue ) + (while (and continue) (let ((current-buffer (current-buffer))) (cond ((or (eq current-buffer start-buffer) (>= i max))