fix(scratch): use renamed function to get scratch buffer

jcs090218 · jcs090218 · commit 8788c3015561 · 2022-07-19T13:08:08.000+08:00
diff --git a/lisp/jcs-env.el b/lisp/jcs-env.el
@@ -181,7 +181,7 @@
   "List of buffers that you do not want to show line numbers in it.")
 
 (defconst jcs-line-numbers-ignore-buffer-exceptions
-  `(,(buffer-name (jcs-scratch-buffer)))
+  `(,(buffer-name (get-scratch-buffer-create)))
   "These buffers wouldn't be ignored line numbers mode.")
 
 (defconst jcs-line-numbers-ignore-modes
diff --git a/lisp/jcs-function.el b/lisp/jcs-function.el
@@ -70,28 +70,19 @@
 ;; (@* "*scratch*" )
 ;;
 
-(defun jcs-scratch-buffer ()
-  "Return the scratch buffer."
-  (startup--get-buffer-create-scratch))
-
 (defun jcs-scratch-buffer-p ()
   "Return non-nil if current buffer the scratch buffer."
-  (equal (current-buffer) (jcs-scratch-buffer)))
-
-(defun jcs-scratch ()
-  "Start a new scratch buffer."
-  (interactive)
-  (switch-to-buffer (jcs-scratch-buffer)))
+  (equal (current-buffer) (get-scratch-buffer-create)))
 
 (defun jcs-scratch-other-window ()
   "Start a new scratch buffer."
   (interactive)
-  (jcs-switch-to-buffer-other-window (jcs-scratch-buffer)))
+  (jcs-switch-to-buffer-other-window (get-scratch-buffer-create)))
 
 (defun jcs-new-scratch-buffer ()
   "Start a new scratch buffer."
   (interactive)
-  (jcs-scratch)
+  (scratch-buffer)
   (erase-buffer)
   (ignore-errors (insert (substitute-command-keys initial-scratch-message)))
   (goto-char (point-min))
diff --git a/lisp/jcs-hook.el b/lisp/jcs-hook.el
@@ -73,7 +73,7 @@
   (jcs-funcall-fboundp #'jcs-mode-load-requires)
   (jcs-require '(jcs-edit))
   (jcs-with-current-buffer (messages-buffer) (messages-buffer-mode))
-  (jcs-with-current-buffer (jcs-scratch-buffer) (lisp-interaction-mode))
+  (jcs-with-current-buffer (get-scratch-buffer-create) (lisp-interaction-mode))
   ;; Lower the `GC' back to normal threshold
   (jcs-gc-cons-threshold-speed-up nil)
   (message nil))  ; mute at the very end!
