Mercurial > emacs
comparison lisp/progmodes/grep.el @ 104243:a3d4286317ce
(lgrep): Ensure that `default-directory' is always non-nil. (Bug#4052)
author | Juri Linkov <juri@jurta.org> |
---|---|
date | Wed, 12 Aug 2009 20:54:46 +0000 |
parents | fb68f473a020 |
children | b8afce0dc654 |
comparison
equal
deleted
inserted
replaced
104242:a50d4857b8e8 | 104243:a3d4286317ce |
---|---|
825 (setq command | 825 (setq command |
826 (read-from-minibuffer "Confirm: " | 826 (read-from-minibuffer "Confirm: " |
827 command nil nil 'grep-history)) | 827 command nil nil 'grep-history)) |
828 (add-to-history 'grep-history command)))) | 828 (add-to-history 'grep-history command)))) |
829 (when command | 829 (when command |
830 (let ((default-directory dir)) | 830 (let ((default-directory (or dir default-directory))) |
831 ;; Setting process-setup-function makes exit-message-function work | 831 ;; Setting process-setup-function makes exit-message-function work |
832 ;; even when async processes aren't supported. | 832 ;; even when async processes aren't supported. |
833 (compilation-start (if (and grep-use-null-device null-device) | 833 (compilation-start (if (and grep-use-null-device null-device) |
834 (concat command " " null-device) | 834 (concat command " " null-device) |
835 command) | 835 command) |