From 4dab9a193a98e6a74a8ceff7197e58913f8b901b Mon Sep 17 00:00:00 2001 From: toctan Date: Tue, 1 Jul 2014 20:50:17 +0800 Subject: [PATCH] Respect initial-major-mode creating scratch buffer --- core/prelude-core.el | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/core/prelude-core.el b/core/prelude-core.el index d828e3f..3dc7d48 100644 --- a/core/prelude-core.el +++ b/core/prelude-core.el @@ -371,10 +371,9 @@ Doesn't mess with special buffers." (defun prelude-create-scratch-buffer () "Create a new scratch buffer." (interactive) - (progn - (switch-to-buffer - (get-buffer-create (generate-new-buffer-name "*scratch*"))) - (emacs-lisp-mode))) + (let ((buf (get-buffer-create (generate-new-buffer-name "*scratch*")))) + (set-buffer-major-mode buf) + (switch-to-buffer buf))) (defvar prelude-tips '("Press to open a file with external program."