* jde/lisp/jde-db.el (jde-debug): Simplify the definition of MAIN-CLASS
(renamed from APPLICATION-MAIN-CLASS).
---
jde/lisp/jde-db.el | 22 ++++++----------------
1 files changed, 6 insertions(+), 16 deletions(-)
diff --git a/jde/lisp/jde-db.el b/jde/lisp/jde-db.el
index 5d7c822..6e7a41d 100644
--- a/jde/lisp/jde-db.el
+++ b/jde/lisp/jde-db.el
@@ -1592,26 +1592,16 @@ With a negative prefix, prompts for the main class
name."
(jde-bug-debug-app)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(let* ((debugger (jde-db-get-the-debugger))
- (application-main-class
- (let ((main-class (if (and (integerp prefix) (< prefix 0))
- (jde-read-class-name
- jde-run-application-class)
- jde-run-application-class)))
- (if (or
- (not main-class)
- (string= main-class ""))
- (setq main-class
- (if (buffer-file-name)
- (concat (jde-db-get-package)
- (file-name-sans-extension
- (file-name-nondirectory
(buffer-file-name))))
- (read-string "Java class to debug: "))))
- main-class))
+ (main-class (if (and (integerp prefix) (< prefix 0))
+ (jde-read-class-name
+ jde-run-application-class)
+ (or jde-run-application-class
+ (jde-read-class-name))))
(cmd-set (oref debugger cmd-set))
(launch-cmd (oref cmd-set launch-app)))
- (jde-db-create-debuggee-app debugger application-main-class)
+ (jde-db-create-debuggee-app debugger main-class)
(if (not (oref debugger running-p))
(jde-db-debugger-start debugger))
--
1.6.1.3
------------------------------------------------------------------------------
Let Crystal Reports handle the reporting - Free Crystal Reports 2008 30-Day
trial. Simplify your report design, integration and deployment - and focus on
what you do best, core application coding. Discover what's new with
Crystal Reports now. http://p.sf.net/sfu/bobj-july
_______________________________________________
jdee-users mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/jdee-users
