diff options
| author | Lars Magne Ingebrigtsen | 2011-07-06 17:49:19 +0200 |
|---|---|---|
| committer | Lars Magne Ingebrigtsen | 2011-07-06 17:49:19 +0200 |
| commit | 12b167347fb77c981e0b0fb34bd2e7d6c5eeddf6 (patch) | |
| tree | 99505870f4e41805740420cd05db97ff94e7f7b9 | |
| parent | 9e87df06a36582aba40079304f1ca63cce5d90b6 (diff) | |
| download | emacs-12b167347fb77c981e0b0fb34bd2e7d6c5eeddf6.tar.gz emacs-12b167347fb77c981e0b0fb34bd2e7d6c5eeddf6.zip | |
* progmodes/grep.el (rgrep): Don't bind `process-connection-type', because that makes the colours go away.
| -rw-r--r-- | lisp/ChangeLog | 3 | ||||
| -rw-r--r-- | lisp/progmodes/grep.el | 3 |
2 files changed, 4 insertions, 2 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 28309f913ca..e26ad08244f 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,5 +1,8 @@ | |||
| 1 | 2011-07-06 Lars Magne Ingebrigtsen <larsi@gnus.org> | 1 | 2011-07-06 Lars Magne Ingebrigtsen <larsi@gnus.org> |
| 2 | 2 | ||
| 3 | * progmodes/grep.el (rgrep): Don't bind `process-connection-type', | ||
| 4 | because that makes the colours go away. | ||
| 5 | |||
| 3 | * mail/sendmail.el (send-mail-function): Change the default to | 6 | * mail/sendmail.el (send-mail-function): Change the default to |
| 4 | `sendmail-query-once'. | 7 | `sendmail-query-once'. |
| 5 | (sendmail-query-once): Add an autoload cookie. | 8 | (sendmail-query-once): Add an autoload cookie. |
diff --git a/lisp/progmodes/grep.el b/lisp/progmodes/grep.el index d00189f15c3..5561575ea20 100644 --- a/lisp/progmodes/grep.el +++ b/lisp/progmodes/grep.el | |||
| @@ -966,8 +966,7 @@ This command shares argument histories with \\[lgrep] and \\[grep-find]." | |||
| 966 | (setq dir default-directory)) | 966 | (setq dir default-directory)) |
| 967 | (if (null files) | 967 | (if (null files) |
| 968 | (if (not (string= regexp grep-find-command)) | 968 | (if (not (string= regexp grep-find-command)) |
| 969 | (let ((process-connection-type nil)) | 969 | (compilation-start regexp 'grep-mode)) |
| 970 | (compilation-start regexp 'grep-mode))) | ||
| 971 | (setq dir (file-name-as-directory (expand-file-name dir))) | 970 | (setq dir (file-name-as-directory (expand-file-name dir))) |
| 972 | (require 'find-dired) ; for `find-name-arg' | 971 | (require 'find-dired) ; for `find-name-arg' |
| 973 | (let ((command (grep-expand-template | 972 | (let ((command (grep-expand-template |