mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-04 11:00:45 -08:00
Code Issues Projects Releases Wiki Activity

Allow remember-notes to use the *scratch* buffer

Browse source 
* lisp/textmodes/remember.el (remember-notes): Allow the
remember-notes buffer to use the *scratch* buffer (as documented)
(bug#20740).
This commit is contained in:
Lars Ingebrigtsen 2020-12-28 02:03:56 +01:00
parent 8c38345629
commit 4ffb2ec357
1 changed files with 8 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

11
lisp/textmodes/remember.el
View file

@ -638,9 +638,14 @@ to turn the *scratch* buffer into your notes buffer."
(interactive "p") (interactive "p")
(let ((buf (or (find-buffer-visiting remember-data-file) (let ((buf (or (find-buffer-visiting remember-data-file)
(with-current-buffer (find-file-noselect remember-data-file) (with-current-buffer (find-file-noselect remember-data-file)
(and remember-notes-buffer-name (when remember-notes-buffer-name
(not (get-buffer remember-notes-buffer-name)) (when (and (get-buffer remember-notes-buffer-name)
(rename-buffer remember-notes-buffer-name)) (equal remember-notes-buffer-name "*scratch*"))
(kill-buffer remember-notes-buffer-name))
;; Rename the buffer to the requested name (if
;; it's not already in use).
(unless (get-buffer remember-notes-buffer-name)
(rename-buffer remember-notes-buffer-name)))
(funcall (or remember-notes-initial-major-mode (funcall (or remember-notes-initial-major-mode
initial-major-mode)) initial-major-mode))
(remember-notes-mode 1) (remember-notes-mode 1)