Hi.
I just installed jde-2.2.9beta5 (and the packages it requires). I was
using jde-2.2.6beta3, which was working fine. I'm using Emacs 21.1 on
a GNU/Linux system and jdk 1.3 (it is in the path).
I have a problem. bsh can't start. I can't `jde-complete-at-point',
insert imports (and even compile). The error reported is one of these:
"Lisp nesting exceeds max-lisp-eval-depth"
"Variable binding depth exceeds max-specpdl-size"
Increasing these variables' values has not effect, unless I increase
them so high that emacs core dump.
Since I had a quite big setup, I use emacs -q --no-site-file and then:
(add-to-list 'load-path "~/emacs/jde/lisp")
... (add the other packages)
(require 'jde)
M-x bsh
Then the error happens. The backtrace is at the end (sorry for the
size) (and if I C-x C-e (locate-library "jde"), it show what I
expect). The backtrace is different if I try to jde-complete, inset an
import sentence, etc, but I think that the problem is the same.
I use:
elib-1.0
semantic-1.4beta11
speedbar-0.14beta2
eieio-0.17-beta3
If more info is required, I would post it.
Anybody knows what I doing wrong?
Thanks for your time (I'm not suscribed to this list, so CCs are
welcomed).
Leon
Debugger entered--Lisp error: (error "Lisp nesting exceeds max-lisp-eval-depth")
mapc(#[(suf) "� P\n\"� !�
#[(dir) "���\n
mapc(#[(dir) "���\n
byte-code("���
locate-library("jde")
(file-name-directory (locate-library "jde"))
(setq dir (file-name-directory (locate-library "jde")))
(if jde-xemacsp (progn (setq dir ...) (when ... ... ...)) (setq dir
(file-name-directory ...)))
(let (dir) (if jde-xemacsp (progn ... ...) (setq dir ...)) (if dir (nsubstitute 47
92 dir)) (if (not jde-xemacsp) (setq dir ...)) dir)
jde-find-jde-data-directory()
(concat (jde-find-jde-data-directory) "java/")
(let* ((bsh-buffer ...) (jde-java-directory ...) (vm ...) (vm-args ...) (dir ...))
(setq vm-args (append vm-args bsh-vm-args)) (setq vm-args (append vm-args ...))
(save-excursion (set-buffer bsh-buffer) (erase-buffer) (cd dir) (insert ...) (insert
...) (comint-mode) (setq comint-prompt-regexp "bsh % ")) (message "%s" "Starting the
BeanShell. Please wait...") (let (... ... ... ...) (comint-exec bsh-buffer "bsh" vm
nil vm-args)) (let (...) (process-kill-without-query bsh-process)) (if display-buffer
(pop-to-buffer bsh-buffer-name)))
(if (not (comint-check-proc bsh-buffer-name)) (let* (... ... ... ... ...) (setq
vm-args ...) (setq vm-args ...) (save-excursion ... ... ... ... ... ... ...) (message
"%s" "Starting the BeanShell. Please wait...") (let ... ...) (let ... ...) (if
display-buffer ...)) (when display-buffer (message "The Java interpreter is already
running.") (pop-to-buffer bsh-buffer-name)))
(let ((bsh-buffer-name "*bsh*")) (if (not ...) (let* ... ... ... ... ... ... ...
...) (when display-buffer ... ...)))
bsh-internal()
(let (proc) (bsh-internal) (setq proc (get-process "bsh")) (if (eq system-type ...)
(accept-process-output proc) (while ...)) proc)
(if (get-process "bsh") (get-process "bsh") (let (proc) (bsh-internal) (setq proc
...) (if ... ... ...) proc))
(let* ((bsh-process ...) (comint-filter ...)) (when bsh-process (setq bsh-tq-reply
nil) (set-process-filter bsh-process ...) (process-send-string bsh-process ...) (if
... ...) (set-process-filter bsh-process comint-filter) (if ... ...) (if eval-return
... bsh-tq-reply)))
bsh-eval("jde.util.JdeUtilities.setProjectValues(\"\", \"\");")
(if (not (bsh-running-p)) (bsh-eval (jde-create-prj-values-str)))
jde-jeval("jde.util.JdeUtilities.getJavaVersion();" t)
jde-jeval-r("jde.util.JdeUtilities.getJavaVersion();")
(setq java-version (jde-jeval-r "jde.util.JdeUtilities.getJavaVersion();"))
(if (not java-version) (setq java-version (jde-jeval-r
"jde.util.JdeUtilities.getJavaVersion();")))
(let ((java-version ...)) (if (not java-version) (setq java-version ...)) (if
(interactive-p) (message java-version) java-version))
jde-java-version()
(let* ((jdk-version ...) (vm ...)) (if (not vm) (setq vm ...)) (oset vm :path (let
... ...)) vm)
jde-run-get-vm()
(eieio-oref (jde-run-get-vm) (quote :path))
(oref (jde-run-get-vm) :path)
(let* ((bsh-buffer ...) (jde-java-directory ...) (vm ...) (vm-args ...) (dir ...))
(setq vm-args (append vm-args bsh-vm-args)) (setq vm-args (append vm-args ...))
(save-excursion (set-buffer bsh-buffer) (erase-buffer) (cd dir) (insert ...) (insert
...) (comint-mode) (setq comint-prompt-regexp "bsh % ")) (message "%s" "Starting the
BeanShell. Please wait...") (let (... ... ... ...) (comint-exec bsh-buffer "bsh" vm
nil vm-args)) (let (...) (process-kill-without-query bsh-process)) (if display-buffer
(pop-to-buffer bsh-buffer-name)))
(if (not (comint-check-proc bsh-buffer-name)) (let* (... ... ... ... ...) (setq
vm-args ...) (setq vm-args ...) (save-excursion ... ... ... ... ... ... ...) (message
"%s" "Starting the BeanShell. Please wait...") (let ... ...) (let ... ...) (if
display-buffer ...)) (when display-buffer (message "The Java interpreter is already
running.") (pop-to-buffer bsh-buffer-name)))
(let ((bsh-buffer-name "*bsh*")) (if (not ...) (let* ... ... ... ... ... ... ...
...) (when display-buffer ... ...)))
bsh-internal()
(let (proc) (bsh-internal) (setq proc (get-process "bsh")) (if (eq system-type ...)
(accept-process-output proc) (while ...)) proc)
(if (get-process "bsh") (get-process "bsh") (let (proc) (bsh-internal) (setq proc
...) (if ... ... ...) proc))
(let* ((bsh-process ...) (comint-filter ...)) (when bsh-process (setq bsh-tq-reply
nil) (set-process-filter bsh-process ...) (process-send-string bsh-process ...) (if
... ...) (set-process-filter bsh-process comint-filter) (if ... ...) (if eval-return
... bsh-tq-reply)))
bsh-eval("jde.util.JdeUtilities.setProjectValues(\"\", \"\");")
(if (not (bsh-running-p)) (bsh-eval (jde-create-prj-values-str)))
jde-jeval("jde.util.JdeUtilities.getJavaVersion();" t)
jde-jeval-r("jde.util.JdeUtilities.getJavaVersion();")
(setq java-version (jde-jeval-r "jde.util.JdeUtilities.getJavaVersion();"))
(if (not java-version) (setq java-version (jde-jeval-r
"jde.util.JdeUtilities.getJavaVersion();")))
(let ((java-version ...)) (if (not java-version) (setq java-version ...)) (if
(interactive-p) (message java-version) java-version))
jde-java-version()
(let* ((jdk-version ...) (vm ...)) (if (not vm) (setq vm ...)) (oset vm :path (let
... ...)) vm)
jde-run-get-vm()
(eieio-oref (jde-run-get-vm) (quote :path))
(oref (jde-run-get-vm) :path)
(let* ((bsh-buffer ...) (jde-java-directory ...) (vm ...) (vm-args ...) (dir ...))
(setq vm-args (append vm-args bsh-vm-args)) (setq vm-args (append vm-args ...))
(save-excursion (set-buffer bsh-buffer) (erase-buffer) (cd dir) (insert ...) (insert
...) (comint-mode) (setq comint-prompt-regexp "bsh % ")) (message "%s" "Starting the
BeanShell. Please wait...") (let (... ... ... ...) (comint-exec bsh-buffer "bsh" vm
nil vm-args)) (let (...) (process-kill-without-query bsh-process)) (if display-buffer
(pop-to-buffer bsh-buffer-name)))
(if (not (comint-check-proc bsh-buffer-name)) (let* (... ... ... ... ...) (setq
vm-args ...) (setq vm-args ...) (save-excursion ... ... ... ... ... ... ...) (message
"%s" "Starting the BeanShell. Please wait...") (let ... ...) (let ... ...) (if
display-buffer ...)) (when display-buffer (message "The Java interpreter is already
running.") (pop-to-buffer bsh-buffer-name)))
(let ((bsh-buffer-name "*bsh*")) (if (not ...) (let* ... ... ... ... ... ... ...
...) (when display-buffer ... ...)))
bsh-internal()
(let (proc) (bsh-internal) (setq proc (get-process "bsh")) (if (eq system-type ...)
(accept-process-output proc) (while ...)) proc)
(if (get-process "bsh") (get-process "bsh") (let (proc) (bsh-internal) (setq proc
...) (if ... ... ...) proc))
(let* ((bsh-process ...) (comint-filter ...)) (when bsh-process (setq bsh-tq-reply
nil) (set-process-filter bsh-process ...) (process-send-string bsh-process ...) (if
... ...) (set-process-filter bsh-process comint-filter) (if ... ...) (if eval-return
... bsh-tq-reply)))
bsh-eval("jde.util.JdeUtilities.setProjectValues(\"\", \"\");")
(if (not (bsh-running-p)) (bsh-eval (jde-create-prj-values-str)))
jde-jeval("jde.util.JdeUtilities.getJavaVersion();" t)
jde-jeval-r("jde.util.JdeUtilities.getJavaVersion();")
(setq java-version (jde-jeval-r "jde.util.JdeUtilities.getJavaVersion();"))
(if (not java-version) (setq java-version (jde-jeval-r
"jde.util.JdeUtilities.getJavaVersion();")))
(let ((java-version ...)) (if (not java-version) (setq java-version ...)) (if
(interactive-p) (message java-version) java-version))
jde-java-version()
(let* ((jdk-version ...) (vm ...)) (if (not vm) (setq vm ...)) (oset vm :path (let
... ...)) vm)
jde-run-get-vm()
(eieio-oref (jde-run-get-vm) (quote :path))
(oref (jde-run-get-vm) :path)
(let* ((bsh-buffer ...) (jde-java-directory ...) (vm ...) (vm-args ...) (dir ...))
(setq vm-args (append vm-args bsh-vm-args)) (setq vm-args (append vm-args ...))
(save-excursion (set-buffer bsh-buffer) (erase-buffer) (cd dir) (insert ...) (insert
...) (comint-mode) (setq comint-prompt-regexp "bsh % ")) (message "%s" "Starting the
BeanShell. Please wait...") (let (... ... ... ...) (comint-exec bsh-buffer "bsh" vm
nil vm-args)) (let (...) (process-kill-without-query bsh-process)) (if display-buffer
(pop-to-buffer bsh-buffer-name)))
(if (not (comint-check-proc bsh-buffer-name)) (let* (... ... ... ... ...) (setq
vm-args ...) (setq vm-args ...) (save-excursion ... ... ... ... ... ... ...) (message
"%s" "Starting the BeanShell. Please wait...") (let ... ...) (let ... ...) (if
display-buffer ...)) (when display-buffer (message "The Java interpreter is already
running.") (pop-to-buffer bsh-buffer-name)))
(let ((bsh-buffer-name "*bsh*")) (if (not ...) (let* ... ... ... ... ... ... ...
...) (when display-buffer ... ...)))
bsh-internal()
(let (proc) (bsh-internal) (setq proc (get-process "bsh")) (if (eq system-type ...)
(accept-process-output proc) (while ...)) proc)
(if (get-process "bsh") (get-process "bsh") (let (proc) (bsh-internal) (setq proc
...) (if ... ... ...) proc))
(let* ((bsh-process ...) (comint-filter ...)) (when bsh-process (setq bsh-tq-reply
nil) (set-process-filter bsh-process ...) (process-send-string bsh-process ...) (if
... ...) (set-process-filter bsh-process comint-filter) (if ... ...) (if eval-return
... bsh-tq-reply)))
bsh-eval("jde.util.JdeUtilities.setProjectValues(\"\", \"\");")
(if (not (bsh-running-p)) (bsh-eval (jde-create-prj-values-str)))
jde-jeval("jde.util.JdeUtilities.getJavaVersion();" t)
jde-jeval-r("jde.util.JdeUtilities.getJavaVersion();")
(setq java-version (jde-jeval-r "jde.util.JdeUtilities.getJavaVersion();"))
(if (not java-version) (setq java-version (jde-jeval-r
"jde.util.JdeUtilities.getJavaVersion();")))
(let ((java-version ...)) (if (not java-version) (setq java-version ...)) (if
(interactive-p) (message java-version) java-version))
jde-java-version()
(let* ((jdk-version ...) (vm ...)) (if (not vm) (setq vm ...)) (oset vm :path (let
... ...)) vm)
jde-run-get-vm()
(eieio-oref (jde-run-get-vm) (quote :path))
(oref (jde-run-get-vm) :path)
(let* ((bsh-buffer ...) (jde-java-directory ...) (vm ...) (vm-args ...) (dir ...))
(setq vm-args (append vm-args bsh-vm-args)) (setq vm-args (append vm-args ...))
(save-excursion (set-buffer bsh-buffer) (erase-buffer) (cd dir) (insert ...) (insert
...) (comint-mode) (setq comint-prompt-regexp "bsh % ")) (message "%s" "Starting the
BeanShell. Please wait...") (let (... ... ... ...) (comint-exec bsh-buffer "bsh" vm
nil vm-args)) (let (...) (process-kill-without-query bsh-process)) (if display-buffer
(pop-to-buffer bsh-buffer-name)))
(if (not (comint-check-proc bsh-buffer-name)) (let* (... ... ... ... ...) (setq
vm-args ...) (setq vm-args ...) (save-excursion ... ... ... ... ... ... ...) (message
"%s" "Starting the BeanShell. Please wait...") (let ... ...) (let ... ...) (if
display-buffer ...)) (when display-buffer (message "The Java interpreter is already
running.") (pop-to-buffer bsh-buffer-name)))
(let ((bsh-buffer-name "*bsh*")) (if (not ...) (let* ... ... ... ... ... ... ...
...) (when display-buffer ... ...)))
bsh-internal()
(let (proc) (bsh-internal) (setq proc (get-process "bsh")) (if (eq system-type ...)
(accept-process-output proc) (while ...)) proc)
(if (get-process "bsh") (get-process "bsh") (let (proc) (bsh-internal) (setq proc
...) (if ... ... ...) proc))
(let* ((bsh-process ...) (comint-filter ...)) (when bsh-process (setq bsh-tq-reply
nil) (set-process-filter bsh-process ...) (process-send-string bsh-process ...) (if
... ...) (set-process-filter bsh-process comint-filter) (if ... ...) (if eval-return
... bsh-tq-reply)))
bsh-eval("jde.util.JdeUtilities.setProjectValues(\"\", \"\");")
(if (not (bsh-running-p)) (bsh-eval (jde-create-prj-values-str)))
jde-jeval("jde.util.JdeUtilities.getJavaVersion();" t)
jde-jeval-r("jde.util.JdeUtilities.getJavaVersion();")
(setq java-version (jde-jeval-r "jde.util.JdeUtilities.getJavaVersion();"))
(if (not java-version) (setq java-version (jde-jeval-r
"jde.util.JdeUtilities.getJavaVersion();")))
(let ((java-version ...)) (if (not java-version) (setq java-version ...)) (if
(interactive-p) (message java-version) java-version))
jde-java-version()
(let* ((jdk-version ...) (vm ...)) (if (not vm) (setq vm ...)) (oset vm :path (let
... ...)) vm)
jde-run-get-vm()
(eieio-oref (jde-run-get-vm) (quote :path))
(oref (jde-run-get-vm) :path)
(let* ((bsh-buffer ...) (jde-java-directory ...) (vm ...) (vm-args ...) (dir ...))
(setq vm-args (append vm-args bsh-vm-args)) (setq vm-args (append vm-args ...))
(save-excursion (set-buffer bsh-buffer) (erase-buffer) (cd dir) (insert ...) (insert
...) (comint-mode) (setq comint-prompt-regexp "bsh % ")) (message "%s" "Starting the
BeanShell. Please wait...") (let (... ... ... ...) (comint-exec bsh-buffer "bsh" vm
nil vm-args)) (let (...) (process-kill-without-query bsh-process)) (if display-buffer
(pop-to-buffer bsh-buffer-name)))
(if (not (comint-check-proc bsh-buffer-name)) (let* (... ... ... ... ...) (setq
vm-args ...) (setq vm-args ...) (save-excursion ... ... ... ... ... ... ...) (message
"%s" "Starting the BeanShell. Please wait...") (let ... ...) (let ... ...) (if
display-buffer ...)) (when display-buffer (message "The Java interpreter is already
running.") (pop-to-buffer bsh-buffer-name)))
(let ((bsh-buffer-name "*bsh*")) (if (not ...) (let* ... ... ... ... ... ... ...
...) (when display-buffer ... ...)))
bsh-internal()
(let (proc) (bsh-internal) (setq proc (get-process "bsh")) (if (eq system-type ...)
(accept-process-output proc) (while ...)) proc)
(if (get-process "bsh") (get-process "bsh") (let (proc) (bsh-internal) (setq proc
...) (if ... ... ...) proc))
(let* ((bsh-process ...) (comint-filter ...)) (when bsh-process (setq bsh-tq-reply
nil) (set-process-filter bsh-process ...) (process-send-string bsh-process ...) (if
... ...) (set-process-filter bsh-process comint-filter) (if ... ...) (if eval-return
... bsh-tq-reply)))
bsh-eval("jde.util.JdeUtilities.setProjectValues(\"\", \"\");")
(if (not (bsh-running-p)) (bsh-eval (jde-create-prj-values-str)))
jde-jeval("jde.util.JdeUtilities.getJavaVersion();" t)
jde-jeval-r("jde.util.JdeUtilities.getJavaVersion();")
(setq java-version (jde-jeval-r "jde.util.JdeUtilities.getJavaVersion();"))
(if (not java-version) (setq java-version (jde-jeval-r
"jde.util.JdeUtilities.getJavaVersion();")))
(let ((java-version ...)) (if (not java-version) (setq java-version ...)) (if
(interactive-p) (message java-version) java-version))
jde-java-version()
(let* ((jdk-version ...) (vm ...)) (if (not vm) (setq vm ...)) (oset vm :path (let
... ...)) vm)
jde-run-get-vm()
(eieio-oref (jde-run-get-vm) (quote :path))
(oref (jde-run-get-vm) :path)
(let* ((bsh-buffer ...) (jde-java-directory ...) (vm ...) (vm-args ...) (dir ...))
(setq vm-args (append vm-args bsh-vm-args)) (setq vm-args (append vm-args ...))
(save-excursion (set-buffer bsh-buffer) (erase-buffer) (cd dir) (insert ...) (insert
...) (comint-mode) (setq comint-prompt-regexp "bsh % ")) (message "%s" "Starting the
BeanShell. Please wait...") (let (... ... ... ...) (comint-exec bsh-buffer "bsh" vm
nil vm-args)) (let (...) (process-kill-without-query bsh-process)) (if display-buffer
(pop-to-buffer bsh-buffer-name)))
(if (not (comint-check-proc bsh-buffer-name)) (let* (... ... ... ... ...) (setq
vm-args ...) (setq vm-args ...) (save-excursion ... ... ... ... ... ... ...) (message
"%s" "Starting the BeanShell. Please wait...") (let ... ...) (let ... ...) (if
display-buffer ...)) (when display-buffer (message "The Java interpreter is already
running.") (pop-to-buffer bsh-buffer-name)))
(let ((bsh-buffer-name "*bsh*")) (if (not ...) (let* ... ... ... ... ... ... ...
...) (when display-buffer ... ...)))
bsh-internal()
(let (proc) (bsh-internal) (setq proc (get-process "bsh")) (if (eq system-type ...)
(accept-process-output proc) (while ...)) proc)
(if (get-process "bsh") (get-process "bsh") (let (proc) (bsh-internal) (setq proc
...) (if ... ... ...) proc))
(let* ((bsh-process ...) (comint-filter ...)) (when bsh-process (setq bsh-tq-reply
nil) (set-process-filter bsh-process ...) (process-send-string bsh-process ...) (if
... ...) (set-process-filter bsh-process comint-filter) (if ... ...) (if eval-return
... bsh-tq-reply)))
bsh-eval("jde.util.JdeUtilities.setProjectValues(\"\", \"\");")
(if (not (bsh-running-p)) (bsh-eval (jde-create-prj-values-str)))
jde-jeval("jde.util.JdeUtilities.getJavaVersion();" t)
jde-jeval-r("jde.util.JdeUtilities.getJavaVersion();")
(setq java-version (jde-jeval-r "jde.util.JdeUtilities.getJavaVersion();"))
(if (not java-version) (setq java-version (jde-jeval-r
"jde.util.JdeUtilities.getJavaVersion();")))
(let ((java-version ...)) (if (not java-version) (setq java-version ...)) (if
(interactive-p) (message java-version) java-version))
jde-java-version()
(let* ((jdk-version ...) (vm ...)) (if (not vm) (setq vm ...)) (oset vm :path (let
... ...)) vm)
jde-run-get-vm()
(eieio-oref (jde-run-get-vm) (quote :path))
(oref (jde-run-get-vm) :path)
(let* ((bsh-buffer ...) (jde-java-directory ...) (vm ...) (vm-args ...) (dir ...))
(setq vm-args (append vm-args bsh-vm-args)) (setq vm-args (append vm-args ...))
(save-excursion (set-buffer bsh-buffer) (erase-buffer) (cd dir) (insert ...) (insert
...) (comint-mode) (setq comint-prompt-regexp "bsh % ")) (message "%s" "Starting the
BeanShell. Please wait...") (let (... ... ... ...) (comint-exec bsh-buffer "bsh" vm
nil vm-args)) (let (...) (process-kill-without-query bsh-process)) (if display-buffer
(pop-to-buffer bsh-buffer-name)))
(if (not (comint-check-proc bsh-buffer-name)) (let* (... ... ... ... ...) (setq
vm-args ...) (setq vm-args ...) (save-excursion ... ... ... ... ... ... ...) (message
"%s" "Starting the BeanShell. Please wait...") (let ... ...) (let ... ...) (if
display-buffer ...)) (when display-buffer (message "The Java interpreter is already
running.") (pop-to-buffer bsh-buffer-name)))
(let ((bsh-buffer-name "*bsh*")) (if (not ...) (let* ... ... ... ... ... ... ...
...) (when display-buffer ... ...)))
bsh-internal()
(let (proc) (bsh-internal) (setq proc (get-process "bsh")) (if (eq system-type ...)
(accept-process-output proc) (while ...)) proc)
(if (get-process "bsh") (get-process "bsh") (let (proc) (bsh-internal) (setq proc
...) (if ... ... ...) proc))
(let* ((bsh-process ...) (comint-filter ...)) (when bsh-process (setq bsh-tq-reply
nil) (set-process-filter bsh-process ...) (process-send-string bsh-process ...) (if
... ...) (set-process-filter bsh-process comint-filter) (if ... ...) (if eval-return
... bsh-tq-reply)))
bsh-eval("jde.util.JdeUtilities.setProjectValues(\"\", \"\");")
(if (not (bsh-running-p)) (bsh-eval (jde-create-prj-values-str)))
jde-jeval("jde.util.JdeUtilities.getJavaVersion();" t)
jde-jeval-r("jde.util.JdeUtilities.getJavaVersion();")
(setq java-version (jde-jeval-r "jde.util.JdeUtilities.getJavaVersion();"))
(if (not java-version) (setq java-version (jde-jeval-r
"jde.util.JdeUtilities.getJavaVersion();")))
(let ((java-version ...)) (if (not java-version) (setq java-version ...)) (if
(interactive-p) (message java-version) java-version))
jde-java-version()
(let* ((jdk-version ...) (vm ...)) (if (not vm) (setq vm ...)) (oset vm :path (let
... ...)) vm)
jde-run-get-vm()
(eieio-oref (jde-run-get-vm) (quote :path))
(oref (jde-run-get-vm) :path)
(let* ((bsh-buffer ...) (jde-java-directory ...) (vm ...) (vm-args ...) (dir ...))
(setq vm-args (append vm-args bsh-vm-args)) (setq vm-args (append vm-args ...))
(save-excursion (set-buffer bsh-buffer) (erase-buffer) (cd dir) (insert ...) (insert
...) (comint-mode) (setq comint-prompt-regexp "bsh % ")) (message "%s" "Starting the
BeanShell. Please wait...") (let (... ... ... ...) (comint-exec bsh-buffer "bsh" vm
nil vm-args)) (let (...) (process-kill-without-query bsh-process)) (if display-buffer
(pop-to-buffer bsh-buffer-name)))
(if (not (comint-check-proc bsh-buffer-name)) (let* (... ... ... ... ...) (setq
vm-args ...) (setq vm-args ...) (save-excursion ... ... ... ... ... ... ...) (message
"%s" "Starting the BeanShell. Please wait...") (let ... ...) (let ... ...) (if
display-buffer ...)) (when display-buffer (message "The Java interpreter is already
running.") (pop-to-buffer bsh-buffer-name)))
(let ((bsh-buffer-name "*bsh*")) (if (not ...) (let* ... ... ... ... ... ... ...
...) (when display-buffer ... ...)))
bsh-internal()
(let (proc) (bsh-internal) (setq proc (get-process "bsh")) (if (eq system-type ...)
(accept-process-output proc) (while ...)) proc)
(if (get-process "bsh") (get-process "bsh") (let (proc) (bsh-internal) (setq proc
...) (if ... ... ...) proc))
(let* ((bsh-process ...) (comint-filter ...)) (when bsh-process (setq bsh-tq-reply
nil) (set-process-filter bsh-process ...) (process-send-string bsh-process ...) (if
... ...) (set-process-filter bsh-process comint-filter) (if ... ...) (if eval-return
... bsh-tq-reply)))
bsh-eval("jde.util.JdeUtilities.setProjectValues(\"\", \"\");")
(if (not (bsh-running-p)) (bsh-eval (jde-create-prj-values-str)))
jde-jeval("jde.util.JdeUtilities.getJavaVersion();" t)
jde-jeval-r("jde.util.JdeUtilities.getJavaVersion();")
(setq java-version (jde-jeval-r "jde.util.JdeUtilities.getJavaVersion();"))
(if (not java-version) (setq java-version (jde-jeval-r
"jde.util.JdeUtilities.getJavaVersion();")))
(let ((java-version ...)) (if (not java-version) (setq java-version ...)) (if
(interactive-p) (message java-version) java-version))
jde-java-version()
(let* ((jdk-version ...) (vm ...)) (if (not vm) (setq vm ...)) (oset vm :path (let
... ...)) vm)
jde-run-get-vm()
(eieio-oref (jde-run-get-vm) (quote :path))
(oref (jde-run-get-vm) :path)
(let* ((bsh-buffer ...) (jde-java-directory ...) (vm ...) (vm-args ...) (dir ...))
(setq vm-args (append vm-args bsh-vm-args)) (setq vm-args (append vm-args ...))
(save-excursion (set-buffer bsh-buffer) (erase-buffer) (cd dir) (insert ...) (insert
...) (comint-mode) (setq comint-prompt-regexp "bsh % ")) (message "%s" "Starting the
BeanShell. Please wait...") (let (... ... ... ...) (comint-exec bsh-buffer "bsh" vm
nil vm-args)) (let (...) (process-kill-without-query bsh-process)) (if display-buffer
(pop-to-buffer bsh-buffer-name)))
(if (not (comint-check-proc bsh-buffer-name)) (let* (... ... ... ... ...) (setq
vm-args ...) (setq vm-args ...) (save-excursion ... ... ... ... ... ... ...) (message
"%s" "Starting the BeanShell. Please wait...") (let ... ...) (let ... ...) (if
display-buffer ...)) (when display-buffer (message "The Java interpreter is already
running.") (pop-to-buffer bsh-buffer-name)))
(let ((bsh-buffer-name "*bsh*")) (if (not ...) (let* ... ... ... ... ... ... ...
...) (when display-buffer ... ...)))
bsh-internal()
(let (proc) (bsh-internal) (setq proc (get-process "bsh")) (if (eq system-type ...)
(accept-process-output proc) (while ...)) proc)
(if (get-process "bsh") (get-process "bsh") (let (proc) (bsh-internal) (setq proc
...) (if ... ... ...) proc))
(let* ((bsh-process ...) (comint-filter ...)) (when bsh-process (setq bsh-tq-reply
nil) (set-process-filter bsh-process ...) (process-send-string bsh-process ...) (if
... ...) (set-process-filter bsh-process comint-filter) (if ... ...) (if eval-return
... bsh-tq-reply)))
bsh-eval("jde.util.JdeUtilities.setProjectValues(\"\", \"\");")
(if (not (bsh-running-p)) (bsh-eval (jde-create-prj-values-str)))
jde-jeval("jde.util.JdeUtilities.getJavaVersion();" t)
jde-jeval-r("jde.util.JdeUtilities.getJavaVersion();")
(setq java-version (jde-jeval-r "jde.util.JdeUtilities.getJavaVersion();"))
(if (not java-version) (setq java-version (jde-jeval-r
"jde.util.JdeUtilities.getJavaVersion();")))
(let ((java-version ...)) (if (not java-version) (setq java-version ...)) (if
(interactive-p) (message java-version) java-version))
jde-java-version()
(let* ((jdk-version ...) (vm ...)) (if (not vm) (setq vm ...)) (oset vm :path (let
... ...)) vm)
jde-run-get-vm()
(eieio-oref (jde-run-get-vm) (quote :path))
(oref (jde-run-get-vm) :path)
(let* ((bsh-buffer ...) (jde-java-directory ...) (vm ...) (vm-args ...) (dir ...))
(setq vm-args (append vm-args bsh-vm-args)) (setq vm-args (append vm-args ...))
(save-excursion (set-buffer bsh-buffer) (erase-buffer) (cd dir) (insert ...) (insert
...) (comint-mode) (setq comint-prompt-regexp "bsh % ")) (message "%s" "Starting the
BeanShell. Please wait...") (let (... ... ... ...) (comint-exec bsh-buffer "bsh" vm
nil vm-args)) (let (...) (process-kill-without-query bsh-process)) (if display-buffer
(pop-to-buffer bsh-buffer-name)))
(if (not (comint-check-proc bsh-buffer-name)) (let* (... ... ... ... ...) (setq
vm-args ...) (setq vm-args ...) (save-excursion ... ... ... ... ... ... ...) (message
"%s" "Starting the BeanShell. Please wait...") (let ... ...) (let ... ...) (if
display-buffer ...)) (when display-buffer (message "The Java interpreter is already
running.") (pop-to-buffer bsh-buffer-name)))
(let ((bsh-buffer-name "*bsh*")) (if (not ...) (let* ... ... ... ... ... ... ...
...) (when display-buffer ... ...)))
bsh-internal()
(let (proc) (bsh-internal) (setq proc (get-process "bsh")) (if (eq system-type ...)
(accept-process-output proc) (while ...)) proc)
(if (get-process "bsh") (get-process "bsh") (let (proc) (bsh-internal) (setq proc
...) (if ... ... ...) proc))
(let* ((bsh-process ...) (comint-filter ...)) (when bsh-process (setq bsh-tq-reply
nil) (set-process-filter bsh-process ...) (process-send-string bsh-process ...) (if
... ...) (set-process-filter bsh-process comint-filter) (if ... ...) (if eval-return
... bsh-tq-reply)))
bsh-eval("jde.util.JdeUtilities.setProjectValues(\"\", \"\");")
(if (not (bsh-running-p)) (bsh-eval (jde-create-prj-values-str)))
jde-jeval("jde.util.JdeUtilities.getJavaVersion();" t)
jde-jeval-r("jde.util.JdeUtilities.getJavaVersion();")
(setq java-version (jde-jeval-r "jde.util.JdeUtilities.getJavaVersion();"))
(if (not java-version) (setq java-version (jde-jeval-r
"jde.util.JdeUtilities.getJavaVersion();")))
(let ((java-version ...)) (if (not java-version) (setq java-version ...)) (if
(interactive-p) (message java-version) java-version))
jde-java-version()
(let* ((jdk-version ...) (vm ...)) (if (not vm) (setq vm ...)) (oset vm :path (let
... ...)) vm)
jde-run-get-vm()
(eieio-oref (jde-run-get-vm) (quote :path))
(oref (jde-run-get-vm) :path)
(let* ((bsh-buffer ...) (jde-java-directory ...) (vm ...) (vm-args ...) (dir ...))
(setq vm-args (append vm-args bsh-vm-args)) (setq vm-args (append vm-args ...))
(save-excursion (set-buffer bsh-buffer) (erase-buffer) (cd dir) (insert ...) (insert
...) (comint-mode) (setq comint-prompt-regexp "bsh % ")) (message "%s" "Starting the
BeanShell. Please wait...") (let (... ... ... ...) (comint-exec bsh-buffer "bsh" vm
nil vm-args)) (let (...) (process-kill-without-query bsh-process)) (if display-buffer
(pop-to-buffer bsh-buffer-name)))
(if (not (comint-check-proc bsh-buffer-name)) (let* (... ... ... ... ...) (setq
vm-args ...) (setq vm-args ...) (save-excursion ... ... ... ... ... ... ...) (message
"%s" "Starting the BeanShell. Please wait...") (let ... ...) (let ... ...) (if
display-buffer ...)) (when display-buffer (message "The Java interpreter is already
running.") (pop-to-buffer bsh-buffer-name)))
(let ((bsh-buffer-name "*bsh*")) (if (not ...) (let* ... ... ... ... ... ... ...
...) (when display-buffer ... ...)))
bsh-internal()
(let (proc) (bsh-internal) (setq proc (get-process "bsh")) (if (eq system-type ...)
(accept-process-output proc) (while ...)) proc)
(if (get-process "bsh") (get-process "bsh") (let (proc) (bsh-internal) (setq proc
...) (if ... ... ...) proc))
(let* ((bsh-process ...) (comint-filter ...)) (when bsh-process (setq bsh-tq-reply
nil) (set-process-filter bsh-process ...) (process-send-string bsh-process ...) (if
... ...) (set-process-filter bsh-process comint-filter) (if ... ...) (if eval-return
... bsh-tq-reply)))
bsh-eval("jde.util.JdeUtilities.setProjectValues(\"\", \"\");")
(if (not (bsh-running-p)) (bsh-eval (jde-create-prj-values-str)))
jde-jeval("jde.util.JdeUtilities.getJavaVersion();" t)
jde-jeval-r("jde.util.JdeUtilities.getJavaVersion();")
(setq java-version (jde-jeval-r "jde.util.JdeUtilities.getJavaVersion();"))
(if (not java-version) (setq java-version (jde-jeval-r
"jde.util.JdeUtilities.getJavaVersion();")))
(let ((java-version ...)) (if (not java-version) (setq java-version ...)) (if
(interactive-p) (message java-version) java-version))
jde-java-version()
(let* ((jdk-version ...) (vm ...)) (if (not vm) (setq vm ...)) (oset vm :path (let
... ...)) vm)
jde-run-get-vm()
(eieio-oref (jde-run-get-vm) (quote :path))
(oref (jde-run-get-vm) :path)
(let* ((bsh-buffer ...) (jde-java-directory ...) (vm ...) (vm-args ...) (dir ...))
(setq vm-args (append vm-args bsh-vm-args)) (setq vm-args (append vm-args ...))
(save-excursion (set-buffer bsh-buffer) (erase-buffer) (cd dir) (insert ...) (insert
...) (comint-mode) (setq comint-prompt-regexp "bsh % ")) (message "%s" "Starting the
BeanShell. Please wait...") (let (... ... ... ...) (comint-exec bsh-buffer "bsh" vm
nil vm-args)) (let (...) (process-kill-without-query bsh-process)) (if display-buffer
(pop-to-buffer bsh-buffer-name)))
(if (not (comint-check-proc bsh-buffer-name)) (let* (... ... ... ... ...) (setq
vm-args ...) (setq vm-args ...) (save-excursion ... ... ... ... ... ... ...) (message
"%s" "Starting the BeanShell. Please wait...") (let ... ...) (let ... ...) (if
display-buffer ...)) (when display-buffer (message "The Java interpreter is already
running.") (pop-to-buffer bsh-buffer-name)))
(let ((bsh-buffer-name "*bsh*")) (if (not ...) (let* ... ... ... ... ... ... ...
...) (when display-buffer ... ...)))
bsh-internal()
(let (proc) (bsh-internal) (setq proc (get-process "bsh")) (if (eq system-type ...)
(accept-process-output proc) (while ...)) proc)
(if (get-process "bsh") (get-process "bsh") (let (proc) (bsh-internal) (setq proc
...) (if ... ... ...) proc))
(let* ((bsh-process ...) (comint-filter ...)) (when bsh-process (setq bsh-tq-reply
nil) (set-process-filter bsh-process ...) (process-send-string bsh-process ...) (if
... ...) (set-process-filter bsh-process comint-filter) (if ... ...) (if eval-return
... bsh-tq-reply)))
bsh-eval("jde.util.JdeUtilities.setProjectValues(\"\", \"\");")
(if (not (bsh-running-p)) (bsh-eval (jde-create-prj-values-str)))
jde-jeval("jde.util.JdeUtilities.getJavaVersion();" t)
jde-jeval-r("jde.util.JdeUtilities.getJavaVersion();")
(setq java-version (jde-jeval-r "jde.util.JdeUtilities.getJavaVersion();"))
(if (not java-version) (setq java-version (jde-jeval-r
"jde.util.JdeUtilities.getJavaVersion();")))
(let ((java-version ...)) (if (not java-version) (setq java-version ...)) (if
(interactive-p) (message java-version) java-version))
jde-java-version()
(let* ((jdk-version ...) (vm ...)) (if (not vm) (setq vm ...)) (oset vm :path (let
... ...)) vm)
jde-run-get-vm()
(eieio-oref (jde-run-get-vm) (quote :path))
(oref (jde-run-get-vm) :path)
(let* ((bsh-buffer ...) (jde-java-directory ...) (vm ...) (vm-args ...) (dir ...))
(setq vm-args (append vm-args bsh-vm-args)) (setq vm-args (append vm-args ...))
(save-excursion (set-buffer bsh-buffer) (erase-buffer) (cd dir) (insert ...) (insert
...) (comint-mode) (setq comint-prompt-regexp "bsh % ")) (message "%s" "Starting the
BeanShell. Please wait...") (let (... ... ... ...) (comint-exec bsh-buffer "bsh" vm
nil vm-args)) (let (...) (process-kill-without-query bsh-process)) (if display-buffer
(pop-to-buffer bsh-buffer-name)))
(if (not (comint-check-proc bsh-buffer-name)) (let* (... ... ... ... ...) (setq
vm-args ...) (setq vm-args ...) (save-excursion ... ... ... ... ... ... ...) (message
"%s" "Starting the BeanShell. Please wait...") (let ... ...) (let ... ...) (if
display-buffer ...)) (when display-buffer (message "The Java interpreter is already
running.") (pop-to-buffer bsh-buffer-name)))
(let ((bsh-buffer-name "*bsh*")) (if (not ...) (let* ... ... ... ... ... ... ...
...) (when display-buffer ... ...)))
bsh-internal()
(let (proc) (bsh-internal) (setq proc (get-process "bsh")) (if (eq system-type ...)
(accept-process-output proc) (while ...)) proc)
(if (get-process "bsh") (get-process "bsh") (let (proc) (bsh-internal) (setq proc
...) (if ... ... ...) proc))
(let* ((bsh-process ...) (comint-filter ...)) (when bsh-process (setq bsh-tq-reply
nil) (set-process-filter bsh-process ...) (process-send-string bsh-process ...) (if
... ...) (set-process-filter bsh-process comint-filter) (if ... ...) (if eval-return
... bsh-tq-reply)))
bsh-eval("jde.util.JdeUtilities.setProjectValues(\"\", \"\");")
(if (not (bsh-running-p)) (bsh-eval (jde-create-prj-values-str)))
jde-jeval("jde.util.JdeUtilities.getJavaVersion();" t)
jde-jeval-r("jde.util.JdeUtilities.getJavaVersion();")
(setq java-version (jde-jeval-r "jde.util.JdeUtilities.getJavaVersion();"))
(if (not java-version) (setq java-version (jde-jeval-r
"jde.util.JdeUtilities.getJavaVersion();")))
(let ((java-version ...)) (if (not java-version) (setq java-version ...)) (if
(interactive-p) (message java-version) java-version))
jde-java-version()
(let* ((jdk-version ...) (vm ...)) (if (not vm) (setq vm ...)) (oset vm :path (let
... ...)) vm)
jde-run-get-vm()
(eieio-oref (jde-run-get-vm) (quote :path))
(oref (jde-run-get-vm) :path)
(let* ((bsh-buffer ...) (jde-java-directory ...) (vm ...) (vm-args ...) (dir ...))
(setq vm-args (append vm-args bsh-vm-args)) (setq vm-args (append vm-args ...))
(save-excursion (set-buffer bsh-buffer) (erase-buffer) (cd dir) (insert ...) (insert
...) (comint-mode) (setq comint-prompt-regexp "bsh % ")) (message "%s" "Starting the
BeanShell. Please wait...") (let (... ... ... ...) (comint-exec bsh-buffer "bsh" vm
nil vm-args)) (let (...) (process-kill-without-query bsh-process)) (if display-buffer
(pop-to-buffer bsh-buffer-name)))
(if (not (comint-check-proc bsh-buffer-name)) (let* (... ... ... ... ...) (setq
vm-args ...) (setq vm-args ...) (save-excursion ... ... ... ... ... ... ...) (message
"%s" "Starting the BeanShell. Please wait...") (let ... ...) (let ... ...) (if
display-buffer ...)) (when display-buffer (message "The Java interpreter is already
running.") (pop-to-buffer bsh-buffer-name)))
(let ((bsh-buffer-name "*bsh*")) (if (not ...) (let* ... ... ... ... ... ... ...
...) (when display-buffer ... ...)))
bsh-internal()
(let (proc) (bsh-internal) (setq proc (get-process "bsh")) (if (eq system-type ...)
(accept-process-output proc) (while ...)) proc)
(if (get-process "bsh") (get-process "bsh") (let (proc) (bsh-internal) (setq proc
...) (if ... ... ...) proc))
(let* ((bsh-process ...) (comint-filter ...)) (when bsh-process (setq bsh-tq-reply
nil) (set-process-filter bsh-process ...) (process-send-string bsh-process ...) (if
... ...) (set-process-filter bsh-process comint-filter) (if ... ...) (if eval-return
... bsh-tq-reply)))
bsh-eval("jde.util.JdeUtilities.setProjectValues(\"\", \"\");")
(if (not (bsh-running-p)) (bsh-eval (jde-create-prj-values-str)))
jde-jeval("jde.util.JdeUtilities.getJavaVersion();" t)
jde-jeval-r("jde.util.JdeUtilities.getJavaVersion();")
(setq java-version (jde-jeval-r "jde.util.JdeUtilities.getJavaVersion();"))
(if (not java-version) (setq java-version (jde-jeval-r
"jde.util.JdeUtilities.getJavaVersion();")))
(let ((java-version ...)) (if (not java-version) (setq java-version ...)) (if
(interactive-p) (message java-version) java-version))
jde-java-version()
(let* ((jdk-version ...) (vm ...)) (if (not vm) (setq vm ...)) (oset vm :path (let
... ...)) vm)
jde-run-get-vm()
(eieio-oref (jde-run-get-vm) (quote :path))
(oref (jde-run-get-vm) :path)
(let* ((bsh-buffer ...) (jde-java-directory ...) (vm ...) (vm-args ...) (dir ...))
(setq vm-args (append vm-args bsh-vm-args)) (setq vm-args (append vm-args ...))
(save-excursion (set-buffer bsh-buffer) (erase-buffer) (cd dir) (insert ...) (insert
...) (comint-mode) (setq comint-prompt-regexp "bsh % ")) (message "%s" "Starting the
BeanShell. Please wait...") (let (... ... ... ...) (comint-exec bsh-buffer "bsh" vm
nil vm-args)) (let (...) (process-kill-without-query bsh-process)) (if display-buffer
(pop-to-buffer bsh-buffer-name)))
(if (not (comint-check-proc bsh-buffer-name)) (let* (... ... ... ... ...) (setq
vm-args ...) (setq vm-args ...) (save-excursion ... ... ... ... ... ... ...) (message
"%s" "Starting the BeanShell. Please wait...") (let ... ...) (let ... ...) (if
display-buffer ...)) (when display-buffer (message "The Java interpreter is already
running.") (pop-to-buffer bsh-buffer-name)))
(let ((bsh-buffer-name "*bsh*")) (if (not ...) (let* ... ... ... ... ... ... ...
...) (when display-buffer ... ...)))
bsh-internal()
(let (proc) (bsh-internal) (setq proc (get-process "bsh")) (if (eq system-type ...)
(accept-process-output proc) (while ...)) proc)
(if (get-process "bsh") (get-process "bsh") (let (proc) (bsh-internal) (setq proc
...) (if ... ... ...) proc))
(let* ((bsh-process ...) (comint-filter ...)) (when bsh-process (setq bsh-tq-reply
nil) (set-process-filter bsh-process ...) (process-send-string bsh-process ...) (if
... ...) (set-process-filter bsh-process comint-filter) (if ... ...) (if eval-return
... bsh-tq-reply)))
bsh-eval("jde.util.JdeUtilities.setProjectValues(\"\", \"\");")
(if (not (bsh-running-p)) (bsh-eval (jde-create-prj-values-str)))
jde-jeval("jde.util.JdeUtilities.getJavaVersion();" t)
jde-jeval-r("jde.util.JdeUtilities.getJavaVersion();")
(setq java-version (jde-jeval-r "jde.util.JdeUtilities.getJavaVersion();"))
(if (not java-version) (setq java-version (jde-jeval-r
"jde.util.JdeUtilities.getJavaVersion();")))
(let ((java-version ...)) (if (not java-version) (setq java-version ...)) (if
(interactive-p) (message java-version) java-version))
jde-java-version()
(let* ((jdk-version ...) (vm ...)) (if (not vm) (setq vm ...)) (oset vm :path (let
... ...)) vm)
jde-run-get-vm()
(eieio-oref (jde-run-get-vm) (quote :path))
(oref (jde-run-get-vm) :path)
(let* ((bsh-buffer ...) (jde-java-directory ...) (vm ...) (vm-args ...) (dir ...))
(setq vm-args (append vm-args bsh-vm-args)) (setq vm-args (append vm-args ...))
(save-excursion (set-buffer bsh-buffer) (erase-buffer) (cd dir) (insert ...) (insert
...) (comint-mode) (setq comint-prompt-regexp "bsh % ")) (message "%s" "Starting the
BeanShell. Please wait...") (let (... ... ... ...) (comint-exec bsh-buffer "bsh" vm
nil vm-args)) (let (...) (process-kill-without-query bsh-process)) (if display-buffer
(pop-to-buffer bsh-buffer-name)))
(if (not (comint-check-proc bsh-buffer-name)) (let* (... ... ... ... ...) (setq
vm-args ...) (setq vm-args ...) (save-excursion ... ... ... ... ... ... ...) (message
"%s" "Starting the BeanShell. Please wait...") (let ... ...) (let ... ...) (if
display-buffer ...)) (when display-buffer (message "The Java interpreter is already
running.") (pop-to-buffer bsh-buffer-name)))
(let ((bsh-buffer-name "*bsh*")) (if (not ...) (let* ... ... ... ... ... ... ...
...) (when display-buffer ... ...)))
bsh-internal(t)
bsh()
* call-interactively(bsh)
execute-extended-command(nil)
* call-interactively(execute-extended-command)
