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