diff options
| author | Glenn Morris | 2016-02-29 08:51:12 -0800 |
|---|---|---|
| committer | Glenn Morris | 2016-02-29 08:51:12 -0800 |
| commit | 938f104f1b8de0a082f4736aaf504cea4f65765e (patch) | |
| tree | c157c9d2b3ce30fe3da71f9df18e14605ef4a7e8 | |
| parent | cffe077b76769e8b5b109cf3cbbdfdcf31e1150d (diff) | |
| download | emacs-938f104f1b8de0a082f4736aaf504cea4f65765e.tar.gz emacs-938f104f1b8de0a082f4736aaf504cea4f65765e.zip | |
* lisp/progmodes/grep.el (grep-save-buffers): Fix type, tweak doc.
| -rw-r--r-- | lisp/progmodes/grep.el | 14 |
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. |
| 232 | If `ask', ask before saving. If the variable is a function, it | 232 | If `ask', ask before saving. If a function, call it with no arguments |
| 233 | will be used as a predicate that should say whether the buffer should | 233 | with each buffer current, as a predicate to determine whether that |
| 234 | be saved or not. | 234 | buffer should be saved or not. E.g., one can set this to |
| 235 | E.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)))) |
| 238 | to limit saving to files located under `my-grep-root'." | 237 | to 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 |