Mercurial > emacs
comparison lisp/progmodes/grep.el @ 82421:84edadc1cf67
Whitespace fix.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Fri, 17 Aug 2007 04:30:09 +0000 |
parents | b98604865ea0 |
children | 309cf30d46f5 aaccdab0ee26 |
comparison
equal
deleted
inserted
replaced
82420:7aa89a06bbac | 82421:84edadc1cf67 |
---|---|
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 |