[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master ad36067 1/3: * lisp/files.el: Don't message when no
From: |
Artur Malabarba |
Subject: |
[Emacs-diffs] master ad36067 1/3: * lisp/files.el: Don't message when nothing happened |
Date: |
Sun, 12 Apr 2015 12:47:39 +0000 |
branch: master
commit ad36067a1ea2204c51018de63e8eb2b71879ecb0
Author: Artur Malabarba <address@hidden>
Commit: Artur Malabarba <address@hidden>
* 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 files changed, 5 insertions(+), 2 deletions(-)
diff --git a/lisp/files.el b/lisp/files.el
index eca52e0..7a66259 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