From bb6177177ba48fc7f7e6cb54b8d2561694ab7859 Mon Sep 17 00:00:00 2001 From: Lars Magne Ingebrigtsen Date: Thu, 30 Jun 2011 03:09:13 +0200 Subject: [PATCH] (rgrep): Bind `process-connection-type' to nil, because using a pty is apparently too slow (bug #895). --- lisp/ChangeLog | 5 +++++ lisp/progmodes/grep.el | 6 ++++-- 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 + + * 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 * 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)) -- 2.39.2