I waited way too long to make this commit

1 files changed, 17 insertions, 1 deletions

@@ -8,6 +8,8 @@
 
 ;;; Code:
 
+(require 'cl-lib)
+
 (defgroup user-save nil
   "Group for `user-save-mode' customizations."
   :group 'emacs
@@ -19,11 +21,16 @@ This option is only useful is `user-save-mode' is active when
 Emacs is killed."
   :type 'boolean)
 
+(defcustom user-save-inhibit '(special-mode)
+  "List of modes to inhibit `user-save-mode' from activation in."
+  :type '(repeat symbol))
+
 (defvar user-save-hook nil
   "Hook to run when the user, not Emacs, saves the buffer.")
 
 (defvar user-save-mode-map (let ((map (make-sparse-keymap)))
                              (define-key map (kbd "C-x C-s") #'user-save-buffer)
+                             (define-key map (kbd "C-x s") #'user-save-some-buffers)
                              map)
   "Keymap for `user-save-mode'.
 This map shadows the default map for `save-buffer'.")
@@ -81,7 +88,16 @@ whether the buffer needs to be saved."
   (user-save-mode -1))
 
 ;;;###autoload
-(define-globalized-minor-mode user-save-global-mode user-save-mode user-save-mode
+(defun user-save-mode-in-some-buffers ()
+  "Enable `user-save-mode', but only in some buffers.
+The mode will not be enabled in buffers derived from modes in
+`user-save-inhibit', or in the minibuffer."
+  (unless (or (cl-some #'derived-mode-p user-save-inhibit)
+              (minibufferp))
+    (user-save-mode +1)))
+
+;;;###autoload
+(define-globalized-minor-mode user-save-global-mode user-save-mode user-save-mode-in-some-buffers
   (if user-save-global-mode
       (when user-save-hook-into-kill-emacs
         (add-hook 'kill-emacs-hook #'user-save-some-buffers))