From 17590a394b60b409a8248d50f27f300826b2f7d0 Mon Sep 17 00:00:00 2001 From: Henrik Lissner Date: Tue, 19 Apr 2016 03:17:16 -0400 Subject: [PATCH] Don't erase scratch buffer --- core/defuns/defuns-buffers.el | 13 ++++++------- 1 file changed, 6 insertions(+), 7 deletions(-) diff --git a/core/defuns/defuns-buffers.el b/core/defuns/defuns-buffers.el index 205dd1556..3f9b569e0 100644 --- a/core/defuns/defuns-buffers.el +++ b/core/defuns/defuns-buffers.el @@ -96,13 +96,12 @@ Inspired from http://demonastery.org/2013/04/emacs-evil-narrow-region/" the buffer if it is being displayed in another window." (interactive) (let (new-dir) - (cond ((string-match-p "^\\*scratch\\*" (buffer-name)) - (erase-buffer)) - (t - (setq new-dir (narf/project-root)) - (if (> (length (get-buffer-window-list (current-buffer) nil nil)) 1) - (bury-buffer) - (kill-this-buffer)))) + (if (string-match-p "^\\*scratch\\*" (buffer-name)) + (message "Already in the scratch buffer") + (setq new-dir (narf/project-root)) + (if (> (length (get-buffer-window-list (current-buffer) nil nil)) 1) + (bury-buffer) + (kill-this-buffer))) (if (narf/popup-p (selected-window)) (narf/popup-close) (unless (narf/real-buffer-p (current-buffer))