[PATCH 1/2] Simplify handling of the main class name in `jde-debug'.

Paul Landes <[email protected]>
Newsgroups gmane.emacs.jdee.user,gmane.emacs.jdee.devel
Message-ID <[email protected]>
Also rejected for the reason of the previous email.  Also, will you
start putting these in one long email?

Thanks.

Ludovic Courtès writes:
 > * 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


-- 
Paul Landes
[email protected]

------------------------------------------------------------------------------
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
lmpx.com only provides a reader for public news (NNTP) servers. It is not affiliated with the servers or forums shown here and is not responsible for the content of articles, which is written by their respective authors.