OK, this seems totally weird, but is working.... In file jde-ant.el in function jde-ant-build I renamed the local variable history to build-history and now everything works a-OK
May be some internal XEmacs wizardry that keeps you from using a symbol called history?! Christian > -----Ursprungliche Nachricht----- > Von: Schmitt, Christian (ext.) > [mailto:[EMAIL PROTECTED]] > Gesendet: Dienstag, 7. Januar 2003 15:12 > An: [EMAIL PROTECTED] > Betreff: AW: Ant problem with JDE 2.3.2 > > > Hi, > I did some more testing... > > With GNU Emacs 21.2.1 on Windows starting "emacs -q", > evaluating the following lines: > (add-to-list 'load-path (expand-file-name > "~/.xemacs/site/jde-2.3.2/lisp")) > (add-to-list 'load-path (expand-file-name "z:/emacs-21.2/eieio-0.17")) > (add-to-list 'load-path (expand-file-name "z:/emacs-21.2/elib-1.0")) > (add-to-list 'load-path (expand-file-name > "z:/emacs-21.2/semantic-1.4.2")) > (add-to-list 'load-path (expand-file-name > "z:/emacs-21.2/speedbar-0.14beta4")) > (load-library "jde-autoload") > (autoload 'jde-mode "jde" "JDE mode." t) > (add-to-list 'auto-mode-alist '("\\.java$" . jde-mode)) > > then opening a Java file from my project and doing C-c C-v > C-b Ant compiles > my project happily. > > When I start XEmacs with the -q option, evaluate the same > Lisp code, load > a Java file and try to build the project with Ant the error > described below > comes up. > > So indeed, it looks like there's a difference in > (read-from-minibuffer) > between > GNU Emacs and XEmacs. > > May be someone with more intimate Lisp knowledge can come up > with something. > > > Cheers, > Christian > > > > -----Ursprungliche Nachricht----- > > Von: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]] > > Gesendet: Montag, 6. Januar 2003 17:15 > > An: Schmitt, Christian (ext.) > > Cc: [EMAIL PROTECTED] > > Betreff: Re: Ant problem with JDE 2.3.2 > > > > > > If any of the XEmacs users could help Christian with this I > > would apprectiate > > it. I can provide some guidance with the jde-ant > > functionality if needed. > > I can't seem to reproduce his problem with GNU emacs. > > > > I suspect that the method (read-from-minibuffer ...) works > > slightly different > > in XEmacs. > > > > Javier > > "Schmitt, Christian (ext.)" > > <[EMAIL PROTECTED]> writes: > > > > > Hi, > > > I upgraded today to JDE 2.3.2 (from 2.3.0) and found that > > building with Ant > > > doesn't > > > work anymore for me. > > > > > > System information: XEmacs 21.4.10 on WinNT 4.0 > > > > > > Here's the prj.el I'm using: > > > (jde-project-file-version "1.0") > > > (jde-set-variables > > > '(jde-ant-enable-find t) > > > '(jde-ant-invocation-method (quote ("Script"))) > > > '(jde-ant-read-buildfile nil) > > > '(jde-ant-read-target t) > > > '(jde-ant-complete-target nil) > > > '(jde-build-function (quote (jde-ant-build))) > > > '(jde-ant-home "c:/dev/jakarta-ant-1.5.1") > > > '(jde-ant-program "c:/dev/jakarta-ant-1.5.1/bin/ant.bat") > > > '(jde-help-docsets (quote > > > (("JDK API" "c:/jdk1.3.1/docs/api" nil) > > > ))) > > > ) > > > > > > The error message I'm getting is: > > > Wrong type argument: listp, history > > > > > > Here's the backtrace: > > > # bind (standard-output stack-trace-on-signal debug-on-signal > > > stack-trace-on-error debug-on-error list err histval val > > > mouse-grabbed-buffer current-prefix-arg > minibuffer-history-variable > > > minibuffer-history-position minibuffer-scroll-window) > > > # (unwind-protect ...) > > > # bind (minibuffer-default _history_ oconfig mconfig > > frame buffer window > > > oframe owindow dir default abbrev-table history readp keymap > > > initial-contents prompt) > > > read-from-minibuffer("Target to build: " nil nil nil history) > > > (setq target (read-from-minibuffer "Target to build: " > > (car history) nil > > > nil (quote history))) > > > (if jde-ant-complete-target (setq target (completing-read > > "Target to > > > build: " ... nil t ... ...)) (setq target > > (read-from-minibuffer "Target to > > > build: " ... nil nil ...))) > > > (if jde-ant-read-target (if jde-ant-complete-target (setq > > target ...) > > > (setq target ...))) > > > # bind (interactive-args target history buildfile) > > > (let (buildfile history target interactive-args) (setq buildfile > > > (jde-ant-interactive-get-buildfile)) (setq history > > (jde-ant-get-from-history > > > buildfile)) (if jde-ant-read-target (if > > jde-ant-complete-target ... ...)) > > > (jde-ant-add-to-history buildfile history) (setq target > > (jde-ant-escape > > > target)) (if jde-ant-read-args (setq interactive-args ...)) (setq > > > jde-ant-interactive-buildfile buildfile) (list buildfile target > > > interactive-args)) > > > call-interactively(jde-ant-build) > > > #<compiled-function nil "...(5)" [jde-build-function > > call-interactively] 2 > > > ("h:\\.xemacs\\site\\jde-2.3.2\\lisp\\jde.elc" . 22342) nil>() > > > call-interactively(jde-build) > > > # (condition-case ... . error) > > > # (catch top-level ...) > > > > > > > > > With some fiddling I found where the error occurred and > > applied this patch > > > to jde-ant.el: > > > > > > --- jde-ant.el.orig Mon Jan 06 15:07:20 2003 > > > +++ jde-ant.el Mon Jan 06 15:07:37 2003 > > > @@ -383,7 +383,7 @@ > > > nil > > > t > > > (car history) > > > - 'history)) > > > + history)) > > > > > > ;;without using completion... read the target > > as a string. > > > (setq target (read-from-minibuffer > > > @@ -391,7 +391,7 @@ > > > (car history) > > > nil > > > nil > > > - 'history)))) > > > + history)))) > > > > > > ;; Setting the history for future use > > > (jde-ant-add-to-history buildfile history) > > > > > > This patch makes jde-ant-build work... but only once :-( > > > All subsequent tries to build end up with another error message: > > > Attempt to set a constant symbol: nil, ("") > > > > > > Here's the backtrace for that error as well: > > > # bind (standard-output stack-trace-on-signal debug-on-signal > > > stack-trace-on-error debug-on-error list err histval val > > > mouse-grabbed-buffer current-prefix-arg > minibuffer-history-variable > > > minibuffer-history-position minibuffer-scroll-window) > > > # (unwind-protect ...) > > > # bind (minibuffer-default _history_ oconfig mconfig > > frame buffer window > > > oframe owindow dir default abbrev-table history readp keymap > > > initial-contents prompt) > > > read-from-minibuffer("Target to build: " nil nil nil (nil)) > > > (setq target (read-from-minibuffer "Target to build: " > > (car history) nil > > > nil history)) > > > (if jde-ant-complete-target (setq target (completing-read > > "Target to > > > build: " ... nil t ... history)) (setq target > > (read-from-minibuffer "Target > > > to build: " ... nil nil history))) > > > (if jde-ant-read-target (if jde-ant-complete-target (setq > > target ...) > > > (setq target ...))) > > > # bind (interactive-args target history buildfile) > > > (let (buildfile history target interactive-args) (setq buildfile > > > (jde-ant-interactive-get-buildfile)) (setq history > > (jde-ant-get-from-history > > > buildfile)) (if jde-ant-read-target (if > > jde-ant-complete-target ... ...)) > > > (jde-ant-add-to-history buildfile history) (setq target > > (jde-ant-escape > > > target)) (if jde-ant-read-args (setq interactive-args ...)) (setq > > > jde-ant-interactive-buildfile buildfile) (list buildfile target > > > interactive-args)) > > > call-interactively(jde-ant-build) > > > #<compiled-function nil "...(5)" [jde-build-function > > call-interactively] 2 > > > ("h:\\.xemacs\\site\\jde-2.3.2\\lisp\\jde.elc" . 22342) nil>() > > > call-interactively(jde-build) > > > # (condition-case ... . error) > > > # (catch top-level ...) > > > > > > > > > > > > Thanks in advance for any help. > > > > > > Christian Schmitt > > > > -- > > Javier S. Lopez > > [EMAIL PROTECTED] Forum Systems, Inc. > > (781) 788-4206 95 Sawyer St., Suite 110, > > http://www.forumsys.com Waltham, MA 02453 > > >
