Fix broken scratch buffer keybind
This commit is contained in:
parent
1904c712f1
commit
331d8b8a13
5
init.el
5
init.el
@ -267,8 +267,8 @@
|
|||||||
(when (yes-or-no-p "The contents of this buffer have been modified. Really revert? ")
|
(when (yes-or-no-p "The contents of this buffer have been modified. Really revert? ")
|
||||||
(revert-buffer :ignore-auto :noconfirm))))
|
(revert-buffer :ignore-auto :noconfirm))))
|
||||||
|
|
||||||
(defun switch-to-scratch-buffer ()
|
(defun open-scratch-buffer ()
|
||||||
"Switch to the scratch buffer, (re)creating it if not present."
|
"Open the scratch buffer, (re)creating it if not present."
|
||||||
(interactive)
|
(interactive)
|
||||||
(if (get-buffer "*scratch*")
|
(if (get-buffer "*scratch*")
|
||||||
(switch-to-buffer "*scratch*")
|
(switch-to-buffer "*scratch*")
|
||||||
@ -288,6 +288,7 @@
|
|||||||
("C-z" . undo)
|
("C-z" . undo)
|
||||||
("C-c o" . switch-to-minibuffer-window)
|
("C-c o" . switch-to-minibuffer-window)
|
||||||
("C-c r" . revert-buffer-no-confirm)
|
("C-c r" . revert-buffer-no-confirm)
|
||||||
|
("C-c s" . open-scratch-buffer)
|
||||||
("C-c RET" . open-default-shell)
|
("C-c RET" . open-default-shell)
|
||||||
("C-x C-b" . ibuffer)
|
("C-x C-b" . ibuffer)
|
||||||
("M-n" . scroll-up-line)
|
("M-n" . scroll-up-line)
|
||||||
|
Loading…
Reference in New Issue
Block a user