David Bowie

1 files changed, 9 insertions, 3 deletions

@@ -28,6 +28,12 @@ Emacs is killed."
   "Keymap for `user-save-mode'.
 This map shadows the default map for `save-buffer'.")
 
+(defun user-save-run-hooks (&rest _)
+  "Run the hooks in `user-save-hook'.
+This does /not/ also save the buffer."
+  (with-demoted-errors "User-save-hook error: %S"
+      (run-hooks 'user-save-hook)))
+
 (defun user-save-buffer (&optional arg)
   "Save current buffer in visited file if modified.
 This function is precisely the same as `save-buffer', but with
@@ -40,10 +46,10 @@ run all the time, put them in `user-save-hook'.
 
 ARG is passed directly to `save-buffer'."
   (interactive '(called-interactively))
-  (message "Saving the buffer...")
-  (with-demoted-errors (run-hooks 'user-save-hook))
+  (message "User-Saving the buffer...")
+  (user-save-run-hooks)
   (save-buffer arg)
-  (message "Saving the buffer...Done."))
+  (message "User-Saving the buffer...Done."))
 
 (defun user-save-some-buffers (&optional pred)
   "Save some buffers as though the user saved them.