mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-26 10:49:33 +00:00
Code Issues Releases Activity

Revert "Allow to customize names of executables used by grep.el"

Browse Source 
This reverts commit c93ae7a1e5.
This commit is contained in:
Eli Zaretskii 2016-04-21 05:08:29 +03:00
parent 570e0fa357
commit 1ba947f275
1 changed files with 16 additions and 32 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

48
lisp/progmodes/grep.el
View File

@ -411,34 +411,21 @@ Notice that using \\[next-error] or \\[compile-goto-error] modifies
This gets tacked on the end of the generated expressions.")
;;;###autoload
(defcustom grep-program (purecopy "grep")
(defvar grep-program (purecopy "grep")
"The default grep program for `grep-command' and `grep-find-command'.
This variable's value takes effect when `grep-compute-defaults' is called."
:type 'string
:version "25.1"
:group 'grep)
This variable's value takes effect when `grep-compute-defaults' is called.")
;;;###autoload
(defcustom grep-find-program (purecopy "find")
(defvar find-program (purecopy "find")
"The default find program.
This is used by commands like `grep-find-command', `find-dired'
and others."
:type 'string
:version "25.1"
:group 'grep)
(define-obsolete-variable-alias 'find-program 'grep-find-program "25.1")
and others.")
;;;###autoload
(defcustom grep-xargs-program (purecopy "xargs")
(defvar xargs-program (purecopy "xargs")
"The default xargs program for `grep-find-command'.
See `grep-find-use-xargs'.
This variable's value takes effect when `grep-compute-defaults' is called."
:type 'string
:version "25.1"
:group 'grep)
(define-obsolete-variable-alias 'xargs-program 'grep-xargs-program "25.1")
This variable's value takes effect when `grep-compute-defaults' is called.")
;;;###autoload
(defvar grep-find-use-xargs nil
@ -608,14 +595,13 @@ This function is called from `compilation-filter-hook'."
(unless grep-find-use-xargs
(setq grep-find-use-xargs
(cond
((grep-probe grep-find-program
((grep-probe find-program
`(nil nil nil ,null-device "-exec" "echo"
"{}" "+"))
'exec-plus)
((and
(grep-probe grep-find-program
`(nil nil nil ,null-device "-print0"))
(grep-probe grep-xargs-program `(nil nil nil "-0" "echo")))
(grep-probe find-program `(nil nil nil ,null-device "-print0"))
(grep-probe xargs-program `(nil nil nil "-0" "echo")))
'gnu)
(t
'exec))))
@ -626,11 +612,10 @@ This function is called from `compilation-filter-hook'."
;; after the pipe symbol be quoted if they use
;; forward slashes as directory separators.
(format "%s . -type f -print0 | \"%s\" -0 %s"
grep-find-program grep-xargs-program
grep-command))
find-program xargs-program grep-command))
((memq grep-find-use-xargs '(exec exec-plus))
(let ((cmd0 (format "%s . -type f -exec %s"
grep-find-program grep-command))
find-program grep-command))
(null (if grep-use-null-device
(format "%s " null-device)
"")))
@ -642,8 +627,7 @@ This function is called from `compilation-filter-hook'."
(1+ (length cmd0)))))
(t
(format "%s . -type f -print | \"%s\" %s"
grep-find-program grep-xargs-program
grep-command)))))
find-program xargs-program grep-command)))))
(unless grep-find-template
(setq grep-find-template
(let ((gcmd (format "%s <C> %s <R>"
@ -653,17 +637,17 @@ This function is called from `compilation-filter-hook'."
"")))
(cond ((eq grep-find-use-xargs 'gnu)
(format "%s <D> <X> -type f <F> -print0 | \"%s\" -0 %s"
grep-find-program grep-xargs-program gcmd))
find-program xargs-program gcmd))
((eq grep-find-use-xargs 'exec)
(format "%s <D> <X> -type f <F> -exec %s {} %s%s"
grep-find-program gcmd null
find-program gcmd null
(shell-quote-argument ";")))
((eq grep-find-use-xargs 'exec-plus)
(format "%s <D> <X> -type f <F> -exec %s %s{} +"
grep-find-program gcmd null))
find-program gcmd null))
(t
(format "%s <D> <X> -type f <F> -print | \"%s\" %s"
grep-find-program grep-xargs-program gcmd))))))))
find-program xargs-program gcmd))))))))
;; Save defaults for this host.
(setq grep-host-defaults-alist