From ad36067a1ea2204c51018de63e8eb2b71879ecb0 Mon Sep 17 00:00:00 2001 From: Artur Malabarba Date: Sun, 12 Apr 2015 12:01:24 +0100 Subject: [PATCH] * 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). --- lisp/files.el | 7 +++++-- 1 file 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 -- 2.11.4.GIT