[Emacs-diffs] /srv/bzr/emacs/trunk r104787: (rgrep): Bind `process-connection-type' to nil, because using a pty is apparently too slow (bug #895).

[Lars Magne Ingebrigtsen]

------------------------------------------------------------
revno: 104787
committer: Lars Magne Ingebrigtsen <address@hidden>
branch nick: trunk
timestamp: Thu 2011-06-30 03:09:13 +0200
message:
  (rgrep): Bind `process-connection-type' to nil, because using a pty is 
apparently too slow (bug #895).
modified:
  lisp/ChangeLog
  lisp/progmodes/grep.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2011-06-29 20:21:29 +0000
+++ b/lisp/ChangeLog    2011-06-30 01:09:13 +0000
@@ -1,3 +1,8 @@
+2011-06-30  Lars Magne Ingebrigtsen  <address@hidden>
+
+       * 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  <address@hidden>
 
        * mail/sendmail.el (sendmail-query-once): New function.

=== modified file 'lisp/progmodes/grep.el'
--- a/lisp/progmodes/grep.el    2011-05-22 17:19:24 +0000
+++ b/lisp/progmodes/grep.el    2011-06-30 01:09:13 +0000
@@ -966,7 +966,8 @@
       (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 @@
                    (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))