[Emacs-diffs] emacs/lisp/progmodes grep.el

[Juri Linkov]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Juri Linkov <jurta>     09/08/12 20:54:46

Modified files:
        lisp/progmodes : grep.el 

Log message:
        (lgrep): Ensure that `default-directory' is always non-nil.  (Bug#4052)

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/progmodes/grep.el?cvsroot=emacs&r1=1.102&r2=1.103

Patches:
Index: grep.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/progmodes/grep.el,v
retrieving revision 1.102
retrieving revision 1.103
diff -u -b -r1.102 -r1.103
--- grep.el     8 Jul 2009 14:24:00 -0000       1.102
+++ grep.el     12 Aug 2009 20:54:46 -0000      1.103
@@ -827,7 +827,7 @@
                                          command nil nil 'grep-history))
            (add-to-history 'grep-history command))))
       (when command
-       (let ((default-directory dir))
+       (let ((default-directory (or dir default-directory)))
          ;; Setting process-setup-function makes exit-message-function work
          ;; even when async processes aren't supported.
          (compilation-start (if (and grep-use-null-device null-device)