Mercurial > emacs
changeset 47787:1207b03521f9
(grep-compute-defaults): Set the standard-value
properties of the variables being initialized.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 07 Oct 2002 22:48:47 +0000 |
| parents | a9de3e936eef |
| children | 1174e4c84d58 |
| files | lisp/progmodes/compile.el |
| diffstat | 1 files changed, 11 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/progmodes/compile.el Mon Oct 07 22:47:41 2002 +0000 +++ b/lisp/progmodes/compile.el Mon Oct 07 22:48:47 2002 +0000 @@ -100,7 +100,8 @@ (error nil)) 1) (format "%s %s -e " grep-program required-options) - (format "%s %s " grep-program required-options))))) + (format "%s %s " grep-program required-options)))) + (put 'grep-command 'standard-value (list (custom-quote grep-command)))) (unless grep-find-use-xargs (setq grep-find-use-xargs (if (and @@ -110,7 +111,9 @@ (equal (call-process "xargs" nil nil nil "-0" "-e" "echo") 0)) - 'gnu))) + 'gnu)) + (put 'grep-find-use-xargs 'standard-value + (list (custom-quote grep-find-use-xargs)))) (unless grep-find-command (setq grep-find-command (cond ((eq grep-find-use-xargs 'gnu) @@ -121,7 +124,9 @@ find-program grep-command)) (t (cons (format "%s . -type f -exec %s {} %s \\;" find-program grep-command null-device) - (+ 22 (length grep-command))))))) + (+ 22 (length grep-command)))))) + (put 'grep-find-command 'standard-value + (list (custom-quote grep-find-command)))) (unless grep-tree-command (setq grep-tree-command (let* ((glen (length grep-program)) @@ -133,7 +138,9 @@ (format "%s <D> <X> -type f <F> -print | xargs %s <R>" find-program gcmd)) (t (format "%s <D> <X> -type f <F> -exec %s <R> {} %s \\;" - find-program gcmd null-device))))))) + find-program gcmd null-device))))) + (put 'grep-tree-command 'standard-value + (list (custom-quote grep-tree-command))))) (defcustom grep-command nil "The default grep command for \\[grep].