(rgrep): Bind `process-connection-type' to nil, because using a pty is apparently too slow (bug #895).

2 files changed, 9 insertions, 2 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 62fbf813ce2..29ae3715531 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+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.
diff --git a/lisp/progmodes/grep.el b/lisp/progmodes/grep.el
index db8e82193b3..d00189f15c3 100644
--- a/lisp/progmodes/grep.el
+++ b/lisp/progmodes/grep.el
@@ -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))