From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 19 Jan 2002 00:12:10 +0000 (+0000)
Subject: (save-abbrevs, save-some-buffers): Don't ask the user
X-Git-Tag: emacs-21.2~171
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3ac34ae31b00bffd7b7f1dd24f6d6249b4d50f1e;p=emacs.git

(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 8e273c94077..15d2ede5228 100644
--- 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 12ad644cf32..b20bc253744 100644
--- 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))