nt4.0
jde2.16beta23
emacs20.6.1
I just rebuilt my machine and had to reinstall emacs and jde, etc.
The first thing I noticed is that when I try to run the debugger
I get the error shown in the subject. I've been out to the archive
and read the solution but when I try to customize jde-db-debugger
I don't see a choice for jdebug. In the past we've had to set the
variable to this: (quote ('jdebug" . "Class"))) which is what the
customization shows. So I'm not sure whats up.
Sorry, I know this is an old problem, but I'm baffled. Shouldn't I see
the jdebug menu right after I load the buffer? I've attached my _emacs
file in case it's relevant.
Thanks
; Set titles for frame and icon (%f == file name, %b == buffer name)
;(setq frame-title-format '( "NTemacs - " (buffer-file-name "%f" ("%b"))) )
(setq frame-title-format '( "NTemacs - " (buffer-file-name "%b")) )
; Display the column number of the point in the mode line
(column-number-mode t)
; change default major mode to text from fundamental
; turn on Auto Fill mode automatically in Text mode
(setq default-major-mode 'text-mode)
; Make Text mode the default mode for new buffers
(add-hook 'text-mode-hook 'turn-on-auto-fill)
; 80 column wide lines when Fill mode is on
(setq set-fill-column 80)
; Dont show the GNU splash screen
(setq inhibit-startup-message t)
(defun scroll-one-line-up (&optional arg)
"Scroll the selected window up (forward in the text) one line (or N lines)."
(interactive "p")
(scroll-up (or arg 1)))
(defun scroll-one-line-down (&optional arg)
"Scroll the selected window down (backward in the text) one line (or N)."
(interactive "p")
(scroll-down (or arg 1)))
;;(defun line-to-top-of-window ()
;; "Scroll the selected window up so that the current line is at the top."
;; (interactive)
;; (recenter 0))
(global-set-key "\C-z" 'scroll-one-line-up)
(global-set-key "\M-z" 'scroll-one-line-down)
(global-set-key "\C-xp" 'other-window)
(global-set-key "\C-x\C-m" 'shell)
(global-set-key "\C-xl" 'goto-line)
(global-set-key [f4] 'call-last-kbd-macro)
;;=======================
;; Debugger key bindings
;;=======================
;this method allows one key binding to toggle abreakpoint on and off
(defun my-do-breakpoint()
(interactive)
(if (not (jde-bug-breakpoints-find
(file-name-nondirectory (buffer-file-name))
(count-lines 1 (+ 1 (line-beginning-position)))))
(jde-bug-set-breakpoint)
(jde-bug-clear-breakpoint))
)
(global-set-key "\C-ci" 'jde-bug-step-into)
(global-set-key "\C-cn" 'jde-bug-step-over)
(global-set-key "\C-co" 'jde-bug-step-out)
(global-set-key "\C-cc" 'jde-bug-continue)
(global-set-key "\C-cdl" 'jde-bug-display-local-variables)
(global-set-key "\C-cda" 'jde-bug-display-array)
(global-set-key "\C-cdo" 'jde-bug-display-object)
(global-set-key "\C-cdv" 'jde-bug-display-variable)
(global-set-key "\C-cds" 'jde-bug-display-string)
(global-set-key "\C-cdt" 'jde-bug-show-threads)
(global-set-key "\C-cdc" 'jde-bug-display-loaded-classes)
(global-set-key [f5] 'my-do-breakpoint)
(global-set-key "\C-ci" 'jde-bug-step-into)
(global-set-key "\C-cn" 'jde-bug-step-over)
(global-set-key "\C-co" 'jde-bug-step-out)
(global-set-key "\C-cc" 'jde-bug-continue)
(global-set-key "\C-cdl" 'jde-bug-display-local-variables)
(global-set-key "\C-cda" 'jde-bug-display-array)
(global-set-key "\C-cdo" 'jde-bug-display-object)
(global-set-key "\C-cdv" 'jde-bug-display-variable)
(global-set-key "\C-cds" 'jde-bug-display-string)
(global-set-key "\C-cdt" 'jde-bug-show-threads)
(global-set-key "\C-cdc" 'jde-bug-display-loaded-classes)
(global-set-key [f5] 'my-do-breakpoint)
;; Commenting and uncommenting region
;; start out using M-x comment-region, then
;; later reselt region and use C-F1 to undo it.
(defun uncomment-region (beg end)
(interactive "r")
(comment-region beg end -1))
(global-set-key '[C-f1] 'uncomment-region)
;; Make tab use spaces
;;
(setq-default indent-tabs-mode nil)
; turn lower case on
;
(put 'downcase-region 'disabled nil)
;;
;; Horizontal Scrolling
;;
(set-default 'truncate-lines t )
(setq-default auto-show-mode t)
(require 'auto-show)
(auto-show-mode 1)
(setq load-path
(nconc
'(
"d:/jde-2.1.6beta23/lisp"
;; Add paths to other add-on packages here.
)
load-path))
;;(require 'jde)
(setq auto-mode-alist
(append
'(("\\.java\\'" . jde-mode))
auto-mode-alist))
(autoload 'jde-mode "jde" "JDE mode" t)
(defun my-java-mode-hook()
"Hook for running Java file..."
(message " Loading my-java-hook...")
;;don't indent braces
(c-set-offset 'substatement-open 0)
(c-set-offset 'statement-case-open 0)
(c-set-offset 'case-label '+)
)
(add-hook 'java-mode-hook 'my-java-mode-hook)
(custom-set-variables
'(jde-compile-option-command-line-args "-g")
'(jde-db-source-directories (quote ("./" "d:/jdk1.2.2/src/")))
'(jde-bug-jpda-directory "d:/jpda/"))
(custom-set-faces)
begin:vcard
n:Johns;Rich
tel;work:306.4686
x-mozilla-html:TRUE
org:Vignette
adr:;;;;;;
version:2.1
email;internet:[EMAIL PROTECTED]
title:Senior Software Engineer
fn:Rich Johns
end:vcard
