diff options
author | Juri Linkov <juri@jurta.org> | 2011-09-07 15:17:54 +0300 |
---|---|---|
committer | Juri Linkov <juri@jurta.org> | 2011-09-07 15:17:54 +0300 |
commit | 91ab9c13bfffea4b4c3634a1782e23da1b0de5b3 (patch) | |
tree | 54e2900b0bf7b6823e841f91ca18d1180169149a /lisp/vc | |
parent | 0527e251e5abfd1d574d0a5bc3c9348f7ec5a8ba (diff) | |
download | emacs-91ab9c13bfffea4b4c3634a1782e23da1b0de5b3.tar.gz |
* lisp/progmodes/compile.el (compilation-start): Let-bind `thisenv' to
`compilation-environment'. Set buffer-local
`compilation-environment' to `thisenv' later after (funcall mode).
(Bug#8340)
* lisp/vc/vc-git.el (vc-git-grep): Remove --no-color. (Bug#9408)
(vc-git-grep): Prepend "PAGER=" to `compilation-environment'
instead of replacing its value. (Bug#8340)
Diffstat (limited to 'lisp/vc')
-rw-r--r-- | lisp/vc/vc-git.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/vc/vc-git.el b/lisp/vc/vc-git.el index fc42b43c97d..1bb246fea0b 100644 --- a/lisp/vc/vc-git.el +++ b/lisp/vc/vc-git.el @@ -988,7 +988,7 @@ This command shares argument histories with \\[rgrep] and \\[grep]." (setq command nil)) (setq dir (file-name-as-directory (expand-file-name dir))) (setq command - (grep-expand-template "git grep --no-color -n -e <R> -- <F>" + (grep-expand-template "git grep -n -e <R> -- <F>" regexp files)) (when command (if (equal current-prefix-arg '(4)) @@ -998,7 +998,7 @@ This command shares argument histories with \\[rgrep] and \\[grep]." (add-to-history 'grep-history command)))) (when command (let ((default-directory dir) - (compilation-environment '("PAGER="))) + (compilation-environment (cons "PAGER=" compilation-environment))) ;; Setting process-setup-function makes exit-message-function work ;; even when async processes aren't supported. (compilation-start command 'grep-mode)) |