[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Proposed change to save-abbrevs
From: |
Juanma Barranquero |
Subject: |
Proposed change to save-abbrevs |
Date: |
Thu, 29 Nov 2001 14:45:42 +0100 |
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))
- Proposed change to save-abbrevs,
Juanma Barranquero <=