Mercurial > emacs
comparison lisp/progmodes/grep.el @ 91010:aaccdab0ee26
Merge from emacs--devo--0
Patches applied:
* emacs--devo--0 (patch 852-856)
- Update from CVS
- Merge from emacs--rel--22
* emacs--rel--22 (patch 93-96)
- Update from CVS
- Merge from gnus--rel--5.10
* gnus--rel--5.10 (patch 245)
- Update from CVS
Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-249
| author | Miles Bader <miles@gnu.org> |
|---|---|
| date | Tue, 21 Aug 2007 04:54:03 +0000 |
| parents | f55f9811f5d7 84edadc1cf67 |
| children | bdb3fe0ba9fa |
comparison
equal
deleted
inserted
replaced
| 91009:e7395a700642 | 91010:aaccdab0ee26 |
|---|---|
| 768 (let ((default-directory dir)) | 768 (let ((default-directory dir)) |
| 769 ;; Setting process-setup-function makes exit-message-function work | 769 ;; Setting process-setup-function makes exit-message-function work |
| 770 ;; even when async processes aren't supported. | 770 ;; even when async processes aren't supported. |
| 771 (compilation-start (if (and grep-use-null-device null-device) | 771 (compilation-start (if (and grep-use-null-device null-device) |
| 772 (concat command " " null-device) | 772 (concat command " " null-device) |
| 773 command) 'grep-mode)) | 773 command) |
| 774 'grep-mode)) | |
| 774 (if (eq next-error-last-buffer (current-buffer)) | 775 (if (eq next-error-last-buffer (current-buffer)) |
| 775 (setq default-directory dir)))))) | 776 (setq default-directory dir)))))) |
| 776 | 777 |
| 777 | 778 |
| 778 | 779 |