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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 62fbf81..29ae371 100644 (file)
--- 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 db8e821..d00189f 100644 (file)
--- 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))