Proposed change to save-abbrevs

[Juanma Barranquero]

I want abbrevs saved automatically, but I hate being asked about it.
This patch allows silent saving of the abbrevs.


                                                           /L/e/k/t/u





2001-11-29  Juanma Barranquero  <address@hidden>

        * files.el (save-abbrevs, save-some-buffers): Don't ask the user
        before saving abbrevs if `save-abbrevs' has the value `silently'.


Index: files.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/files.el,v
retrieving revision 1.539
diff -u -r1.539 files.el
--- files.el    2001/11/24 23:59:28     1.539
+++ files.el    2001/11/29 13:43:58
@@ -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))