From 10f347a06286272c7dcfdeb47b3511b6f53adcbd Mon Sep 17 00:00:00 2001
From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Mon, 2 May 2022 12:26:31 +0200
Subject: [PATCH] Add a command to recreate the *scratch* buffer

* doc/emacs/building.texi (Lisp Interaction): Mention it.
* lisp/simple.el (scratch-buffer): New command.
---
 doc/emacs/building.texi |  4 ++++
 etc/NEWS                |  7 +++++++
 lisp/simple.el          | 11 +++++++++++
 3 files changed, 22 insertions(+)

diff --git a/doc/emacs/building.texi b/doc/emacs/building.texi
index 5bf4c8c7396..994ad460333 100644
--- a/doc/emacs/building.texi
+++ b/doc/emacs/building.texi
@@ -1742,6 +1742,10 @@ which is provided for evaluating Emacs Lisp expressions interactively.
 Its major mode is Lisp Interaction mode.  You can also enable Lisp
 Interaction mode by typing @kbd{M-x lisp-interaction-mode}.
 
+@findex scratch-buffer
+  If you kill the @file{*scratch*} buffer, you can recreate it with
+the @kbd{M-x scratch-buffer} command.
+
 @findex eval-print-last-sexp
 @kindex C-j @r{(Lisp Interaction mode)}
   In the @file{*scratch*} buffer, and other Lisp Interaction mode
diff --git a/etc/NEWS b/etc/NEWS
index 5e7baab1096..25a976db585 100644
--- a/etc/NEWS
+++ b/etc/NEWS
@@ -707,6 +707,13 @@ script that was used in ancient South Asia.  A new input method,
 
 * Changes in Specialized Modes and Packages in Emacs 29.1
 
+** Miscellaneous
+
++++
+*** New command 'scratch-buffer'.
+This switches to the *scratch* buffer.  If it doesn't exist, create it
+first.
+
 ** Debugging
 
 *** New user option 'debug-allow-recursive-debug'.
diff --git a/lisp/simple.el b/lisp/simple.el
index d638e641c3e..861d9eefde9 100644
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -10213,6 +10213,17 @@ This is an integer indicating the UTC offset in seconds, i.e.,
 the number of seconds east of Greenwich.")
   )
 
+(defun scratch-buffer ()
+  "Switch to the \*scratch\* buffer.
+If the buffer doesn't exist, create it first."
+  (interactive)
+  (if (get-buffer "*scratch*")
+      (pop-to-buffer-same-window "*scratch*")
+    (pop-to-buffer-same-window (get-buffer-create "*scratch*"))
+    (when initial-scratch-message
+      (insert initial-scratch-message))
+    (funcall initial-major-mode)))
+
 
 
 (provide 'simple)
-- 
2.39.5