From 02c6a1ccf0e98cf71c1b647750c04a2b42025ff9 Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Tue, 4 Dec 2001 18:27:06 +0000 Subject: [PATCH] (save-abbrevs, save-some-buffers): Don't ask the user before saving abbrevs if `save-abbrevs' has the value `silently'. --- lisp/ChangeLog | 5 +++++ lisp/files.el | 6 ++++-- 2 files changed, 9 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 8f4bccc8480..e20bdca5859 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2001-12-04 Juanma Barranquero + + * files.el (save-abbrevs, save-some-buffers): Don't ask the user + before saving abbrevs if `save-abbrevs' has the value `silently'. + 2001-12-04 Andreas Schwab * xt-mouse.el (turn-off-xterm-mouse-tracking): Doc fix. diff --git a/lisp/files.el b/lisp/files.el index 20bd88fc34b..2c03d0fcadf 100644 --- a/lisp/files.el +++ b/lisp/files.el @@ -312,8 +312,9 @@ editing a remote file." :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 @@ 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)) -- 2.39.2