On Wed, 09 Sep 2009 21:45:22 +0200
"James López (BLuEGoD)" <[email protected]> wrote:
> -----BEGIN PGP SIGNED MESSAGE-----
> Hash: SHA1
>
> On 9/9/09 21:42, James López (BLuEGoD) wrote:
> > Hello,
> >
> > I have troubles running a Java pogram with JDE on emacs. Exactly
> > after doing C^c C^v C^r...
> >
> > My OS is Mac OS X 10.4.11
> > GNU Emacs 22.3.1 (powerpc-apple-darwin8.11.0) of 2008-11-08
> > JDEE version 2.3.6
> >
> > This is what I got:
> >
> > Debugger entered--Lisp error: (invalid-function save-w32-show-window)
> > save-w32-show-window(#<buffer *Boton*>)
> > #[(this) "«»\"Q \n&òÉ
>
> The whole debug not was pasted, here it is:
>
> Debugger entered--Lisp error: (invalid-function save-w32-show-window)
> save-w32-show-window(#<buffer *Boton*>)
> #[(this) "###"## \n?#
> ###!##!####!&'##(####")#!*#c#...@?##!####"C+,#z#...@?##!%-)##-!##.#&q######!#####c#.c####)###&####")##-%!####!##eb####)##f!-######"\"####+#"
> [this default-directory jde-run-working-directory working-directory
> source-directory run-buf-name "*" eieio-oref :main-class ""
> jde-normalize-path comint-check-proc get-buffer-create windows-nt :path
> append jde-run-get-vm-args jde-run-parse-args read-from-minibuffer "Vm
> args: " nil jde-run-interactive-vm-arg-history "Application args: "
> jde-run-interactive-app-arg-history " " jde-run-make-arg-string "\n\n"
> erase-buffer cd "cd " "\n" jde-run-mode save-w32-show-window comint-exec
> pop-to-buffer jde-run-etrace-update-current-marker message "An instance
> of %s is running." run-buffer system-type win32-p prog
> jde-run-read-vm-args jde-run-option-application-args
> jde-run-read-app-args prog-args command-string] 12]([object
> jde-run-vm-1-5 "JDK 1.5 vm" "1.5"
> "/System/Library/Frameworks/JavaVM.framework/Versions/1.5.0/Home/bin/java"
> unbound "Boton"])
> apply(#[(this) "###"## \n?#
> ###!##!####!&'##(####")#!*#c#...@?##!####"C+,#z#...@?##!%-)##-!##.#&q######!#####c#.c####)###&####")##-%!####!##eb####)##f!-######"\"####+#"
> [this default-directory jde-run-working-directory working-directory
> source-directory run-buf-name "*" eieio-oref :main-class ""
> jde-normalize-path comint-check-proc get-buffer-create windows-nt :path
> append jde-run-get-vm-args jde-run-parse-args read-from-minibuffer "Vm
> args: " nil jde-run-interactive-vm-arg-history "Application args: "
> jde-run-interactive-app-arg-history " " jde-run-make-arg-string "\n\n"
> erase-buffer cd "cd " "\n" jde-run-mode save-w32-show-window comint-exec
> pop-to-buffer jde-run-etrace-update-current-marker message "An instance
> of %s is running." run-buffer system-type win32-p prog
> jde-run-read-vm-args jde-run-option-application-args
> jde-run-read-app-args prog-args command-string] 12] [object
> jde-run-vm-1-5 "JDK 1.5 vm" "1.5"
> "/System/Library/Frameworks/JavaVM.framework/Versions/1.5.0/Home/bin/java"
> unbound "Boton"])
> jde-run-vm-launch([object jde-run-vm-1-5 "JDK 1.5 vm" "1.5"
> "/System/Library/Frameworks/JavaVM.framework/Versions/1.5.0/Home/bin/java"
> unbound "Boton"])
> (let ((jde-run-read-app-args read-app-args)) (jde-run-vm-launch vm))
> (let ((vm ...) (read-app-args ...) (read-main-class ...)) (oset vm
> :main-class (if read-main-class ... ...)) (let (...) (jde-run-vm-launch
> vm)))
> (if (string= jde-run-executable "") (let (... ... ...) (oset vm
> :main-class ...) (let ... ...)) (jde-run-executable))
> (if (equal major-mode (quote jde-mode)) (if (string=
> jde-run-executable "") (let ... ... ...) (jde-run-executable)) (error
> "The jde-run command works only in a Java source buffer."))
> jde-run(1)
> call-interactively(jde-run)
>
> - --
> ______________________________________
> | /\ BLuEGoD (James López)
> | /\ / \/\ /\ /\
> | / \ /\ / \ /\ / \ /
> |____\__________/___wWw.BLuEGoD.NeT
> | \/ \ /
> | bluegod(at)bluegod.net - Public key at keyserver.net
> ----------------------------------------------------------
> -----BEGIN PGP SIGNATURE-----
> Version: GnuPG v1.4.9 (Darwin)
>
> iEUEARECAAYFAkqoBdEACgkQACIwOm/T2YLRyACYmpqAAqRhfoYRd0jOBWIRHSPd
> vACfUTh8BRHw2D2JFadlo6jBFbTfJHg=
> =sywi
> -----END PGP SIGNATURE-----
>
> ------------------------------------------------------------------------------
> 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
I get the same problem on Ubuntu 9.04. The save-w32-show-window macro is used
before it's defined in jde-run.el. It can be fixed by moving the macro before
jde-run-vm-launch.
Index: lisp/jde-run.el
===================================================================
--- lisp/jde-run.el (revision 137)
+++ lisp/jde-run.el (working copy)
@@ -705,6 +705,16 @@
"Get command line args."
jde-run-option-vm-args)
+(defmacro save-w32-show-window (&rest body)
+ "Saves the value of the w32-start-process-show-window variable
+before evaluating body and restores the value afterwards."
+ `(let ((win32-start-process-show-window t)
+ (w32-start-process-show-window t)
+ (w32-quote-process-args ?\")
+ (win32-quote-process-args ?\") ;; XEmacs
+ (windowed-process-io t)
+ (process-connection-type nil))
+ ,@body))
(defmethod jde-run-vm-launch ((this jde-run-vm))
(let ((run-buf-name (concat "*" (oref this :main-class) "*"))
@@ -1235,16 +1245,6 @@
(oset vm :main-class (jde-run-get-main-class))
(jde-run-vm-launch vm)))
-(defmacro save-w32-show-window (&rest body)
- "Saves the value of the w32-start-process-show-window variable
-before evaluating body and restores the value afterwards."
- `(let ((win32-start-process-show-window t)
- (w32-start-process-show-window t)
- (w32-quote-process-args ?\")
- (win32-quote-process-args ?\") ;; XEmacs
- (windowed-process-io t)
- (process-connection-type nil))
- ,@body))
(defun jde-run-unquote (string)
(if (eq (aref string 0) ?\")
------------------------------------------------------------------------------
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
