From: Amin Bandali 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=sidebyside 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*) ;; ,----