From 938f104f1b8de0a082f4736aaf504cea4f65765e Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Mon, 29 Feb 2016 08:51:12 -0800 Subject: [PATCH] * lisp/progmodes/grep.el (grep-save-buffers): Fix type, tweak doc. --- lisp/progmodes/grep.el | 14 ++++++-------- 1 file changed, 6 insertions(+), 8 deletions(-) diff --git a/lisp/progmodes/grep.el b/lisp/progmodes/grep.el index a0b7e7d1bf5..2b44b58f245 100644 --- a/lisp/progmodes/grep.el +++ b/lisp/progmodes/grep.el @@ -229,20 +229,18 @@ to determine whether cdr should not be excluded." (defcustom grep-save-buffers 'ask "If non-nil, save buffers before running the grep commands. -If `ask', ask before saving. If the variable is a function, it -will be used as a predicate that should say whether the buffer should -be saved or not. -E.g., one can set this to +If `ask', ask before saving. If a function, call it with no arguments +with each buffer current, as a predicate to determine whether that +buffer should be saved or not. E.g., one can set this to (lambda () (string-prefix-p my-grep-root (file-truename (buffer-file-name)))) to limit saving to files located under `my-grep-root'." :version "25.2" :type '(choice - (const :tag "Default (ask before saving)" ask) + (const :tag "Ask before saving" ask) (const :tag "Don't save buffers" nil) - (const :tag "Save all buffers" t) - function) - :type 'boolean + function + (other :tag "Save all buffers" t)) :group 'grep) (defcustom grep-error-screen-columns nil -- 2.39.5