diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/user-save.el | 13 |
1 files changed, 10 insertions, 3 deletions
| diff --git a/lisp/user-save.el b/lisp/user-save.el index 1284547..8e01af1 100644 --- a/lisp/user-save.el +++ b/lisp/user-save.el | |||
| @@ -73,9 +73,16 @@ whether the buffer needs to be saved." | |||
| 73 | (define-minor-mode user-save-mode | 73 | (define-minor-mode user-save-mode |
| 74 | "Mode to enable an an extra user-save hook." | 74 | "Mode to enable an an extra user-save hook." |
| 75 | :lighter " US" | 75 | :lighter " US" |
| 76 | :global t | 76 | :keymap user-save-mode-map) |
| 77 | :keymap 'user-save-mode-map | 77 | |
| 78 | (if user-save-mode | 78 | ;;;###autoload |
| 79 | (defun turn-off-user-save-mode () | ||
| 80 | "Turn off `user-save-mode' in the current buffer." | ||
| 81 | (user-save-mode -1)) | ||
| 82 | |||
| 83 | ;;;###autoload | ||
| 84 | (define-globalized-minor-mode user-save-global-mode user-save-mode user-save-mode | ||
| 85 | (if user-save-global-mode | ||
| 79 | (when user-save-hook-into-kill-emacs | 86 | (when user-save-hook-into-kill-emacs |
| 80 | (add-hook 'kill-emacs-hook #'user-save-some-buffers)) | 87 | (add-hook 'kill-emacs-hook #'user-save-some-buffers)) |
| 81 | (remove-hook 'kill-emacs-hook #'user-save-some-buffers))) | 88 | (remove-hook 'kill-emacs-hook #'user-save-some-buffers))) |