Hello,
I was executing the following test java code:
import java.io.*;
public class GalenTest
{
public static void main(String[] args)
{
Employee Galen = new Employee ("Galen",10);
Galen.set_id (20);
Galen.print();
}
}
class Employee
{
String Name;
int employee_id;
public Employee (String name, int id)
{
this.Name = name;
this.employee_id = id;
}
public void set_id (int id)
{
this.employee_id = id;
}
public void print()
{
System.out.println(Name+employee_id);
}
}
I started by JDEBug-->Processes-->Start Debugger
Then JDEBug-->Processes-->Launch Process
Then I pointed to a line in the code to be able to set a breakpoint, clicked
on the JDEBug menu and got the following backtrace:
Signaling: (unbound-slot "#<class jde-dbs-proc>" "#<jde-dbs-proc process1>"
stack oref)
signal(unbound-slot ("#<class jde-dbs-proc>" "#<jde-dbs-proc process1>"
stack oref))
eieio-default-superclass([object jde-dbs-proc "process1" 1 "GalenTest"
1852 #<buffer GalenTest(1) CLI> #<buffer Process GalenTest(1)> #<buffer
GalenTest(1) Threads> #<buffer GalenTest(1) Local Variables> nil [object
jde-dbs-proc-state-info "State Info 1" "unknown" "suspended by debugger" 1
"main"] unbound 0 unbound unbound nil unbound [object jde-dbs-launch-process
"Launch GalenTest" #0 1 "launch" (1 normal ...) 1852 unbound "GalenTest"
unbound "javaw" " " " "] #<window-configuration> nil] jde-dbs-proc stack
oref)
apply(eieio-default-superclass ([object jde-dbs-proc "process1" 1
"GalenTest" 1852 #<buffer GalenTest(1) CLI> #<buffer Process GalenTest(1)>
#<buffer GalenTest(1) Threads> #<buffer GalenTest(1) Local Variables> nil
[object jde-dbs-proc-state-info "State Info 1" "unknown" "suspended by
debugger" 1 "main"] unbound 0 unbound unbound nil unbound [object
jde-dbs-launch-process "Launch GalenTest" #1 1 "launch" ... 1852 unbound
"GalenTest" unbound "javaw" " " " "] #<window-configuration> nil]
jde-dbs-proc stack oref))
(setq rval (apply (car ...) newargs))
(let ((scoped-class ...)) (setq found t) (setq rval (apply ... newargs)))
(if (car lambdas) (let (...) (setq found t) (setq rval ...)))
(while lambdas (if (car lambdas) (let ... ... ...)) (setq lambdas (cdr
lambdas)))
(let ((rval nil) (found nil)) (while lambdas (if ... ...) (setq lambdas
...)) (if (not found) (signal ... ...)) rval)
(let ((newargs nil) (mclass nil) (lambdas nil)
(eieio-generic-call-methodname method) (eieio-generic-call-arglst args))
(setq newargs args) (if (object-p ...) (setq mclass ...)) (if (not
scoped-class) (setq lambdas ...)) (if mclass (setq lambdas ...)) (if (not
scoped-class) (setq lambdas ...)) (if mclass (setq lambdas ...)) (if (not
scoped-class) (setq lambdas ...)) (if mclass (setq lambdas ...)) (let (...
...) (while lambdas ... ...) (if ... ...) rval))
eieio-generic-call(slot-unbound ([object jde-dbs-proc "process1" 1
"GalenTest" 1852 #<buffer GalenTest(1) CLI> #<buffer Process GalenTest(1)>
#<buffer GalenTest(1) Threads> #<buffer GalenTest(1) Local Variables> nil
[object jde-dbs-proc-state-info "State Info 1" "unknown" "suspended by
debugger" 1 "main"] unbound 0 unbound unbound nil unbound [object
jde-dbs-launch-process "Launch GalenTest" #1 1 "launch" ... 1852 unbound
"GalenTest" unbound "javaw" " " " "] #<window-configuration> nil]
jde-dbs-proc stack oref))
slot-unbound([object jde-dbs-proc "process1" 1 "GalenTest" 1852 #<buffer
GalenTest(1) CLI> #<buffer Process GalenTest(1)> #<buffer GalenTest(1)
Threads> #<buffer GalenTest(1) Local Variables> nil [object
jde-dbs-proc-state-info "State Info 1" "unknown" "suspended by debugger" 1
"main"] unbound 0 unbound unbound nil unbound [object jde-dbs-launch-process
"Launch GalenTest" #0 1 "launch" (1 normal ...) 1852 unbound "GalenTest"
unbound "javaw" " " " "] #<window-configuration> nil] jde-dbs-proc stack
oref)
(if (and (eq value eieio-unbound) (not eieio-skip-typecheck))
(slot-unbound instance (object-class instance) slotname fn) value)
eieio-barf-if-slot-unbound(unbound [object jde-dbs-proc "process1" 1
"GalenTest" 1852 #<buffer GalenTest(1) CLI> #<buffer Process GalenTest(1)>
#<buffer GalenTest(1) Threads> #<buffer GalenTest(1) Local Variables> nil
[object jde-dbs-proc-state-info "State Info 1" "unknown" "suspended by
debugger" 1 "main"] unbound 0 unbound unbound nil unbound [object
jde-dbs-launch-process "Launch GalenTest" #0 1 "launch" (1 normal ...) 1852
unbound "GalenTest" unbound "javaw" " " " "] #<window-configuration> nil]
stack oref)
(if (not c) (if (setq c ...) (aref ... c) (slot-missing obj field ...))
(eieio-barf-if-slot-unbound (aref obj c) obj field (quote oref)))
(let ((c ...)) (if (not c) (if ... ... ...) (eieio-barf-if-slot-unbound
... obj field ...)))
oref-engine([object jde-dbs-proc "process1" 1 "GalenTest" 1852 #<buffer
GalenTest(1) CLI> #<buffer Process GalenTest(1)> #<buffer GalenTest(1)
Threads> #<buffer GalenTest(1) Local Variables> nil [object
jde-dbs-proc-state-info "State Info 1" "unknown" "suspended by debugger" 1
"main"] unbound 0 unbound unbound nil unbound [object jde-dbs-launch-process
"Launch GalenTest" #0 1 "launch" (1 normal ...) 1852 unbound "GalenTest"
unbound "javaw" " " " "] #<window-configuration> nil] stack)
(oref process stack)
(length (oref process stack))
(1- (length (oref process stack)))
(let* ((process ...) (stack-max ...) (stack-ptr ...)) (< stack-ptr
stack-max))
(and (jde-dbs-target-process-steppable-p) (let* (... ... ...) (< stack-ptr
stack-max)))
Here is my .emacs
(setq debug-on-error t)
;;;======================================================================
;;; function to paste the font dialog selection into the buffer
;;;======================================================================
; This commmand will call up the font dialog box and then insert at point
; the x-style name of the selected font.
(defun get-font()
"Insert a string in the X format which describes a font the user can
select from the Windows font selector."
(interactive)
(insert (prin1-to-string (w32-select-font)))
)
;;--------------------------------------------------------------------------
------
;; Things for the todo mode
;;--------------------------------------------------------------------------
------
(autoload 'todo-mode "todo-mode"
"Major mode for editing TODO lists." t)
(autoload 'todo-show "todo-mode"
"Show TODO items." t)
(autoload 'todo-insert-item "todo-mode"
"Add TODO item." t)
(setq todo-insert-threshold 4)
(autoload 'folding-mode "folding" "Folding mode" t)
; Automatically scroll horizontally when the point moves off the left
; or right edge of the window
(hscroll-global-mode)
; Show completions in the minibuffer as you type
(icomplete-mode)
;; Always have minibuffer the appropriate size. Useful for long file
;; names, etc. Courtesy of "Dr Francis J. Wright" <[EMAIL PROTECTED]>
(resize-minibuffer-mode)
; Insert the date, the time, and the date and time at point. Insert the
; date 31 days hence at point (eventually...). Useful for keeping
; records. These are based on Glickstein.
(defvar insert-time-format "%T"
"*Format for \\[insert-time] (c.f. 'format-time-string' for how to
format).")
(defvar insert-date-format "%Y %m %d"
"*Format for \\[insert-date] (c.f. 'format-time-string' for how to
format).")
(defun insert-time ()
"Insert the current time according to the variable
\"insert-time-format\"."
(interactive "*")
(insert (format-time-string insert-time-format
(current-time))))
(defun insert-date ()
"Insert the current date according to the variable
\"insert-date-format\"."
(interactive "*")
(insert (format-time-string insert-date-format
(current-time))))
(defun insert-time-and-date ()
"Insert the current date according to the variable \"insert-date-format\",
then a space, then the current time according to the variable
\"insert-time-format\"."
(interactive "*")
(progn
(insert-date)
(insert " ")
(insert-time)))
(global-set-key [f3] 'insert-date)
(global-set-key [f4] 'insert-time)
(global-set-key [f5] 'insert-time-and-date)
;(defun insert-month-date ()
; "Insert the date 31 days from now according to the variable
\"insert-date-format\"."
; (interactive "*")
; (insert (format-time-string insert-date-format
; (current-time))))
; Windows keystrokes...
(global-set-key [M-f4] 'save-buffers-kill-emacs)
;; Window shifting. C-x-o lets us go forward a window (or several). This
;; one lets us go back one or more windows. From Glickstein.
(defun other-window-backward (&optional n)
"Select previous Nth window."
(interactive "P")
(other-window (- (prefix-numeric-value n))))
;; now bind it to C-x p
(global-set-key "\C-x\p" 'other-window-backward)
;; end window shifting.
;; Word Count tool, per [EMAIL PROTECTED]
(if (not ( or (string-equal system-name "server" )
(string-equal system-name "server.localdomain" )))
(progn
(defun sds-word-count (start end)
;; replacement for count-lines-region
"Count lines/words/characters from START to END"
(interactive "r")
(save-excursion
(save-restriction
(narrow-to-region start end)
(goto-char (min start end))
(message "Region (%d to %d) has: lines: %d; words: %d;
characters: %d."
start end (count-lines start end)
(string-to-number (how-many "\\<")) (- end start)))))
(define-key esc-map "=" 'sds-word-count)
))
;; -*- EMACS-LISP -*-
;;
;; KAI GROSSJOHANN <[EMAIL PROTECTED]>
;; 29 JUL 96
;;
;; SOME USEFUL BINDINGS FOR HOME AND END KEYS:
;; HIT THE KEY ONCE TO GO TO THE BEGINNING/END OF A LINE,
;; HIT IT TWICE IN A ROW TO GO TO THE BEGINNING/END OF THE WINDOW,
;; THREE TIMES IN A ROW GOES TO THE BEIGINNING/END OF THE BUFFER.
;; NB that there is no timeout involved.
(defun pc-keys-home ()
"Go to beginning of line/window/buffer.
First hitting key goes to beginning of line, second in a row goes to
beginning of window, third in a row goes to beginning of buffer."
(interactive)
(let* ((keys (recent-keys))
(len (length keys))
(key1 (if (> len 0) (elt keys (- len 1)) nil))
(key2 (if (> len 1) (elt keys (- len 2)) nil))
(key3 (if (> len 2) (elt keys (- len 3)) nil))
(key-equal-1 (eq key1 key2))
(key-equal-2 (and key-equal-1 (eq key2 key3))))
(cond (key-equal-2 (if mark-active
(goto-char (point-min))
(beginning-of-buffer)))
(key-equal-1 (if mark-active () (push-mark))
(move-to-window-line 0))
(t (beginning-of-line)))))
(defun pc-keys-end ()
"Go to end of line/window/buffer.
First hitting key goes to end of line, second in a row goes to end
of window, third in a row goes to end of buffer."
(interactive)
(let* ((keys (recent-keys))
(len (length keys))
(key1 (if (> len 0) (elt keys (- len 1)) nil))
(key2 (if (> len 1) (elt keys (- len 2)) nil))
(key3 (if (> len 2) (elt keys (- len 3)) nil))
(key-equal-1 (eq key1 key2))
(key-equal-2 (and key-equal-1 (eq key2 key3))))
(cond (key-equal-2 (if mark-active
(goto-char (point-max))
(end-of-buffer)))
(key-equal-1 (if mark-active () (push-mark))
(move-to-window-line -1)
(end-of-line))
(t (end-of-line)))))
(global-set-key [home] 'pc-keys-home)
(global-set-key [end] 'pc-keys-end)
(provide 'pc-keys)
;; This was getting max'd out by gnus loading.
(setq max-specpdl-size 5000)
(setq revert-without-query (list ".log"))
;;--------------------------------------------------------------------------
------
;; This will force the true filename to always be used as the buffer name.
;; (There is a variable `find-file-visit-truename' which should have this
;; affect, but doesn't entirely. I'll make a note to fix that.)
;;--------------------------------------------------------------------------
------
(defadvice create-file-buffer (before force-true-buffer-names activate)
"Force buffer names to be true to the filename."
(ad-set-arg 0 (file-truename (ad-get-arg 0))))
;; add hscroll-mode to all the other modes' hooks
;(add-hook 'text-mode-hook 'hscroll-mode)
(add-hook 'shell-mode-hook 'hscroll-mode)
(add-hook 'sqlplus-mode-hook 'hscroll-mode)
(require 'auto-show)
(setq-default auto-show-mode t)
(auto-show-mode 1)
;;======================================================================
;; Set the frame's title. %b is the name of the buffer. %+ indicates the
;; state of the buffer: * if modified, % if read only, or - otherwise. Two
;; of them to emulate the mode line. %f for the file name.
;;======================================================================
(setq frame-title-format "Emacs: %b %+%+ %f")
(setq icon-title-format "Emacs - %b")
;;======================================================================
;; How do I prevent ctrl-m's from being printed in the shell?
;; If you are getting ctrl-m's printed in the shell buffer, try adding the
following to your startup file:
;;======================================================================
(add-hook 'comint-output-filter-functions 'shell-strip-ctrl-m nil t)
(font-lock-add-keywords nil '(("^M" . font-lock-warning-face)))
;;======================================================================
;; Came from email, url in favorites.
;; To enable html and also support for JSP, PHP and JSP
;;======================================================================
(autoload 'html-mode "html-helper-mode" "Yay HTML" t)
(setq auto-mode-alist (cons '("\\.html?$" . html-mode) auto-mode-alist))
(autoload 'html-helper-mode "html-helper-mode" "Yay HTML" t)
(autoload 'asp-html-helper-mode "html-helper-mode" "Yay ASP" t)
(autoload 'php-html-helper-mode "html-helper-mode" "Yay PHP" t)
(setq auto-mode-alist
(cons '("\\.html$" . html-helper-mode) auto-mode-alist))
(setq auto-mode-alist
(cons '("\\.htm$" . html-helper-mode) auto-mode-alist))
(setq auto-mode-alist
(cons '("\\.jsp$" . html-helper-mode) auto-mode-alist))
(setq auto-mode-alist (cons '("\\.asp$" . asp-html-helper-mode)
auto-mode-alist))
;;; VB editing
; (autoload 'visual-basic-mode "visual-basic-mode" "Visual Basic mode." t)
; (setq auto-mode-alist (append '(("\\.\\(frm\\|bas\\|cls\\)$" .
; visual-basic-mode)) auto-mode-alist))
; (autoload 'vbp-mode "visual-basic-mode" "VBP mode." t)
; (setq auto-mode-alist (append '(("\\.\\(vbg\\|vbg\\)$" .
; vbp-mode)) auto-mode-alist))
; (setq visual-basic-ide-pathname "E:/Program Files/DevStudio/VB/VB5.EXE")
; (autoload 'vbp-mode "vbp-mode" "VBP mode." t)
; (setq auto-mode-alist (append '(("\\.vbp$" .
; vbp-mode)) auto-mode-alist))
;;======================================================================
;; Things for coding in java using the jde from sun
;;======================================================================
(setq tags-table-list nil)
; '("d:/Projects/Inca/Development/net/inka"))
; (setq-default jde-db-source-directories
; (list
; "d:/Projects/Inca/Development/net/inka"
; "d:/Projects/Inca/Development/"
; "d:/Projects/Inca/Development/net/inka/util"))
; (setq-default jde-compile-option-command-line-args "-g")
;(setq load-path (cons "d:/emacs/add-ons/eieio-0.12/" load-path))
(setq load-path (cons "d:/emacs/add-ons/jde-2.1.6beta22/lisp" load-path))
(require 'jde)
;;--------------------------------------------------------------------------
------
;; Came from mailing list
;; Phillip Lord [[EMAIL PROTECTED]]
;;
;;;Modifications to jde-help...asks me before it shows...
(defun jde-help-symbol ()
"Displays help for the symbol at point. The symbol may reference an
object, a class,
or a method or field. If the symbol references a class, this function
displays the
javadoc for the class. If the symbol references an object, this method
displays the javadoc for the class of the object. If the symbol references a
field or
a method, this function displays the javadoc for the class of the object of
which
the field or method is a member. Eventually this function will be enhanced
to position
the javadoc at the point where the method or field is documented."
(interactive)
(condition-case err
(let* ((parse-result (jde-help-parse-symbol-at-point))
(unqualified-name
(read-from-minibuffer "Class: "
(if parse-result (car parse-result)
(thing-at-point 'symbol))))
(class-names
;;expand the names into full names, or a list of names
(bsh-eval-r
(concat "jde.util.JdeUtilities.getQualifiedName(\""
unqualified-name "\");")))
(doc-files (mapcar 'jde-help-get-doc class-names)))
;;Check return value of QualifiedName
(if (eq nil class-names)
(error "Cannot find %s" unqualified-name))
;;Remove any annoying nils from the returned values
(setq doc-files (delq nil doc-files))
(if (eq nil doc-files)
(error "Cannot find documentation for %s" unqualified-name))
;;If the list is only one long
(if (eq 1 (length doc-files))
;;then show it
(jde-help-show-document (car doc-files))
;;else let the user choose
(jde-help-choose-document doc-files)))
(error
(message "%s" (error-message-string err)))))
;; This is for creating javadoc comments for classes.
;
;(require 'jdok)
(setq w32-enable-italics t)
;;======================================================================
;; Came from emacs mailing list.
;;
;; Make sure all buffers have horizontal scrolling.
;;======================================================================
(require 'auto-show) ; auto horizontal scrolling
(setq-default auto-show-mode t)
(auto-show-mode 1)
;;======================================================================
;; Came from emacs mailing list.
;;
;; This function bounces between matching parens and braces
;;======================================================================
(defun joc-bounce-sexp ()
"Will bounce between matching parens "[{(<" && ">)}]" just like % in vi"
(interactive)
(let ((prev-char (char-to-string (preceding-char)))
(next-char (char-to-string (following-char))))
(cond ((string-match "[[{(<]" next-char) (forward-sexp 1))
((string-match "[\]})>]" prev-char) (backward-sexp 1))
(t (error "%s" "Not on a paren, brace, or bracket")))))
;; ----- bounce back & forth between matching parens, braces or brackets
-----
(global-set-key [(control =)] 'joc-bounce-sexp)
;;======================================================================
;; From [EMAIL PROTECTED]
;; This will jump to matching paren like VI.
;; Dave Gallucci
;;======================================================================
;; Go to the matching parenthesis if on parenthesis otherwise insert %.
(defun match-paren (arg)
"Go to the matching parenthesis if on parenthesis otherwise insert %."
(interactive "p")
(cond ((looking-at "\\s\(") (forward-list 1) (backward-char 1))
((looking-at "\\s\)") (forward-char 1) (backward-list 1))
(t (self-insert-command (or arg 1)))))
(global-set-key "%" 'match-paren)
;;======================================================================
;;Roman Belenov posted this recently. I have it in my .emacs. I like
;;it because it reduces dependencies on code that is not part of the
;;standard distribution. Hope it helps...
;;
;;Dave Gallucci
;;
;; kill trailing whitespace
;; Thanks Roman Belenov <[EMAIL PROTECTED]>
;;======================================================================
(defun kill-whitespace ()
"Kill trailing whitespace"
(interactive)
(save-excursion
(progn
(goto-char (point-min))
(while (re-search-forward "[ \t]+$" nil t)
(replace-match "" nil nil)))))
(add-hook 'write-file-hooks 'kill-whitespace)
;;======================================================================
;; Came from answer to mail
;; Theodore Jump [[EMAIL PROTECTED]]
;; Makes sure EMACS can show line-number-mode with very large files
;;======================================================================
(setq-default line-number-display-limit 500000)
;;======================================================================
;; Don't know about this one but it looks interesting.
;; Came from mailing list. Ken Jackson [[EMAIL PROTECTED]]
;; He said:
;; Other versions of this have appeared here, but none of the ones I tried
;; worked the way I wanted. This code does just what I
;;======================================================================
;; Make C-TAB and C-S-TAB cycle through buffers in the current window
(defun ken-next-buffer ()
(interactive)
(let ((choices (cdr (buffer-list))))
;; Skip hidden buffers like " *Minibuf-0*"
(while (equal t (compare-strings (buffer-name (car choices)) 0 2 " *" 0
2))
(setq choices (cdr choices)))
(bury-buffer (car (buffer-list)))
(switch-to-buffer (car choices))))
(defun ken-prev-buffer ()
(interactive)
(switch-to-buffer (car (nreverse (buffer-list))))
(while (equal t (compare-strings (buffer-name) 0 2 " *" 0 2))
(switch-to-buffer (car (nreverse (buffer-list))))))
(global-set-key [C-tab] 'ken-next-buffer)
(global-set-key [C-S-tab] 'ken-prev-buffer)
;;======================================================================
;; DIRED-X
;; From info
;;======================================================================
(add-hook 'dired-load-hook
(function (lambda ()
(load "dired-x")
;; Set dired-x global variables here. For
example:
;; (setq dired-guess-shell-gnutar "gtar")
;; (setq dired-x-hands-off-my-keys nil)
)))
(add-hook 'dired-mode-hook
(function (lambda ()
;; Set dired-x buffer-local variables here. For
example:
(setq dired-omit-files-p t)
(setq dired-omit-files
"^\\.?#\\|^\\.$\\|^\\.\\.$")
)))
(define-key global-map "\C-x\C-j" 'dired-jump)
;;--------------------------------------------------------------------------
------
;; Got rid of the ".log" extension. I want to see these files. All the
rest I kept
;; As Emacs had. I used the describe variable functionality, copied here
and then
;; deleted the ".log". This is only relevant with DIRED-X.
;;--------------------------------------------------------------------------
------
(setq dired-omit-extensions (list ".o" "~" ".bin" ".bak" ".obj" ".map" ".a"
".ln" ".blg" ".bbl" ".elc" ".lof" ".glo" ".idx" ".lot" ".dvi" ".fmt"
".class" ".fas" ".lib" ".x86f" ".toc" ".aux" ".cp" ".fn" ".ky" ".pg" ".tp"
".vr" ".cps" ".fns" ".kys" ".pgs" ".tps" ".vrs" ".idx" ".lof" ".lot" ".glo"
".blg" ".bbl" ".cp" ".cps" ".fn" ".fns" ".ky" ".kys" ".pg" ".pgs" ".tp"
".tps" ".vr" ".vrs"))
(add-hook 'dired-load-hook
(function (lambda ()
(load "dired-x")
;; Bind dired-x-find-file.
(setq dired-x-hands-off-my-keys nil)
(dired-x-bind-find-file)
)))
;;======================================================================
;; Printing
;;======================================================================
; (setq lpr-command "lpr")
; (setq printer-name "printer08 on DEVEL00")
; (setq lpr-switches '("-S" "ow56"))
; (setq lpr-headers-switches "-f")
; (setq print-region-function nil)
(defvar lpr-spool-dir "c:/TEMP/"
"*Location where temporary spool files are stored.")
(defun dg-custom-print-region (start end &rest args)
"*Print region using PrintFile32"
(interactive "r")
(setq lpr-spool-file (concat lpr-spool-dir (buffer-name)))
(write-region start end lpr-spool-file)
(shell-command
(apply 'concat (list "d:/emacs/add-ons/PrintFile/prfile32.exe /q /delete"
lpr-spool-file)
))
)
(defun dg-custom-print-buffer ()
"*Print buffer using PrintFile32"
(interactive)
(setq lpr-spool-file (concat lpr-spool-dir (buffer-name)))
(write-file lpr-spool-file)
(shell-command
(apply 'concat (list "d:/emacs/add-ons/Printfile/prfile32.exe /q /delete"
lpr-spool-file)
))
)
(global-set-key "\C-capb" 'dg-custom-print-buffer)
(global-set-key "\C-capr" 'dg-custom-print-region)
;;======================================================================
;; FILLING
;;======================================================================
;; Turn on Auto Fill mode automatically in Text mode and
;; related modes.
(add-hook 'text-mode-hook
'(lambda () (auto-fill-mode 1)))
;; Make the fill column look more like windows email and word
;;
(setq-default fill-column 90)
;;======================================================================
;; Have appointments notify me before they happen
;;======================================================================
(display-time)
(add-hook 'diary-hook 'appt-make-list)
(diary 0)
;;======================================================================
;; Uses [f7] to cycle through EOL Conventions
;; Came an email from Francis Litterio [[EMAIL PROTECTED]]
;; Subject:For your consideration ...
;;======================================================================
(defun my-cycle-eol-conventions ()
"Cycles through three EOL conventions (DOS, Unix, and Mac) for the
current buffer without altering the character set coding."
(interactive)
(let* ((sysname (prin1-to-string buffer-file-coding-system))
(offset (string-match "\\(dos\\|unix\\|mac\\)$" sysname))
(prefix (substring sysname 0 offset))
(suffix (substring sysname offset))
(newname (concat prefix
(cond ((string= "unix" suffix) "mac")
((string= "mac" suffix) "dos")
((string= "dos" suffix) "unix")
(t (error "Unrecognized coding system: %s"
sysname))))))
(setq buffer-file-coding-system (intern newname))
(message "New coding system is %s" newname)))
(define-key global-map [f7] 'my-cycle-eol-conventions)
;;======================================================================
;; Use bash as my shell
;; Came from FAQ
;;======================================================================
(defun my-shell-setup ()
"For bash (cygwin 18) under Emacs 20"
(setq comint-scroll-show-maximum-output 'this)
(setq comint-completion-addsuffix t)
;; (setq comint-process-echoes t)
;; reported that this is no longer needed
(setq comint-eol-on-send t)
(setq w32-quote-process-args ?\")
(make-variable-buffer-local 'comint-completion-addsuffix))
(setq shell-mode-hook 'my-shell-setup)
(setq process-coding-system-alist (cons '("bash" . raw-text-unix)
process-coding-system-alist))
;; For the interactive shell
; (setq explicit-shell-file-name "c:/cygnus/cygwin-b20/usr/bin/bash.exe")
(setq explicit-shell-file-name
"c:/cygnus/cygwin-b20/H-i586-cygwin32/bin/bash.exe")
;; For subprocesses invoked via the shell (e.g., "shell -c command")
; (setq shell-file-name "c:/cygnus/cygwin-b20/usr/bin/bash.exe")
(setq shell-file-name "c:/cygnus/cygwin-b20/H-i586-cygwin32/bin/bash.exe")
;; Have shell history ignore duplicates
;;
(setq comint-input-ignoredups t)
;; Scrolling due to arrival of output tries to place the last line of text
at the
;; bottom line of the window, so as to show as much useful text as possible
;;
(setq comint-show-maximum-output t)
;; This might help get rid of the ^M. It came from the NT users list.
;;
(setq default-process-coding-system '(undecided-dos . undecided-unix))
; (add-hook 'post-command-hook 'hscroll-point-visible)
; (setq-default truncate-lines t)
;;======================================================================
;; Load files section
;;======================================================================
(load-file "~/.emacs.macros")
(setq load-path (cons "~/el" load-path))
(load-library "lisp-funcs")
(load-library "sql-funcs")
(load-library "sqlplus-funcs")
(load-library "funcs")
(load-library "delete-buffers")
(load-library "memory-usage")
(load-library "dired-sort-menu")
; (load-file "~/el/lisp-funcs.el")
; (load-file "~/el/sql-funcs.el")
; (load-file "~/el/sqlplus-funcs.el")
; (load-file "~/el/funcs.el")
; (load-file "~/el/delete-buffers.el")
; (load-file "~/el/memory-usage.el")
;(load-file "~/el/html-helper-mode.el")
;;======================================================================
;; Open up windows files based on extension
;;======================================================================
(require 'cl)
(defvar gb-foreign-extensions
'("\\.DOC$"
"\\.BMP$"
"\\.HLP$"
"\\.AVI$"
"\\.WAV$"
"\\.VSD$"
"\\.URL$"
"\\.ZIP$"
"\\.ER1$"
"\\.HTM$"
"\\.HTML$"
"\\.GIF$"
"\\.JPG$"
"\\.EXE$"
"\\.XLS$"
"\\.PPS$"
"\\.MPEG$"
"\\.MPG$"
"\\.PDF$")
"List of regexps matching names of files that will be opened
outside of EMACS")
(defadvice find-file (around gb-foreign activate)
(interactive "FFind file: ")
(let ((case-fold-search t))
(if (some #'(lambda (x)
(string-match x filename))
gb-foreign-extensions)
(if (file-exists-p filename)
(w32-shell-execute "open"
(expand-file-name filename) nil 1)
(error "Can't create file `%s'" filename))
ad-do-it)))
;; implements a more powerful kind of completion
;; that can complete multiple words at a time.
;;
(load "complete")
;(partial-completion-mode t)
(setq selective-display-ellipses nil)
(setq comment-multi-line nil)
(add-hook 'c-mode-hook 'comment-multi-line t)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Read file to initialize emacs browser
;;
(setq load-path (cons "d:/emacs/add-ons/w3-4.0pre.23/lisp" load-path))
(require 'w3-auto)
;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Make sure all bookmarks are saved when they are created
;;
(setq bookmark-save-flag t)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Set up the ability to run in sql and sqlplus mode
;;
(setq load-path (cons "d:/emacs/add-ons/sqlmodes/" load-path))
(load-library "make-regexp")
(load-library "sql-mode")
(autoload 'pls-mode "pls-mode" "PL/SQL Editing Mode" t)
(autoload 'diana-mode "pls-mode" "DIANA for PL/SQL Browsing Mode" t)
(setq auto-mode-alist
(append '(("\\.pls$" . pls-mode)
("\\.sql$" . pls-mode)
("\\.pld$" . diana-mode)
) auto-mode-alist))
;(load-library "plsql-mode")
(autoload 'sqlplus "sql-mode"
"Run an interactive SQL*plus session in a separate buffer." t)
(autoload 'sql-mode "sql-mode"
"Major mode for editing SQL*plus batch files." t)
(setq auto-mode-alist (cons '("\\.sql$" . sql-mode) auto-mode-alist))
(setq sqlplus-username-password "sys/CHANGE_ON_INSTALL@inkasun")
;(setq sqlplus-username-password "inkadba/inkadba@inkasun")
;(setq sqlplus-username-password "inkaver2/inkaver2@inkant")
;(setq sqlplus-username-password "system/manager@inkax")
(setq last-output-start ";")
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Get rid of ^M in shell buffer
;;
(setq binary-process-input t)
;; Allow abbrev mode
;;
(setq-default abbrev-mode t)
(setq-default resize-minibuffer-mode t)
;; Highlight between point and mark
;;
(setq transient-mark-mode t)
(put 'downcase-region 'disabled nil)
(put 'upcase-region 'disabled nil)
(desktop-load-default)
(desktop-read)
;;======================================================================
;; Set up default colors
;;======================================================================
(cond ((fboundp 'global-font-lock-mode)
;; Turn on font-lock in all modes that support it
(global-font-lock-mode t)
;; Maximum colors
(setq font-lock-maximum-decoration t)))
(load-file "~/.emacs.colors")
(require 'cl)
(eval-when-compile
(if (string-match "XEmacs" emacs-version)
(byte-compiler-options
(warnings (- unresolved))))
(defvar font-lock-auto-fontify)
(defvar global-font-lock-mode))
(show-paren-mode 1)
;;======================================================================
;; If editing a file owned by someone else
;; do not take over ownership
;;======================================================================
(setq backup-by-copying-when-mismatch t)
(setq url-keep-history "t")
(custom-set-variables
'(jde-compile-option-debug (quote ("all" (t t t))))
'(jde-bug-jdk-directory "d:/java/jdk1.3/")
'(jde-db-source-directories (quote ("d:/Projects/Inca/Development/"
"d:/Projects/Inca/Development/net/inka/util/" "d:/java")))
'(jde-db-debugger (quote ("JDEbug" "jdb" . "Executable")))
'(jde-db-option-verbose (quote (nil nil nil)))
'(jde-bug-jpda-directory "")
'(user-mail-address "[EMAIL PROTECTED]")
'(jde-bug-vm-includes-jpda-p t)
'(jde-compile-option-verbose nil))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; use Gnus mail sending pack '(user-mail-address "you@localhost")
;; e-mail address '(mail-host-address "localhost")
;;
;; setq smtpmail-smtp-server 'localhost
;; setq smtpmail-default-smtp-server "smtp"
;; setq mail-user-agent (quote message-user-agent)
;; setq gnus-nntpserver-file nil)
(setq gnus-init-file' "~/.gnus")
(setenv "MAILHOST" "pop.mail.yahoo.com")
(setq rmail-primary-inbox-list
'("po:galenboyer") rmail-pop-password-required t)
;; --- This is in my .emacs file. ---
;; SMTP mail config (outgoing mail only)
(setq user-full-name "Galen Boyer")
(setq user-mail-address "[EMAIL PROTECTED]")
(setq smtpmail-smtp-server "mail")
(setq smtpmail-default-smtp-server "mail")
(setq smtpmail-local-domain nil)
(setq send-mail-function 'smtpmail-send-it)
(require 'messcompat)
(setq message-send-mail-function 'smtpmail-send-it)
(load-library "smtpmail")
(custom-set-faces
'(gnus-header-name-face ((((class color) (background dark)) (:foreground
"cyan"))))
'(font-lock-comment-face ((t (:foreground "dark green"))))
'(message-header-to-face ((t (:bold t :foreground "floral white"))))
'(font-lock-string-face ((t (:bold t :foreground "midnight blue"))))
'(gnus-header-content-face ((((class color) (background dark)) (:italic t
:foreground "antique white"))))
'(font-lock-keyword-face ((t (:foreground "navy"))))
'(font-lock-warning-face ((t (:bold t :foreground "navy"))))
'(font-lock-constant-face ((t (:foreground "dark red"))))
'(font-lock-type-face ((t (:foreground "dark cyan"))))
'(message-header-name-face ((t (:foreground "light sky blue"))))
'(highlight ((t (:background "medium sea green"))))
'(message-header-cc-face ((t (:foreground "ivory"))))
'(message-header-subject-face ((t (:bold t :foreground "papaya whip"))))
'(font-lock-variable-name-face ((t (:foreground "dark blue"))))
'(font-lock-function-name-face ((t (:foreground "red"))))
'(message-header-newsgroups-face ((t (:bold t :italic t :foreground
"lavender blush"))))
'(message-separator-face ((t (:foreground "sandy brown"))))
'(message-header-other-face ((t (:foreground "pale turquoise"))))
'(font-lock-builtin-face ((t (:bold t :foreground "navy"))))
'(message-cited-text-face ((t (:foreground "plum1")))))
(put 'narrow-to-region 'disabled nil)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; This came from the FAQ of how to use telnet with NT.
;; I used the win32 version
;;
(require 'telnet)
(defun telnet (host)
"Open a network login connection to host named HOST (a string).
Communication with HOST is recorded in a buffer `*telnet-HOST*'.
Normally input is edited in Emacs and sent a line at a time."
(interactive "sOpen telnet connection to host: ")
(let* ((comint-delimiter-argument-list '(?\ ?\t))
(name (concat "telnet-" (comint-arguments host 0 nil) ))
(buffer (get-buffer (concat "*" name "*")))
process)
(cond ((string-equal system-type "windows-nt")
(setq telnet-new-line "\n")))
(if (and buffer (get-buffer-process buffer))
(pop-to-buffer (concat "*" name "*"))
(pop-to-buffer (make-comint name telnet-program nil host))
(setq process (get-buffer-process (current-buffer)))
(set-process-filter process 'telnet-initial-filter)
(accept-process-output process)
(telnet-mode)
(setq comint-input-sender 'telnet-simple-send)
(setq telnet-count telnet-initial-count))))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(put 'set-goal-column 'disabled nil)
(setq load-path (cons "d:/emacs/add-ons/vss" load-path))
(setq load-path (cons "d:/emacs/add-ons/gnuserv" load-path))
(load-library "gnuserv")
(require 'gnuserv)
(gnuserv-start)
;;--------------------------------------------------------------------------
------
;; Have the associated file startup in the existing emacs session.
;
(setq gnuserv-frame (selected-frame))
;;======================================================================
;; Functions to convert the line endings. Uses the eol-conversion
;; package
;; by Francis Wright <[EMAIL PROTECTED]>
;;======================================================================
(require 'eol-conversion)
(defun d2u ()
(interactive)
(if (y-or-n-p "Convert DOS to Unix format?")
(set-buffer-eol-conversion 'unix)
(message "format unchanged")
))
(defun u2d ()
(interactive)
(if (y-or-n-p "Convert Unix to DOS format?")
(set-buffer-eol-conversion 'dos)
(message "format unchanged")
))
;;; set the directory separator character
(setq eol-mnemonic-dos "\\")
(setq eol-mnemonic-unix "/")
(setq eol-mnemonic-mac ":")
(setq eol-mnemonic-undecided "?")
;;======================================================================
;; Bindings for macros
;;======================================================================
(global-set-key "\C-cwnm" 'window-configuration-forms-contacts)
(global-set-key "\C-cwnn" 'window-configuration-forms-contacts-nomark)
(global-set-key "\C-cwnc" 'window-configuration-forms-contacts-close)
(global-set-key "\C-cwcm" 'window-configuration-colors-customize)
(global-set-key "\C-cwcn" 'window-configuration-colors-customize-nomark)
(global-set-key "\C-cfw" 'favorites-write-url)
(global-set-key "\C-cfn" 'favorites-find-file-new)
(global-set-key "\C-xe" 'call-last-kbd-macro)
(global-set-key "\C-x\C-b" 'buffer-menu)
;;--------------------------------------------------------------------------
------
;; In my \C-c mappings, 'a' is for all add-ons, so that I probably will not
interfere with
;; anything else
;;--------------------------------------------------------------------------
------
(global-set-key "\C-catt" 'todo-show)
(global-set-key "\C-cati" 'todo-insert-item)
(global-set-key [C-backspace] 'backward-kill-word)
Can anyone help?
Galen Boyer.
