diff options
| -rw-r--r-- | lisp/files.el | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/lisp/files.el b/lisp/files.el index eca52e0ddd3..7a662594bb6 100644 --- a/lisp/files.el +++ b/lisp/files.el | |||
| @@ -4783,7 +4783,9 @@ Before and after saving the buffer, this function runs | |||
| 4783 | ;; Support VC `implicit' locking. | 4783 | ;; Support VC `implicit' locking. |
| 4784 | (vc-after-save) | 4784 | (vc-after-save) |
| 4785 | (run-hooks 'after-save-hook)) | 4785 | (run-hooks 'after-save-hook)) |
| 4786 | (or noninteractive (message "(No changes need to be saved)"))))) | 4786 | (or noninteractive |
| 4787 | (not (called-interactively-p 'any)) | ||
| 4788 | (message "(No changes need to be saved)"))))) | ||
| 4787 | 4789 | ||
| 4788 | ;; This does the "real job" of writing a buffer into its visited file | 4790 | ;; This does the "real job" of writing a buffer into its visited file |
| 4789 | ;; and making a backup file. This is what is normally done | 4791 | ;; and making a backup file. This is what is normally done |
| @@ -5024,7 +5026,8 @@ change the additional actions you can take on files." | |||
| 5024 | (or queried (> files-done 0) abbrevs-done | 5026 | (or queried (> files-done 0) abbrevs-done |
| 5025 | (cond | 5027 | (cond |
| 5026 | ((null autosaved-buffers) | 5028 | ((null autosaved-buffers) |
| 5027 | (message "(No files need saving)")) | 5029 | (when (called-interactively-p 'any) |
| 5030 | (message "(No files need saving)"))) | ||
| 5028 | ((= (length autosaved-buffers) 1) | 5031 | ((= (length autosaved-buffers) 1) |
| 5029 | (message "(Saved %s)" (car autosaved-buffers))) | 5032 | (message "(Saved %s)" (car autosaved-buffers))) |
| 5030 | (t | 5033 | (t |