aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorGlenn Morris2016-02-29 08:51:12 -0800
committerGlenn Morris2016-02-29 08:51:12 -0800
commit938f104f1b8de0a082f4736aaf504cea4f65765e (patch)
treec157c9d2b3ce30fe3da71f9df18e14605ef4a7e8
parentcffe077b76769e8b5b109cf3cbbdfdcf31e1150d (diff)
downloademacs-938f104f1b8de0a082f4736aaf504cea4f65765e.tar.gz
emacs-938f104f1b8de0a082f4736aaf504cea4f65765e.zip
* lisp/progmodes/grep.el (grep-save-buffers): Fix type, tweak doc.
-rw-r--r--lisp/progmodes/grep.el14
1 files 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."
229 229
230(defcustom grep-save-buffers 'ask 230(defcustom grep-save-buffers 'ask
231 "If non-nil, save buffers before running the grep commands. 231 "If non-nil, save buffers before running the grep commands.
232If `ask', ask before saving. If the variable is a function, it 232If `ask', ask before saving. If a function, call it with no arguments
233will be used as a predicate that should say whether the buffer should 233with each buffer current, as a predicate to determine whether that
234be saved or not. 234buffer should be saved or not. E.g., one can set this to
235E.g., one can set this to
236 (lambda () 235 (lambda ()
237 (string-prefix-p my-grep-root (file-truename (buffer-file-name)))) 236 (string-prefix-p my-grep-root (file-truename (buffer-file-name))))
238to limit saving to files located under `my-grep-root'." 237to limit saving to files located under `my-grep-root'."
239 :version "25.2" 238 :version "25.2"
240 :type '(choice 239 :type '(choice
241 (const :tag "Default (ask before saving)" ask) 240 (const :tag "Ask before saving" ask)
242 (const :tag "Don't save buffers" nil) 241 (const :tag "Don't save buffers" nil)
243 (const :tag "Save all buffers" t) 242 function
244 function) 243 (other :tag "Save all buffers" t))
245 :type 'boolean
246 :group 'grep) 244 :group 'grep)
247 245
248(defcustom grep-error-screen-columns nil 246(defcustom grep-error-screen-columns nil