(save-abbrevs, save-some-buffers): Don't ask the user

before saving abbrevs if `save-abbrevs' has the value `silently'.

2 files changed, 9 insertions, 2 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 8f4bccc8480..e20bdca5859 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2001-12-04  Juanma Barranquero  <lektu@terra.es>
+
+        * files.el (save-abbrevs, save-some-buffers): Don't ask the user
+        before saving abbrevs if `save-abbrevs' has the value `silently'.
+
 2001-12-04  Andreas Schwab  <schwab@suse.de>
 
         * xt-mouse.el (turn-off-xterm-mouse-tracking): Doc fix.
diff --git a/lisp/files.el b/lisp/files.el
index 20bd88fc34b..2c03d0fcadf 100644
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -312,8 +312,9 @@ editing a remote file."
   :version "21.1")
 
 (defcustom save-abbrevs t
-  "*Non-nil means save word abbrevs too when files are saved."
-  :type 'boolean
+  "*Non-nil means save word abbrevs too when files are saved.
+If `silently', don't ask the user before saving."
+  :type '(choice (const t) (const nil) (const silently))
   :group 'abbrev)
 
 (defcustom find-file-run-dired t
@@ -2804,6 +2805,7 @@ to consider it or not when called with that buffer current."
             (and save-abbrevs abbrevs-changed
                  (progn
                    (if (or arg
+                           (eq save-abbrevs 'silently)
                            (y-or-n-p (format "Save abbrevs in %s? "
                                              abbrev-file-name)))
                        (write-abbrev-file nil))