From 272a75dc74b1d02748472d5014be26aab7c060be Mon Sep 17 00:00:00 2001 From: Amin Bandali Date: Thu, 19 May 2022 21:42:23 -0400 Subject: 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'. --- .emacs.d/init.el | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) 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*) ;; ,---- -- cgit v1.2.3-60-g2f50