Please help!
Whenever I try to jsp-complete-at-point I get "Lisp nesting exceeds
max-lisp-eval-depth".
Config:
RH 7.1
XEmacs 20.4.1
cc-mode 5.28
eieio-0.17beta2
semantic-1.4beta9
elib-1.0
jde-2.2.7.1
speedbar-0.14beta1
Backtrace:
Signaling: (error "Lisp nesting exceeds max-lisp-eval-depth")
(if end-of-result (setq bsh-tq-reply (concat bsh-tq-reply ...)) (setq
bsh-tq-reply (concat bsh-tq-reply result)) (accept-process-output
process bsh-eval-timeout 5))
(let ((end-of-result ...)) (if end-of-result (setq bsh-tq-reply ...)
(setq bsh-tq-reply ...) (accept-process-output process bsh-eval-timeout
5)))
bsh-eval-filter(#<process bsh> ")")
accept-process-output(#<process bsh> 20 5)
(if end-of-result (setq bsh-tq-reply (concat bsh-tq-reply ...)) (setq
bsh-tq-reply (concat bsh-tq-reply result)) (accept-process-output
process bsh-eval-timeout 5))
(let ((end-of-result ...)) (if end-of-result (setq bsh-tq-reply ...)
(setq bsh-tq-reply ...) (accept-process-output process bsh-eval-timeout
5)))
bsh-eval-filter(#<process bsh> "\" ")
accept-process-output(#<process bsh> 20 5)
(if end-of-result (setq bsh-tq-reply (concat bsh-tq-reply ...)) (setq
bsh-tq-reply (concat bsh-tq-reply result)) (accept-process-output
process bsh-eval-timeout 5))
(let ((end-of-result ...)) (if end-of-result (setq bsh-tq-reply ...)
(setq bsh-tq-reply ...) (accept-process-output process bsh-eval-timeout
5)))
bsh-eval-filter(#<process bsh> "int")
accept-process-output(#<process bsh> 20 5)
(if end-of-result (setq bsh-tq-reply (concat bsh-tq-reply ...)) (setq
bsh-tq-reply (concat bsh-tq-reply result)) (accept-process-output
process bsh-eval-timeout 5))
(let ((end-of-result ...)) (if end-of-result (setq bsh-tq-reply ...)
(setq bsh-tq-reply ...) (accept-process-output process bsh-eval-timeout
5)))
bsh-eval-filter(#<process bsh> "\"")
accept-process-output(#<process bsh> 20 5)
(if end-of-result (setq bsh-tq-reply (concat bsh-tq-reply ...)) (setq
bsh-tq-reply (concat bsh-tq-reply result)) (accept-process-output
process bsh-eval-timeout 5))
(let ((end-of-result ...)) (if end-of-result (setq bsh-tq-reply ...)
(setq bsh-tq-reply ...) (accept-process-output process bsh-eval-timeout
5)))
bsh-eval-filter(#<process bsh> "\" ")
accept-process-output(#<process bsh> 20 5)
(if end-of-result (setq bsh-tq-reply (concat bsh-tq-reply ...)) (setq
bsh-tq-reply (concat bsh-tq-reply result)) (accept-process-output
process bsh-eval-timeout 5))
(let ((end-of-result ...)) (if end-of-result (setq bsh-tq-reply ...)
(setq bsh-tq-reply ...) (accept-process-output process bsh-eval-timeout
5)))
bsh-eval-filter(#<process bsh> "long")
accept-process-output(#<process bsh> 20 5)
(if end-of-result (setq bsh-tq-reply (concat bsh-tq-reply ...)) (setq
bsh-tq-reply (concat bsh-tq-reply result)) (accept-process-output
process bsh-eval-timeout 5))
(let ((end-of-result ...)) (if end-of-result (setq bsh-tq-reply ...)
(setq bsh-tq-reply ...) (accept-process-output process bsh-eval-timeout
5)))
bsh-eval-filter(#<process bsh> "\"")
accept-process-output(#<process bsh> 20 5)
(if end-of-result (setq bsh-tq-reply (concat bsh-tq-reply ...)) (setq
bsh-tq-reply (concat bsh-tq-reply result)) (accept-process-output
process bsh-eval-timeout 5))
(let ((end-of-result ...)) (if end-of-result (setq bsh-tq-reply ...)
(setq bsh-tq-reply ...) (accept-process-output process bsh-eval-timeout
5)))
bsh-eval-filter(#<process bsh> "void\" ")
accept-process-output(#<process bsh> 20 5)
(if end-of-result (setq bsh-tq-reply (concat bsh-tq-reply ...)) (setq
bsh-tq-reply (concat bsh-tq-reply result)) (accept-process-output
process bsh-eval-timeout 5))
(let ((end-of-result ...)) (if end-of-result (setq bsh-tq-reply ...)
(setq bsh-tq-reply ...) (accept-process-output process bsh-eval-timeout
5)))
bsh-eval-filter(#<process bsh> "wait\" \"")
accept-process-output(#<process bsh> 20 5)
(if end-of-result (setq bsh-tq-reply (concat bsh-tq-reply ...)) (setq
bsh-tq-reply (concat bsh-tq-reply result)) (accept-process-output
process bsh-eval-timeout 5))
(let ((end-of-result ...)) (if end-of-result (setq bsh-tq-reply ...)
(setq bsh-tq-reply ...) (accept-process-output process bsh-eval-timeout
5)))
bsh-eval-filter(#<process bsh> "(list \"")
accept-process-output(#<process bsh> 20 5)
(if end-of-result (setq bsh-tq-reply (concat bsh-tq-reply ...)) (setq
bsh-tq-reply (concat bsh-tq-reply result)) (accept-process-output
process bsh-eval-timeout 5))
(let ((end-of-result ...)) (if end-of-result (setq bsh-tq-reply ...)
(setq bsh-tq-reply ...) (accept-process-output process bsh-eval-timeout
5)))
bsh-eval-filter(#<process bsh> ")")
accept-process-output(#<process bsh> 20 5)
(if end-of-result (setq bsh-tq-reply (concat bsh-tq-reply ...)) (setq
bsh-tq-reply (concat bsh-tq-reply result)) (accept-process-output
process bsh-eval-timeout 5))
(let ((end-of-result ...)) (if end-of-result (setq bsh-tq-reply ...)
(setq bsh-tq-reply ...) (accept-process-output process bsh-eval-timeout
5)))
bsh-eval-filter(#<process bsh> "\" ")
accept-process-output(#<process bsh> 20 5)
(if end-of-result (setq bsh-tq-reply (concat bsh-tq-reply ...)) (setq
bsh-tq-reply (concat bsh-tq-reply result)) (accept-process-output
process bsh-eval-timeout 5))
(let ((end-of-result ...)) (if end-of-result (setq bsh-tq-reply ...)
(setq bsh-tq-reply ...) (accept-process-output process bsh-eval-timeout
5)))
bsh-eval-filter(#<process bsh> "long")
accept-process-output(#<process bsh> 20 5)
(if end-of-result (setq bsh-tq-reply (concat bsh-tq-reply ...)) (setq
bsh-tq-reply (concat bsh-tq-reply result)) (accept-process-output
process bsh-eval-timeout 5))
(let ((end-of-result ...)) (if end-of-result (setq bsh-tq-reply ...)
(setq bsh-tq-reply ...) (accept-process-output process bsh-eval-timeout
5)))
bsh-eval-filter(#<process bsh> "\"")
accept-process-output(#<process bsh> 20 5)
(if end-of-result (setq bsh-tq-reply (concat bsh-tq-reply ...)) (setq
bsh-tq-reply (concat bsh-tq-reply result)) (accept-process-output
process bsh-eval-timeout 5))
(let ((end-of-result ...)) (if end-of-result (setq bsh-tq-reply ...)
(setq bsh-tq-reply ...) (accept-process-output process bsh-eval-timeout
5)))
bsh-eval-filter(#<process bsh> "void\" ")
accept-process-output(#<process bsh> 20 5)
(if end-of-result (setq bsh-tq-reply (concat bsh-tq-reply ...)) (setq
bsh-tq-reply (concat bsh-tq-reply result)) (accept-process-output
process bsh-eval-timeout 5))
(let ((end-of-result ...)) (if end-of-result (setq bsh-tq-reply ...)
(setq bsh-tq-reply ...) (accept-process-output process bsh-eval-timeout
5)))
bsh-eval-filter(#<process bsh> "wait\" \"")
accept-process-output(#<process bsh> 20 5)
(if end-of-result (setq bsh-tq-reply (concat bsh-tq-reply ...)) (setq
bsh-tq-reply (concat bsh-tq-reply result)) (accept-process-output
process bsh-eval-timeout 5))
(let ((end-of-result ...)) (if end-of-result (setq bsh-tq-reply ...)
(setq bsh-tq-reply ...) (accept-process-output process bsh-eval-timeout
5)))
bsh-eval-filter(#<process bsh> "(list \"")
accept-process-output(#<process bsh> 20 5)
(if end-of-result (setq bsh-tq-reply (concat bsh-tq-reply ...)) (setq
bsh-tq-reply (concat bsh-tq-reply result)) (accept-process-output
process bsh-eval-timeout 5))
(let ((end-of-result ...)) (if end-of-result (setq bsh-tq-reply ...)
(setq bsh-tq-reply ...) (accept-process-output process bsh-eval-timeout
5)))
bsh-eval-filter(#<process bsh> ")")
accept-process-output(#<process bsh> 20 5)
(if end-of-result (setq bsh-tq-reply (concat bsh-tq-reply ...)) (setq
bsh-tq-reply (concat bsh-tq-reply result)) (accept-process-output
process bsh-eval-timeout 5))
(let ((end-of-result ...)) (if end-of-result (setq bsh-tq-reply ...)
(setq bsh-tq-reply ...) (accept-process-output process bsh-eval-timeout
5)))
bsh-eval-filter(#<process bsh> "void\" ")
accept-process-output(#<process bsh> 20 5)
(if end-of-result (setq bsh-tq-reply (concat bsh-tq-reply ...)) (setq
bsh-tq-reply (concat bsh-tq-reply result)) (accept-process-output
process bsh-eval-timeout 5))
(let ((end-of-result ...)) (if end-of-result (setq bsh-tq-reply ...)
(setq bsh-tq-reply ...) (accept-process-output process bsh-eval-timeout
5)))
bsh-eval-filter(#<process bsh> "notifyAll\" \"")
accept-process-output(#<process bsh> 20 5)
(if end-of-result (setq bsh-tq-reply (concat bsh-tq-reply ...)) (setq
bsh-tq-reply (concat bsh-tq-reply result)) (accept-process-output
process bsh-eval-timeout 5))
(let ((end-of-result ...)) (if end-of-result (setq bsh-tq-reply ...)
(setq bsh-tq-reply ...) (accept-process-output process bsh-eval-timeout
5)))
bsh-eval-filter(#<process bsh> "(list \"")
accept-process-output(#<process bsh> 20 5)
(if end-of-result (setq bsh-tq-reply (concat bsh-tq-reply ...)) (setq
bsh-tq-reply (concat bsh-tq-reply result)) (accept-process-output
process bsh-eval-timeout 5))
(let ((end-of-result ...)) (if end-of-result (setq bsh-tq-reply ...)
(setq bsh-tq-reply ...) (accept-process-output process bsh-eval-timeout
5)))
bsh-eval-filter(#<process bsh> ")")
accept-process-output(#<process bsh> 20 5)
(if end-of-result (setq bsh-tq-reply (concat bsh-tq-reply ...)) (setq
bsh-tq-reply (concat bsh-tq-reply result)) (accept-process-output
process bsh-eval-timeout 5))
(let ((end-of-result ...)) (if end-of-result (setq bsh-tq-reply ...)
(setq bsh-tq-reply ...) (accept-process-output process bsh-eval-timeout
5)))
bsh-eval-filter(#<process bsh> "void\" ")
accept-process-output(#<process bsh> 20 5)
(if end-of-result (setq bsh-tq-reply (concat bsh-tq-reply ...)) (setq
bsh-tq-reply (concat bsh-tq-reply result)) (accept-process-output
process bsh-eval-timeout 5))
(let ((end-of-result ...)) (if end-of-result (setq bsh-tq-reply ...)
(setq bsh-tq-reply ...) (accept-process-output process bsh-eval-timeout
5)))
bsh-eval-filter(#<process bsh> "notify\" \"")
accept-process-output(#<process bsh> 20 5)
(if end-of-result (setq bsh-tq-reply (concat bsh-tq-reply ...)) (setq
bsh-tq-reply (concat bsh-tq-reply result)) (accept-process-output
process bsh-eval-timeout 5))
(let ((end-of-result ...)) (if end-of-result (setq bsh-tq-reply ...)
(setq bsh-tq-reply ...) (accept-process-output process bsh-eval-timeout
5)))
bsh-eval-filter(#<process bsh> "(list \"")
accept-process-output(#<process bsh> 20 5)
(if end-of-result (setq bsh-tq-reply (concat bsh-tq-reply ...)) (setq
bsh-tq-reply (concat bsh-tq-reply result)) (accept-process-output
process bsh-eval-timeout 5))
(let ((end-of-result ...)) (if end-of-result (setq bsh-tq-reply ...)
(setq bsh-tq-reply ...) (accept-process-output process bsh-eval-timeout
5)))
bsh-eval-filter(#<process bsh> ")")
accept-process-output(#<process bsh> 20 5)
(if end-of-result (setq bsh-tq-reply (concat bsh-tq-reply ...)) (setq
bsh-tq-reply (concat bsh-tq-reply result)) (accept-process-output
process bsh-eval-timeout 5))
(let ((end-of-result ...)) (if end-of-result (setq bsh-tq-reply ...)
(setq bsh-tq-reply ...) (accept-process-output process bsh-eval-timeout
5)))
bsh-eval-filter(#<process bsh> "java.lang.String\" ")
accept-process-output(#<process bsh> 20 5)
(if end-of-result (setq bsh-tq-reply (concat bsh-tq-reply ...)) (setq
bsh-tq-reply (concat bsh-tq-reply result)) (accept-process-output
process bsh-eval-timeout 5))
(let ((end-of-result ...)) (if end-of-result (setq bsh-tq-reply ...)
(setq bsh-tq-reply ...) (accept-process-output process bsh-eval-timeout
5)))
bsh-eval-filter(#<process bsh> "toString\" \"")
accept-process-output(#<process bsh> 20 5)
(if end-of-result (setq bsh-tq-reply (concat bsh-tq-reply ...)) (setq
bsh-tq-reply (concat bsh-tq-reply result)) (accept-process-output
process bsh-eval-timeout 5))
(let ((end-of-result ...)) (if end-of-result (setq bsh-tq-reply ...)
(setq bsh-tq-reply ...) (accept-process-output process bsh-eval-timeout
5)))
bsh-eval-filter(#<process bsh> "(list \"")
accept-process-output(#<process bsh> 20 5)
(if end-of-result (setq bsh-tq-reply (concat bsh-tq-reply ...)) (setq
bsh-tq-reply (concat bsh-tq-reply result)) (accept-process-output
process bsh-eval-timeout 5))
(let ((end-of-result ...)) (if end-of-result (setq bsh-tq-reply ...)
(setq bsh-tq-reply ...) (accept-process-output process bsh-eval-timeout
5)))
bsh-eval-filter(#<process bsh> ")")
accept-process-output(#<process bsh> 20 5)
(if end-of-result (setq bsh-tq-reply (concat bsh-tq-reply ...)) (setq
bsh-tq-reply (concat bsh-tq-reply result)) (accept-process-output
process bsh-eval-timeout 5))
(let ((end-of-result ...)) (if end-of-result (setq bsh-tq-reply ...)
(setq bsh-tq-reply ...) (accept-process-output process bsh-eval-timeout
5)))
bsh-eval-filter(#<process bsh> "\" ")
accept-process-output(#<process bsh> 20 5)
(if end-of-result (setq bsh-tq-reply (concat bsh-tq-reply ...)) (setq
bsh-tq-reply (concat bsh-tq-reply result)) (accept-process-output
process bsh-eval-timeout 5))
(let ((end-of-result ...)) (if end-of-result (setq bsh-tq-reply ...)
(setq bsh-tq-reply ...) (accept-process-output process bsh-eval-timeout
5)))
bsh-eval-filter(#<process bsh> "java.lang.Object")
accept-process-output(#<process bsh> 20 5)
(if end-of-result (setq bsh-tq-reply (concat bsh-tq-reply ...)) (setq
bsh-tq-reply (concat bsh-tq-reply result)) (accept-process-output
process bsh-eval-timeout 5))
(let ((end-of-result ...)) (if end-of-result (setq bsh-tq-reply ...)
(setq bsh-tq-reply ...) (accept-process-output process bsh-eval-timeout
5)))
bsh-eval-filter(#<process bsh> "\"")
accept-process-output(#<process bsh> 20 5)
(if end-of-result (setq bsh-tq-reply (concat bsh-tq-reply ...)) (setq
bsh-tq-reply (concat bsh-tq-reply result)) (accept-process-output
process bsh-eval-timeout 5))
(let ((end-of-result ...)) (if end-of-result (setq bsh-tq-reply ...)
(setq bsh-tq-reply ...) (accept-process-output process bsh-eval-timeout
5)))
bsh-eval-filter(#<process bsh> "boolean\" ")
accept-process-output(#<process bsh> 20 5)
(if end-of-result (setq bsh-tq-reply (concat bsh-tq-reply ...)) (setq
bsh-tq-reply (concat bsh-tq-reply result)) (accept-process-output
process bsh-eval-timeout 5))
(let ((end-of-result ...)) (if end-of-result (setq bsh-tq-reply ...)
(setq bsh-tq-reply ...) (accept-process-output process bsh-eval-timeout
5)))
bsh-eval-filter(#<process bsh> "equals\" \"")
accept-process-output(#<process bsh> 20 5)
(if end-of-result (setq bsh-tq-reply (concat bsh-tq-reply ...)) (setq
bsh-tq-reply (concat bsh-tq-reply result)) (accept-process-output
process bsh-eval-timeout 5))
(let ((end-of-result ...)) (if end-of-result (setq bsh-tq-reply ...)
(setq bsh-tq-reply ...) (accept-process-output process bsh-eval-timeout
5)))
bsh-eval-filter(#<process bsh> "(list \"")
accept-process-output(#<process bsh> 20 5)
(if end-of-result (setq bsh-tq-reply (concat bsh-tq-reply ...)) (setq
bsh-tq-reply (concat bsh-tq-reply result)) (accept-process-output
process bsh-eval-timeout 5))
(let ((end-of-result ...)) (if end-of-result (setq bsh-tq-reply ...)
(setq bsh-tq-reply ...) (accept-process-output process bsh-eval-timeout
5)))
bsh-eval-filter(#<process bsh> ")")
accept-process-output(#<process bsh> 20 5)
(if end-of-result (setq bsh-tq-reply (concat bsh-tq-reply ...)) (setq
bsh-tq-reply (concat bsh-tq-reply result)) (accept-process-output
process bsh-eval-timeout 5))
(let ((end-of-result ...)) (if end-of-result (setq bsh-tq-reply ...)
(setq bsh-tq-reply ...) (accept-process-output process bsh-eval-timeout
5)))
bsh-eval-filter(#<process bsh> "int\" ")
accept-process-output(#<process bsh> 20 5)
(if end-of-result (setq bsh-tq-reply (concat bsh-tq-reply ...)) (setq
bsh-tq-reply (concat bsh-tq-reply result)) (accept-process-output
process bsh-eval-timeout 5))
(let ((end-of-result ...)) (if end-of-result (setq bsh-tq-reply ...)
(setq bsh-tq-reply ...) (accept-process-output process bsh-eval-timeout
5)))
bsh-eval-filter(#<process bsh> "hashCode\" \"")
accept-process-output(#<process bsh> 20 5)
(if end-of-result (setq bsh-tq-reply (concat bsh-tq-reply ...)) (setq
bsh-tq-reply (concat bsh-tq-reply result)) (accept-process-output
process bsh-eval-timeout 5))
(let ((end-of-result ...)) (if end-of-result (setq bsh-tq-reply ...)
(setq bsh-tq-reply ...) (accept-process-output process bsh-eval-timeout
5)))
bsh-eval-filter(#<process bsh> "(list \"")
accept-process-output(#<process bsh> 20 5)
(if end-of-result (setq bsh-tq-reply (concat bsh-tq-reply ...)) (setq
bsh-tq-reply (concat bsh-tq-reply result)) (accept-process-output
process bsh-eval-timeout 5))
(let ((end-of-result ...)) (if end-of-result (setq bsh-tq-reply ...)
(setq bsh-tq-reply ...) (accept-process-output process bsh-eval-timeout
5)))
bsh-eval-filter(#<process bsh> ")")
accept-process-output(#<process bsh> 20 5)
(if end-of-result (setq bsh-tq-reply (concat bsh-tq-reply ...)) (setq
bsh-tq-reply (concat bsh-tq-reply result)) (accept-process-output
process bsh-eval-timeout 5))
(let ((end-of-result ...)) (if end-of-result (setq bsh-tq-reply ...)
(setq bsh-tq-reply ...) (accept-process-output process bsh-eval-timeout
5)))
bsh-eval-filter(#<process bsh> "java.lang.Class\" ")
accept-process-output(#<process bsh> 20 5)
(if end-of-result (setq bsh-tq-reply (concat bsh-tq-reply ...)) (setq
bsh-tq-reply (concat bsh-tq-reply result)) (accept-process-output
process bsh-eval-timeout 5))
(let ((end-of-result ...)) (if end-of-result (setq bsh-tq-reply ...)
(setq bsh-tq-reply ...) (accept-process-output process bsh-eval-timeout
5)))
bsh-eval-filter(#<process bsh> "getClass\" \"")
accept-process-output(#<process bsh> 20 5)
(if end-of-result (setq bsh-tq-reply (concat bsh-tq-reply ...)) (setq
bsh-tq-reply (concat bsh-tq-reply result)) (accept-process-output
process bsh-eval-timeout 5))
(let ((end-of-result ...)) (if end-of-result (setq bsh-tq-reply ...)
(setq bsh-tq-reply ...) (accept-process-output process bsh-eval-timeout
5)))
bsh-eval-filter(#<process bsh> "(list \"")
accept-process-output(#<process bsh> 20 5)
(if end-of-result (setq bsh-tq-reply (concat bsh-tq-reply ...)) (setq
bsh-tq-reply (concat bsh-tq-reply result)) (accept-process-output
process bsh-eval-timeout 5))
(let ((end-of-result ...)) (if end-of-result (setq bsh-tq-reply ...)
(setq bsh-tq-reply ...) (accept-process-output process bsh-eval-timeout
5)))
bsh-eval-filter(#<process bsh> ")")
accept-process-output(#<process bsh> 20 5)
(if end-of-result (setq bsh-tq-reply (concat bsh-tq-reply ...)) (setq
bsh-tq-reply (concat bsh-tq-reply result)) (accept-process-output
process bsh-eval-timeout 5))
(let ((end-of-result ...)) (if end-of-result (setq bsh-tq-reply ...)
(setq bsh-tq-reply ...) (accept-process-output process bsh-eval-timeout
5)))
bsh-eval-filter(#<process bsh> "\" ")
accept-process-output(#<process bsh> 20 5)
(if end-of-result (setq bsh-tq-reply (concat bsh-tq-reply ...)) (setq
bsh-tq-reply (concat bsh-tq-reply result)) (accept-process-output
process bsh-eval-timeout 5))
(let ((end-of-result ...)) (if end-of-result (setq bsh-tq-reply ...)
(setq bsh-tq-reply ...) (accept-process-output process bsh-eval-timeout
5)))
bsh-eval-filter(#<process bsh> "java.sql.ResultSet")
accept-process-output(#<process bsh> 20 5)
(if end-of-result (setq bsh-tq-reply (concat bsh-tq-reply ...)) (setq
bsh-tq-reply (concat bsh-tq-reply result)) (accept-process-output
process bsh-eval-timeout 5))
(let ((end-of-result ...)) (if end-of-result (setq bsh-tq-reply ...)
(setq bsh-tq-reply ...) (accept-process-output process bsh-eval-timeout
5)))
bsh-eval-filter(#<process bsh> "\"")
accept-process-output(#<process bsh> 20 5)
(if end-of-result (setq bsh-tq-reply (concat bsh-tq-reply ...)) (setq
bsh-tq-reply (concat bsh-tq-reply result)) (accept-process-output
process bsh-eval-timeout 5))
(let ((end-of-result ...)) (if end-of-result (setq bsh-tq-reply ...)
(setq bsh-tq-reply ...) (accept-process-output process bsh-eval-timeout
5)))
bsh-eval-filter(#<process bsh>
"com.pricerunner.autonotify.EventTrigger\" ")
accept-process-output(#<process bsh> 20 5)
(if end-of-result (setq bsh-tq-reply (concat bsh-tq-reply ...)) (setq
bsh-tq-reply (concat bsh-tq-reply result)) (accept-process-output
process bsh-eval-timeout 5))
(let ((end-of-result ...)) (if end-of-result (setq bsh-tq-reply ...)
(setq bsh-tq-reply ...) (accept-process-output process bsh-eval-timeout
5)))
bsh-eval-filter(#<process bsh> "retreive\" \"")
accept-process-output(#<process bsh> 20 5)
(if end-of-result (setq bsh-tq-reply (concat bsh-tq-reply ...)) (setq
bsh-tq-reply (concat bsh-tq-reply result)) (accept-process-output
process bsh-eval-timeout 5))
(let ((end-of-result ...)) (if end-of-result (setq bsh-tq-reply ...)
(setq bsh-tq-reply ...) (accept-process-output process bsh-eval-timeout
5)))
bsh-eval-filter(#<process bsh> "(list \"")
accept-process-output(#<process bsh> 20 5)
(if end-of-result (setq bsh-tq-reply (concat bsh-tq-reply ...)) (setq
bsh-tq-reply (concat bsh-tq-reply result)) (accept-process-output
process bsh-eval-timeout 5))
(let ((end-of-result ...)) (if end-of-result (setq bsh-tq-reply ...)
(setq bsh-tq-reply ...) (accept-process-output process bsh-eval-timeout
5)))
bsh-eval-filter(#<process bsh> "\n")
accept-process-output(#<process bsh> 20 5)
(if end-of-result (setq bsh-tq-reply (concat bsh-tq-reply ...)) (setq
bsh-tq-reply (concat bsh-tq-reply result)) (accept-process-output
process bsh-eval-timeout 5))
(let ((end-of-result ...)) (if end-of-result (setq bsh-tq-reply ...)
(setq bsh-tq-reply ...) (accept-process-output process bsh-eval-timeout
5)))
bsh-eval-filter(#<process bsh> "(list ")
accept-process-output(#<process bsh> 20 5)
(if end-of-result (setq bsh-tq-reply (concat bsh-tq-reply ...)) (setq
bsh-tq-reply (concat bsh-tq-reply result)) (accept-process-output
process bsh-eval-timeout 5))
(let ((end-of-result ...)) (if end-of-result (setq bsh-tq-reply ...)
(setq bsh-tq-reply ...) (accept-process-output process bsh-eval-timeout
5)))
bsh-eval-filter(#<process bsh> ")")
accept-process-output(#<process bsh> 20 5)
(if end-of-result (setq bsh-tq-reply (concat bsh-tq-reply ...)) (setq
bsh-tq-reply (concat bsh-tq-reply result)) (accept-process-output
process bsh-eval-timeout 5))
(let ((end-of-result ...)) (if end-of-result (setq bsh-tq-reply ...)
(setq bsh-tq-reply ...) (accept-process-output process bsh-eval-timeout
5)))
bsh-eval-filter(#<process bsh> ")")
accept-process-output(#<process bsh> 20 5)
(if end-of-result (setq bsh-tq-reply (concat bsh-tq-reply ...)) (setq
bsh-tq-reply (concat bsh-tq-reply result)) (accept-process-output
process bsh-eval-timeout 5))
(let ((end-of-result ...)) (if end-of-result (setq bsh-tq-reply ...)
(setq bsh-tq-reply ...) (accept-process-output process bsh-eval-timeout
5)))
bsh-eval-filter(#<process bsh> "\" ")
accept-process-output(#<process bsh> 20 5)
(if end-of-result (setq bsh-tq-reply (concat bsh-tq-reply ...)) (setq
bsh-tq-reply (concat bsh-tq-reply result)) (accept-process-output
process bsh-eval-timeout 5))
(let ((end-of-result ...)) (if end-of-result (setq bsh-tq-reply ...)
(setq bsh-tq-reply ...) (accept-process-output process bsh-eval-timeout
5)))
bsh-eval-filter(#<process bsh> "java.lang.String")
accept-process-output(#<process bsh> 20 5)
(if end-of-result (setq bsh-tq-reply (concat bsh-tq-reply ...)) (setq
bsh-tq-reply (concat bsh-tq-reply result)) (accept-process-output
process bsh-eval-timeout 5))
(let ((end-of-result ...)) (if end-of-result (setq bsh-tq-reply ...)
(setq bsh-tq-reply ...) (accept-process-output process bsh-eval-timeout
5)))
bsh-eval-filter(#<process bsh> "\"")
accept-process-output(#<process bsh> 20 5)
(if end-of-result (setq bsh-tq-reply (concat bsh-tq-reply ...)) (setq
bsh-tq-reply (concat bsh-tq-reply result)) (accept-process-output
process bsh-eval-timeout 5))
(let ((end-of-result ...)) (if end-of-result (setq bsh-tq-reply ...)
(setq bsh-tq-reply ...) (accept-process-output process bsh-eval-timeout
5)))
bsh-eval-filter(#<process bsh> "\" ")
accept-process-output(#<process bsh> 20 5)
(if end-of-result (setq bsh-tq-reply (concat bsh-tq-reply ...)) (setq
bsh-tq-reply (concat bsh-tq-reply result)) (accept-process-output
process bsh-eval-timeout 5))
(let ((end-of-result ...)) (if end-of-result (setq bsh-tq-reply ...)
(setq bsh-tq-reply ...) (accept-process-output process bsh-eval-timeout
5)))
bsh-eval-filter(#<process bsh> "java.lang.String")
accept-process-output(#<process bsh> 20 5)
(if end-of-result (setq bsh-tq-reply (concat bsh-tq-reply ...)) (setq
bsh-tq-reply (concat bsh-tq-reply result)) (accept-process-output
process bsh-eval-timeout 5))
(let ((end-of-result ...)) (if end-of-result (setq bsh-tq-reply ...)
(setq bsh-tq-reply ...) (accept-process-output process bsh-eval-timeout
5)))
bsh-eval-filter(#<process bsh> "\"")
accept-process-output(#<process bsh> 20 5)
(if end-of-result (setq bsh-tq-reply (concat bsh-tq-reply ...)) (setq
bsh-tq-reply (concat bsh-tq-reply result)) (accept-process-output
process bsh-eval-timeout 5))
(let ((end-of-result ...)) (if end-of-result (setq bsh-tq-reply ...)
(setq bsh-tq-reply ...) (accept-process-output process bsh-eval-timeout
5)))
bsh-eval-filter(#<process bsh>
"com.pricerunner.autonotify.EventTrigger\" ")
accept-process-output(#<process bsh> 20 5)
(if end-of-result (setq bsh-tq-reply (concat bsh-tq-reply ...)) (setq
bsh-tq-reply (concat bsh-tq-reply result)) (accept-process-output
process bsh-eval-timeout 5))
(let ((end-of-result ...)) (if end-of-result (setq bsh-tq-reply ...)
(setq bsh-tq-reply ...) (accept-process-output process bsh-eval-timeout
5)))
bsh-eval-filter(#<process bsh> "(list \"")
accept-process-output(#<process bsh> 20 5)
(if end-of-result (setq bsh-tq-reply (concat bsh-tq-reply ...)) (setq
bsh-tq-reply (concat bsh-tq-reply result)) (accept-process-output
process bsh-eval-timeout 5))
(let ((end-of-result ...)) (if end-of-result (setq bsh-tq-reply ...)
(setq bsh-tq-reply ...) (accept-process-output process bsh-eval-timeout
5)))
bsh-eval-filter(#<process bsh> "(list ")
accept-process-output(#<process bsh> 20 5)
(if end-of-result (setq bsh-tq-reply (concat bsh-tq-reply ...)) (setq
bsh-tq-reply (concat bsh-tq-reply result)) (accept-process-output
process bsh-eval-timeout 5))
(let ((end-of-result ...)) (if end-of-result (setq bsh-tq-reply ...)
(setq bsh-tq-reply ...) (accept-process-output process bsh-eval-timeout
5)))
bsh-eval-filter(#<process bsh> "\n")
accept-process-output(#<process bsh> 20 5)
(if end-of-result (setq bsh-tq-reply (concat bsh-tq-reply ...)) (setq
bsh-tq-reply (concat bsh-tq-reply result)) (accept-process-output
process bsh-eval-timeout 5))
(let ((end-of-result ...)) (if end-of-result (setq bsh-tq-reply ...)
(setq bsh-tq-reply ...) (accept-process-output process bsh-eval-timeout
5)))
bsh-eval-filter(#<process bsh> ")")
accept-process-output(#<process bsh> 20 5)
(if end-of-result (setq bsh-tq-reply (concat bsh-tq-reply ...)) (setq
bsh-tq-reply (concat bsh-tq-reply result)) (accept-process-output
process bsh-eval-timeout 5))
(let ((end-of-result ...)) (if end-of-result (setq bsh-tq-reply ...)
(setq bsh-tq-reply ...) (accept-process-output process bsh-eval-timeout
5)))
bsh-eval-filter(#<process bsh> "(list ")
accept-process-output(#<process bsh> 20 5)
(if end-of-result (setq bsh-tq-reply (concat bsh-tq-reply ...)) (setq
bsh-tq-reply (concat bsh-tq-reply result)) (accept-process-output
process bsh-eval-timeout 5))
(let ((end-of-result ...)) (if end-of-result (setq bsh-tq-reply ...)
(setq bsh-tq-reply ...) (accept-process-output process bsh-eval-timeout
5)))
bsh-eval-filter(#<process bsh> "\n")
accept-process-output(#<process bsh> 20 5)
(if end-of-result (setq bsh-tq-reply (concat bsh-tq-reply ...)) (setq
bsh-tq-reply (concat bsh-tq-reply result)) (accept-process-output
process bsh-eval-timeout 5))
(let ((end-of-result ...)) (if end-of-result (setq bsh-tq-reply ...)
(setq bsh-tq-reply ...) (accept-process-output process bsh-eval-timeout
5)))
bsh-eval-filter(#<process bsh> "(list ")
accept-process-output(#<process bsh> 20 100)
(not (accept-process-output bsh-process bsh-eval-timeout 100))
(if (not (accept-process-output bsh-process bsh-eval-timeout 100))
(error "No reply from BeanShell"))
(progn (setq bsh-tq-reply nil) (set-process-filter bsh-process (quote
bsh-eval-filter)) (process-send-string bsh-process (concat expr "\n"))
(if (not ...) (error "No reply from BeanShell")) (set-process-filter
bsh-process comint-filter) (if (string-match "// Error:" bsh-tq-reply)
(progn ... ...)) (if eval-return (if bsh-tq-reply ... ...)
bsh-tq-reply))
(if bsh-process (progn (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)))
(when bsh-process (setq bsh-tq-reply nil) (set-process-filter
bsh-process (quote bsh-eval-filter)) (process-send-string bsh-process
(concat expr "\n")) (if (not ...) (error "No reply from BeanShell"))
(set-process-filter bsh-process comint-filter) (if (string-match "//
Error:" bsh-tq-reply) (progn ... ...)) (if eval-return (if bsh-tq-reply
... ...) bsh-tq-reply))
(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.Completion.getClassInfo(\"com.pricerunner.autonotif
y.EventTrigger\");" 0 61 nil 61 73 (face font-lock-type-face) 73 76 nil)
t)
bsh-eval-r(#("jde.util.Completion.getClassInfo(\"com.pricerunner.autonot
ify.EventTrigger\");" 0 61 nil 61 73 (face font-lock-type-face) 73 76
nil))
(setq class-info (bsh-eval-r (concat
"jde.util.Completion.getClassInfo(\"" name "\");")))
(progn (setq class-info (bsh-eval-r ...)) (if class-info
(jde-complete-add-to-classinfo-cache name class-info)))
(if (not class-info) (progn (setq class-info ...) (if class-info
...)))
(when (not class-info) (setq class-info (bsh-eval-r ...)) (if
class-info (jde-complete-add-to-classinfo-cache name class-info)))
(let ((class-info ...)) (when (not class-info) (setq class-info ...)
(if class-info ...)) class-info)
jde-complete-get-classinfo(#("com.pricerunner.autonotify.EventTrigger"
0 27 nil 27 39 (face font-lock-type-face)))
(let ((classinfo ...)) (if classinfo (let ... ...)))
(if (member type jde-complete-primitive-types) (error "Cannot complete
primitive type: %s." type) (let (...) (if classinfo ...)))
(if type (if (member type jde-complete-primitive-types) (error "Cannot
complete primitive type: %s." type) (let ... ...)))
(let ((type ...)) (if type (if ... ... ...)))
jde-complete-find-completion-for-pair(("et" "ini"))
(let ((pair ...)) (if (string= ... "") (progn ... ... ... ...)) (if
(null pair) (progn ... ... ... ...))
(jde-complete-find-completion-for-pair pair) (setq
jde-complete-current-list-index -1) (jde-complete-complete-cycle))
(progn (let (...) (if ... ...) (if ... ...)
(jde-complete-find-completion-for-pair pair) (setq
jde-complete-current-list-index -1) (jde-complete-complete-cycle)))
(if (and jde-complete-current-list (markerp
jde-complete-current-beginning) (markerp jde-complete-current-end)
(marker-position jde-complete-current-beginning) (marker-position
jde-complete-current-end) (>= ... ...) (<= ... ...) (eq last-command
this-command)) (jde-complete-complete-cycle) (progn (let ... ... ... ...
... ...)))
jde-complete-at-point()
call-interactively(jde-complete-at-point)
execute-extended-command(nil)
* call-interactively(execute-extended-command)
