# HG changeset patch
# User Eli Zaretskii <eliz@gnu.org>
# Date 1007490357 0
# Node ID ce19ab149767472ac412c44fbf91f774183b57f8
# Parent  51c83c94195afea2780b961753f81f1584b0c14b
(save-abbrevs, save-some-buffers): Don't ask the user
before saving abbrevs if `save-abbrevs' has the value `silently'.

diff -r 51c83c94195a -r ce19ab149767 lisp/files.el
--- a/lisp/files.el	Tue Dec 04 18:21:44 2001 +0000
+++ b/lisp/files.el	Tue Dec 04 18:25:57 2001 +0000
@@ -312,8 +312,9 @@
   :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 @@
 	    (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))