diff options
| author | Artur Malabarba <bruce.connor.am@gmail.com> | 2015-04-12 12:01:24 +0100 |
|---|---|---|
| committer | Artur Malabarba <bruce.connor.am@gmail.com> | 2015-04-12 13:45:30 +0100 |
| commit | ad36067a1ea2204c51018de63e8eb2b71879ecb0 (patch) | |
| tree | 2648b11cce84893e6dd21abb7bd09ef62357f698 /lisp/files.el | |
| parent | 25449e7296fe6e5cd9bca49ae1bc52d1552d5324 (diff) | |
| download | emacs-ad36067a1ea2204c51018de63e8eb2b71879ecb0.tar.gz emacs-ad36067a1ea2204c51018de63e8eb2b71879ecb0.tar.bz2 emacs-ad36067a1ea2204c51018de63e8eb2b71879ecb0.zip | |
* lisp/files.el: Don't message when nothing happened
(save-some-buffers, basic-save-buffer): Before messaging to say
"nothing was saved" check if (called-interactively-p 'any).
Diffstat (limited to 'lisp/files.el')
| -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 ;; Support VC `implicit' locking. (vc-after-save) (run-hooks 'after-save-hook)) - (or noninteractive (message "(No changes need to be saved)"))))) + (or noninteractive + (not (called-interactively-p 'any)) + (message "(No changes need to be saved)"))))) ;; This does the "real job" of writing a buffer into its visited file ;; and making a backup file. This is what is normally done @@ -5024,7 +5026,8 @@ change the additional actions you can take on files." (or queried (> files-done 0) abbrevs-done (cond ((null autosaved-buffers) - (message "(No files need saving)")) + (when (called-interactively-p 'any) + (message "(No files need saving)"))) ((= (length autosaved-buffers) 1) (message "(Saved %s)" (car autosaved-buffers))) (t |