I upgraded xemacs using apt-get on my Debian system a
while back, and it broke the ant builds inside JDE. I
use the Ant Server to build, but now I always get an
error message when I try to build. After I enter the
target I want to build, xemacs says:
Signaling: (error "`let' bindings can have only one
value-form" (if (string= "" jde-ant-home) (if
ANT_HOME_ENV (jde-normalize-path ANT_HOME_ENV))
(jde-normalize-path jde-ant-home)))
(let ((ANT_HOME_ENV ...) (if ... ... ...)))
jde-ant-get-ant-home()
(let* ((ant-home ...) (delimiter ...) (ant-command
...)) (if (not ...) (setq ant-command ...)) (if (not
...) (setq ant-command ...)) (if (and ... ...) (setq
ant-command ...)) (if (not ...) (setq ant-command
...)) ant-command)
jde-build-ant-command(nil nil
"/local/src/java/build.xml")
(let ((compile-command ...)) (when compile-command
(if ... ... ...) (setq compilation-finish-function
...) (if ... ... ...)))
(lambda (buildfile target &optional
interactive-args) "Build the current project using
Ant. If interactive, we try to prompt the\n user for
certain variables.." (interactive (let ... ... ... ...
... ... ... ... ...)) (let (...) (when compile-command
... ... ...)))("/local/src/java/build.xml" nil nil)
call-interactively(jde-ant-build)
(lambda nil "Rebuild the entire project.\nThis
command invokes the function defined by
`jde-build-function'." (interactive)
(call-interactively (car jde-build-function)))()
call-interactively(jde-build)
Here is my ~/.xemacs/custom.el:
(custom-set-variables
'(cperl-continued-statement-offset 4)
'(load-home-init-file t t)
'(gnuserv-program (concat exec-directory "/gnuserv"))
'(cperl-tab-always-indent t)
'(cperl-indent-level 4)
'(indent-tabs-mode nil)
'(jde-ant-home "/usr/share/ant")
'(jde-build-function (quote (jde-ant-build)))
'(jde-jdk-registry (quote (("1.4.2" .
"/usr/local/java"))))
'(gnuserv-program (concat exec-directory "/gnuserv"))
'(jde-ant-read-target t)
'(toolbar-visible-p nil)
'(jde-ant-enable-find t)
'(jde-ant-invocation-method (quote ("Ant Server")))
'(font-lock-mode t nil (font-lock)))
(custom-set-faces
'(default ((t (:size "14pt" :family
"Lucidatypewriter"))) t)
'(cperl-hash-face ((((class color) (background
light)) (:foreground "Red" :bold t)))))
Any idea what is going on here?
Thanks,
Mike
__________________________________
Do you Yahoo!?
Yahoo! Mail Address AutoComplete - You start. We finish.
http://promotions.yahoo.com/new_mail
