Platform: Win2K
Emacs Version: XEmacs 21.1.9
JDE Version: 1.7 (this is the latest version available from the "Manage
Packages" mechanism - is this out of date?)
Contents of .emacs file: appended.
I have two problems - first, when I start up, requiring jde causes the
following (run as xemacs -debug-init):
Signaling: (end-of-file "internal input stream")
load-internal("compile" nil t nil binary)
load("compile" nil t nil)
require(compile)
load-internal("jde-make" nil t nil binary)
load("jde-make" nil t nil)
require(jde-make)
byte-code("..." [boundp jde-xemacs20p jde-xemacsp emacs-major-version 20
current-load-list require easymenu cl font-lock cc-mode c-initialize-cc-mode
cus-edit jde-compile jde-db jde-run jde-make jde-gen compile imenu speedbar
browse-url beanshell jde-wiz] 2)
load-internal("jde" nil t nil binary)
load("jde" nil t nil)
require(jde)
load-internal("~\\.emacs" t t t undecided)
load("~\\.emacs" t t t)
load-user-init-file("")
load-init-file()
command-line()
normal-top-level()
I've checked to make sure that the 'compile' package can be loaded; it can.
(I used meta-x load-library<return>compile<return>).
Any ideas? I haven't been subscribed to the jde list for a couple of years
so I apologize if this is something well-known (I searched the e-mail
archives without finding anything obvious). I just subscribed, but if you
send a response, please cc me directly in case the server hasn't caught up
with my subscription yet.
The second problem I'm having is that I can't seem to configure XEmacs to
see JDEbug - I'm following the instructions on
http://sunsite.auc.dk/jde/jdedoc/jdebug/ug/jdebug-ug.html - under "selecting
JDEbug as your debugger", when I attempt to customize the jde-db-debugger
variable, the customization buffer doesn't give me an option to choose
JDEbug. When I set it manually, a subsequent load of a .java buffer comes
up properly in JDE mode, but does not present a JDEbug menu as the JDEbug
users guide suggests it should; attempts to debug the app using the
JDE/Debug App menu choice starts jdb instead. I've been mucking around
trying to require jde-db and stuff but it is totally stabbing in the dark.
Any ideas on these greatly appreciated -
//Thomas
Thomas K. Burkholder
.emacs file - don't get confused by the set-eot stuff; these problems
persist without it so it's a red herring (all it does is put a little icon
at the end of some buffers).
;; Options Menu Settings
;; =====================
(cond
((and (string-match "XEmacs" emacs-version)
(boundp 'emacs-major-version)
(or (and
(= emacs-major-version 19)
(>= emacs-minor-version 14))
(= emacs-major-version 20))
(fboundp 'load-options-file))
(load-options-file "/home/mgutschk/.xemacs-options")))
;; ============================
;; End of Options Menu Settings
(custom-set-variables
'(jde-db-debugger (quote ("JDEbug" . "Executable"))))
(custom-set-faces)
(put 'narrow-to-region 'disabled nil)
(require 'func-menu)
(require 'balloon-help)
;; Abbrev: Enable dynamic expansion
(global-set-key '(meta space) '(lambda ()
"dynamically expand words"
(interactive)
(let ((old-case-fold-search case-fold-search))
(setq case-fold-search nil)
(dabbrev-expand nil)
(setq case-fold-search old-case-fold-search))))
;; Vi-style parentheses matching
(defun match-paren (arg)
"Go to the matching parenthesis if on parenthesis otherwise insert %;
if moving the point, set mark at old position and activate zmacs region."
(interactive "p")
(save-match-data
(condition-case nil
(let ((beg (point)))
(cond ((save-excursion (backward-char 1) (looking-at "\\s\)"))
(backward-list 1))
((looking-at "\\s\(")
(forward-list 1))
(error "")) ; error handler will insert character
(if (eq (point) (mark t)) (pop-mark))
(push-mark beg nil t))
(error (self-insert-command (or arg 1))))))
(global-set-key "%" 'match-paren)
;; Enable Undo/Redo
(require 'redo)
(global-set-key '(control 41) 'redo)
;; Abbrev: Enable dynamic expansion
(global-set-key '(meta space) '(lambda ()
"dynamically expand words"
(interactive)
(let ((old-case-fold-search case-fold-search))
(setq case-fold-search nil)
(dabbrev-expand nil)
(setq case-fold-search old-case-fold-search))))
;; Display End-Of-Buffer marker
(defun display-image-in-buffer (file)
"Puts the image contained in the file in the current buffer"
(interactive "f")
(let ((IT (make-glyph-internal))) ;; IT, a la Stephen King
(set-glyph-property IT 'image file) ;; not as in ITaly
(make-annotation IT nil 'text)))
(defvar eot-xpm "/* XPM */
static char * file[] = {
\"14 11 5 1\",
\" s background c #FFFFFFFFFFFF\",
\". c #000000000000\",
\"X c #FFFF00000000\",
\"o c #000077770000\",
\"O c #000044440000\",
\" \",
\" oo \",
\" oOXo \",
\" oOXXXo \",
\" oOXXXXXo \",
\" .oXXXXXXXo \",
\" oOXXXXXo \",
\" oOXXXo \",
\" oOXo \",
\" oo \",
\" \"};"
"An XPM image that marks the end of text (eot)")
(defvar eot-glyph (make-glyph eot-xpm)
"A glyph that marks the end of text (eot)
this variable is initialized from eot-xpm")
(defun set-eot ()
"Attach a glyph to the end of text (eot)"
(interactive)
(unless (extent-list (current-buffer) (point-max) (point-max))
(progn
(setq eot-extent (make-extent (point-max) (point-max)))
(set-extent-property eot-extent 'end-open nil)
(set-extent-property eot-extent 'start-open t)
(set-extent-property eot-extent 'end-glyph eot-glyph)
(set-extent-property eot-extent 'detachable nil)
(setq c-basic-offset 3)
(setq indent-tabs-mode nil)
)
))
(add-hook 'asm-mode-hook 'set-eot)
(add-hook 'c++-mode-hook 'set-eot)
(add-hook 'c-mode-hook 'set-eot)
(add-hook 'emacs-lisp-mode-hook 'set-eot)
(add-hook 'java-mode-hook 'set-eot)
(add-hook 'ksh-mode-hook 'set-eot)
(add-hook 'lisp-mode-hook 'set-eot)
(add-hook 'makefile-mode-hook 'set-eot)
(add-hook 'perl-mode-hook 'set-eot)
(add-hook 'postscript-mode-hook 'set-eot)
(add-hook 'tex-mode-hook 'set-eot)
(add-hook 'texinfo-mode-hook 'set-eot)
(add-hook 'text-mode-hook 'set-eot)
(require 'jde)
(require 'jde-db)
