fix(core): fix persistent scratch hooks/functions

abougouffa · Jun 14, 2023 · 309e5a5 · 309e5a5
1 parent e2ad2ea
commit 309e5a5
Show file tree

Hide file tree

Showing 2 changed files with 12 additions and 6 deletions.
diff --git a/core/me-loaddefs.el b/core/me-loaddefs.el
@@ -573,11 +573,17 @@ Return a scratchpad buffer in major MODE.
 
 (fn &optional DONT-RESTORE-P MODE DIRECTORY PROJECT-NAME)")
 (autoload '+scratch-persist-buffer-h "../elisp/+scratch" "\
-Save the current buffer to `+scratch-dir'.")
+Save the current buffer to `+scratch-dir'.
+
+(fn &rest _)")
 (autoload '+scratch-persist-buffers-h "../elisp/+scratch" "\
-Save all scratch buffers to `+scratch-dir'.")
+Save all scratch buffers to `+scratch-dir'.
+
+(fn &rest _)")
 (autoload '+scratch-persist-buffers-after-switch-h "../elisp/+scratch" "\
-Kill scratch buffers when they are no longer visible, saving them to disk.")
+Kill scratch buffers when they are no longer visible, saving them to disk.
+
+(fn &rest _)")
 (unless noninteractive (add-hook 'kill-emacs-hook #'+scratch-persist-buffers-h))
 (autoload '+scratch-open-buffer "../elisp/+scratch" "\
 Pop up a persistent scratch buffer.

diff --git a/elisp/+scratch.el b/elisp/+scratch.el
@@ -81,7 +81,7 @@ the first, fresh scratch buffer you create. This accepts:
 ;;; Persistent scratch buffer
 
 ;;;###autoload
-(defun +scratch-persist-buffer-h ()
+(defun +scratch-persist-buffer-h (&rest _)
   "Save the current buffer to `+scratch-dir'."
   (let ((content (buffer-substring-no-properties (point-min) (point-max)))
         (point (point))
@@ -97,7 +97,7 @@ the first, fresh scratch buffer you create. This accepts:
              (current-buffer)))))
 
 ;;;###autoload
-(defun +scratch-persist-buffers-h ()
+(defun +scratch-persist-buffers-h (&rest _)
   "Save all scratch buffers to `+scratch-dir'."
   (setq +scratch-buffers
         (cl-delete-if-not #'buffer-live-p +scratch-buffers))
@@ -106,7 +106,7 @@ the first, fresh scratch buffer you create. This accepts:
       (+scratch-persist-buffer-h))))
 
 ;;;###autoload
-(defun +scratch-persist-buffers-after-switch-h ()
+(defun +scratch-persist-buffers-after-switch-h (&rest _)
   "Kill scratch buffers when they are no longer visible, saving them to disk."
   (unless (cl-some #'get-buffer-window +scratch-buffers)
     (mapc #'kill-buffer +scratch-buffers)