From: Amin Bandali <bandali@kelar.org>
Date: Fri, 20 May 2022 01:42:23 +0000 (-0400)
Subject: Rewrite `b/*scratch*' function in init file
X-Git-Url: https://git.shemshak.org/~bandali/configs/commitdiff_plain/272a75dc74b1d02748472d5014be26aab7c060be?ds=inline;pf=~bandali

Rewrite `b/*scratch*' function in init file

* .emacs.d/init.el (b/*scratch*): Rewrite to use the new
`get-scratch-buffer-create' function in emacs.git master branch if
available, otherwise use the old `startup--get-buffer-create-scratch'.
---

diff --git a/.emacs.d/init.el b/.emacs.d/init.el
index 0fd70e5..459dbe8 100644
--- a/.emacs.d/init.el
+++ b/.emacs.d/init.el
@@ -812,11 +812,10 @@ Effectively a very simple light/dark theme toggle switch."
 (defun b/*scratch* ()
   "Switch to `*scratch*' buffer, creating it if it does not exist."
   (interactive)
-  (switch-to-buffer
-   (or (get-buffer "*scratch*")
-       (with-current-buffer (get-buffer-create "*scratch*")
-         (set-buffer-major-mode (current-buffer))
-         (current-buffer)))))
+  (let ((fun (if (functionp #'get-scratch-buffer-create)
+                 #'get-scratch-buffer-create ; (version<= "29" emacs-version)
+               #'startup--get-buffer-create-scratch))) ; (version< emacs-version "29")
+    (switch-to-buffer (funcall fun))))
 (global-set-key (kbd "C-c s") #'b/*scratch*)
 
 ;; ,----