# HG changeset patch
# User Nick Roberts <nickrob@snap.net.nz>
# Date 1249337270 0
# Node ID d37c3737e41f0222df244322898a42f53e0ea050
# Parent  a01de4859d65de12a9def890ccc566eeed42c652
(jdb): Set gud-jdb-classpath-string to current
directory if CLASSPATH is not set.

diff -r a01de4859d65 -r d37c3737e41f lisp/progmodes/gud.el
--- a/lisp/progmodes/gud.el	Mon Aug 03 22:07:23 2009 +0000
+++ b/lisp/progmodes/gud.el	Mon Aug 03 22:07:50 2009 +0000
@@ -2269,7 +2269,7 @@
 
   ;; 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)))