acdw/emacs
acdw
/
emacs
1
2
Fork 0
Code Issues 4 Pull Requests Releases Activity

Unglobify user-save-mode

This commit is contained in:
Case Duckworth 2022-02-07 13:14:10 -06:00
parent e76a106571
commit 3b9b91686f
2 changed files with 11 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
init.el
View File

@ -114,7 +114,7 @@
(setup (:require user-save)
(add-hook 'user-save-hook #'+clean-empty-lines)
(user-save-mode +1))
(user-save-global-mode +1))
(setup +key
(+ensure-after-init #'+key-global-mode))

13
lisp/user-save.el
View File

@ -73,9 +73,16 @@ whether the buffer needs to be saved."
(define-minor-mode user-save-mode
"Mode to enable an an extra user-save hook."
:lighter " US"
:global t
:keymap 'user-save-mode-map
(if user-save-mode
:keymap user-save-mode-map)
;;;###autoload
(defun turn-off-user-save-mode ()
"Turn off `user-save-mode' in the current buffer."
(user-save-mode -1))
;;;###autoload
(define-globalized-minor-mode user-save-global-mode user-save-mode user-save-mode
(if user-save-global-mode
(when user-save-hook-into-kill-emacs
(add-hook 'kill-emacs-hook #'user-save-some-buffers))
(remove-hook 'kill-emacs-hook #'user-save-some-buffers)))