[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs/lisp/progmodes grep.el
From: |
Juri Linkov |
Subject: |
[Emacs-diffs] emacs/lisp/progmodes grep.el |
Date: |
Wed, 12 Aug 2009 20:54:46 +0000 |
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)
- [Emacs-diffs] emacs/lisp/progmodes grep.el,
Juri Linkov <=