Commit bb617717 authored by Lars Magne Ingebrigtsen's avatar Lars Magne Ingebrigtsen
Browse files

(rgrep): Bind `process-connection-type' to nil, because using a pty is...

(rgrep): Bind `process-connection-type' to nil, because using a pty is apparently too slow (bug #895).
parent 3451795c
2011-06-30 Lars Magne Ingebrigtsen <larsi@gnus.org>
* progmodes/grep.el (rgrep): Bind `process-connection-type' to
nil, because using a pty is apparently too slow (bug #895).
2011-06-29 Lars Magne Ingebrigtsen <larsi@gnus.org>
* mail/sendmail.el (sendmail-query-once): New function.
......
......@@ -966,7 +966,8 @@ This command shares argument histories with \\[lgrep] and \\[grep-find]."
(setq dir default-directory))
(if (null files)
(if (not (string= regexp grep-find-command))
(compilation-start regexp 'grep-mode))
(let ((process-connection-type nil))
(compilation-start regexp 'grep-mode)))
(setq dir (file-name-as-directory (expand-file-name dir)))
(require 'find-dired) ; for `find-name-arg'
(let ((command (grep-expand-template
......@@ -1023,7 +1024,8 @@ This command shares argument histories with \\[lgrep] and \\[grep-find]."
(read-from-minibuffer "Confirm: "
command nil nil 'grep-find-history))
(add-to-history 'grep-find-history command))
(let ((default-directory dir))
(let ((default-directory dir)
(process-connection-type nil))
(compilation-start command 'grep-mode))
;; Set default-directory if we started rgrep in the *grep* 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