(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 8e273c9407751b860389c398fe46d2a6ecacb999..15d2ede5228de9c3daa8bfc9ec90493ab0927561 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2002-01-18  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'.
+
 2002-01-16  Richard M. Stallman  <rms@gnu.org>
 
        * net/net-utils.el (network-connection-service-abbrev-alist):

diff --git a/lisp/files.el b/lisp/files.el
index 12ad644cf32a7ead22d1ee9999cfe490bea9496c..b20bc25374431b5d00c0db7d14c47abd6d813919 100644 (file)
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -322,8 +322,9 @@ editing a remote file."
 
 (defcustom save-abbrevs nil
   "*Non-nil means save word abbrevs too when files are saved.
+If `silently', don't ask the user before saving.
 Loading an abbrev file sets this to t."
-  :type 'boolean
+  :type '(choice (const t) (const nil) (const silently))
   :group 'abbrev)
 
 (defcustom find-file-run-dired t
@@ -2781,6 +2782,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))