Respect initial-major-mode creating scratch buffer
This commit is contained in:
parent
bc53a7008a
commit
4dab9a193a
1 changed files with 3 additions and 4 deletions
|
@ -371,10 +371,9 @@ Doesn't mess with special buffers."
|
||||||
(defun prelude-create-scratch-buffer ()
|
(defun prelude-create-scratch-buffer ()
|
||||||
"Create a new scratch buffer."
|
"Create a new scratch buffer."
|
||||||
(interactive)
|
(interactive)
|
||||||
(progn
|
(let ((buf (get-buffer-create (generate-new-buffer-name "*scratch*"))))
|
||||||
(switch-to-buffer
|
(set-buffer-major-mode buf)
|
||||||
(get-buffer-create (generate-new-buffer-name "*scratch*")))
|
(switch-to-buffer buf)))
|
||||||
(emacs-lisp-mode)))
|
|
||||||
|
|
||||||
(defvar prelude-tips
|
(defvar prelude-tips
|
||||||
'("Press <C-c o> to open a file with external program."
|
'("Press <C-c o> to open a file with external program."
|
||||||
|
|
Loading…
Reference in a new issue