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

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 8f4bccc8480c0ca3706811150040606cc4cadc9a..e20bdca58599612066e183c3b50bf128a57023a1 100644 (file)
--- 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 20bd88fc34ba60758c8c142baab2f2e865205a5e..2c03d0fcadfc0f7301d717f943ea2c6846c2d9f3 100644 (file)
--- 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))