Commit ac8cf6e6 authored by Juri Linkov's avatar Juri Linkov
Browse files

* lisp/progmodes/grep.el (rgrep): Don't bind `process-connection-type'.

This finishes incomplete reversion of 2011-06-30T01:09:13Z!larsi@gnus.org (2011-06-30)
intended by 2011-07-06T15:49:19Z!larsi@gnus.org (2011-07-06).
parent 7be1c708
2011-08-10 Juri Linkov <juri@jurta.org>
* progmodes/grep.el (rgrep): Don't bind `process-connection-type'.
This finishes incomplete reversion of 2011-06-30T01:09:13Z!larsi@gnus.org
intended by 2011-07-06T15:49:19Z!larsi@gnus.org.
2011-08-09 Chong Yidong <cyd@stupidchicken.com> 2011-08-09 Chong Yidong <cyd@stupidchicken.com>
* hi-lock.el (hi-lock-unface-buffer): Fix interactive spec * hi-lock.el (hi-lock-unface-buffer): Fix interactive spec
......
...@@ -1023,8 +1023,7 @@ This command shares argument histories with \\[lgrep] and \\[grep-find]." ...@@ -1023,8 +1023,7 @@ This command shares argument histories with \\[lgrep] and \\[grep-find]."
(read-from-minibuffer "Confirm: " (read-from-minibuffer "Confirm: "
command nil nil 'grep-find-history)) command nil nil 'grep-find-history))
(add-to-history 'grep-find-history command)) (add-to-history 'grep-find-history command))
(let ((default-directory dir) (let ((default-directory dir))
(process-connection-type nil))
(compilation-start command 'grep-mode)) (compilation-start command 'grep-mode))
;; Set default-directory if we started rgrep in the *grep* buffer. ;; Set default-directory if we started rgrep in the *grep* buffer.
(if (eq next-error-last-buffer (current-buffer)) (if (eq next-error-last-buffer (current-buffer))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment