From: Nick Roberts <nickrob@snap.net.nz>
Date: Mon, 3 Aug 2009 22:07:50 +0000 (+0000)
Subject: (jdb): Set gud-jdb-classpath-string to current
X-Git-Tag: emacs-pretest-23.1.90~1966
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5c0309109e1c467465fbb8618ea05e7b4433b5e2;p=emacs.git

(jdb): Set gud-jdb-classpath-string to current
directory if CLASSPATH is not set.
---

diff --git a/lisp/progmodes/gud.el b/lisp/progmodes/gud.el
index f2e3a54459e..c20f5adeefc 100644
--- a/lisp/progmodes/gud.el
+++ b/lisp/progmodes/gud.el
@@ -2269,7 +2269,7 @@ gud, see `gud-mode'."
 
   ;; Set gud-jdb-classpath from the CLASSPATH environment variable,
   ;; if CLASSPATH is set.
-  (setq gud-jdb-classpath-string (getenv "CLASSPATH"))
+  (setq gud-jdb-classpath-string (or (getenv "CLASSPATH") "."))
   (if gud-jdb-classpath-string
       (setq gud-jdb-classpath
 	    (gud-jdb-parse-classpath-string gud-jdb-classpath-string)))