Hello,
I am unable to solve the following problem:
Having just installed: JDE2.2.6 beta 3, semantic-1.3.1, speedbar-0.13a,
elib-1.0,
JDK1.3 (re-installed).
Compiling and running a test program works fine.
Debug does not work: After toggling a breakpoint I try: JDE -> Debug App.
Next thing is a message from the Java Virtual Machine Launcher: "Could not
initialize the Java
Virtual Machine. Program will exit."
(I have seen a similar query for a Linux environment, but what to do on
Windows?)
Below is the full problem report with .emacs included.
Any help much appreciated.
Gert.
Subject: "Could not intialize the Java Virtual Machine. Program will exit."
--text follows this line--
Please enter the details of your bug report here
Emacs : GNU Emacs 20.5.1 (i386-*-windows95.1111)
of Mon Dec 6 1999 on buffy
Package: JDE version 2.2.6beta3
current state:
==============
(setq
jde-gen-session-bean-template '("(jde-wiz-insert-imports-into-buffer (list
\"javax.ejb.*\"\n\"java.rmi.RemoteException\"))"
"(jde-wiz-update-implements-clause \"SessionBean\")" "'> \"public void
ejbActivate() throws RemoteException {\"'>'n \"}\"'>'n\n'>'n" "'> \"public
void ejbPassivate() throws RemoteException {\"'>'n \"}\"'>'n\n'>'n" "'>
\"public void ejbRemove() throws RemoteException {\"'>'n \"}\"'>'n '>'n" "'>
\"public void setSessionContext(SessionContext ctx) throws\nRemoteException
{\"" "'>'n \"}\"'>'n '>'n" "'> \"public void unsetSessionContext() throws
RemoteException {\"'>'n\n\"}\"'>'n '>'n'>")
jde-gen-beep '("(end-of-line) '&"
"\"Toolkit.getDefaultToolkit().beep();\"'>'n'>")
jde-which-method-format '("[" jde-which-method-current "]")
jde-run-classic-mode-vm t
jde-javadoc-gen-nodeprecatedlist nil
jde-which-method-max-length 20
jde-imenu-include-classdef t
jde-javadoc-gen-link-online nil
jde-gen-code-templates '(("Get Set Pair" . jde-gen-get-set)
("toString method" . jde-gen-to-string-method)
("Action Listener" . jde-gen-action-listener)
("Window Listener" . jde-gen-window-listener)
("Mouse Listener" . jde-gen-mouse-listener)
("Mouse Motion Listener" . jde-gen-mouse-motion-listener)
("Inner Class" . jde-gen-inner-class)
("println" . jde-gen-println) ("beep" . jde-gen-beep)
("property change support" . jde-gen-property-change-support)
("EJB Entity Bean" . jde-gen-entity-bean)
("EJB Session Bean" . jde-gen-session-bean))
jde-gen-cflow-else '("(if (jde-parse-comment-or-quoted-p)" "'(l \"else\")"
"'(l '> \"else \"" "(if jde-gen-k&r " "()" "'>'n)"
"\"{\"'>'n'>'r'n" "\"} // end of else\"'>'n'>)" ")")
jde-make-args ""
jde-javadoc-gen-destination-directory "JavaDoc"
jde-mode-line-format '("-" mode-line-mule-info mode-line-modified
mode-line-frame-identification mode-line-buffer-identification
" " global-mode-string " %[(" mode-name mode-line-process
minor-mode-alist "%n" ")%]--" (line-number-mode "L%l--")
(column-number-mode "C%c--") (-3 . "%p")
(jde-which-method-mode ("--" jde-which-method-format "--"))
"-%-")
jde-mode-abbreviations '(("ab" . "abstract") ("bo" . "boolean") ("br" .
"break")
("by" . "byte") ("byv" . "byvalue") ("cas" . "cast")
("ca" . "catch") ("ch" . "char") ("cl" . "class")
("co" . "const") ("con" . "continue") ("de" . "default")
("dou" . "double") ("el" . "else") ("ex" . "extends")
("fa" . "false") ("fi" . "final") ("fin" . "finally")
("fl" . "float") ("fo" . "for") ("fu" . "future")
("ge" . "generic") ("go" . "goto") ("impl" . "implements")
("impo" . "import") ("ins" . "instanceof") ("in" . "int")
("inte" . "interface") ("lo" . "long") ("na" . "native")
("ne" . "new") ("nu" . "null") ("pa" . "package")
("pri" . "private") ("pro" . "protected") ("pu" . "public")
("re" . "return") ("sh" . "short") ("st" . "static")
("str" . "String") ("su" . "super") ("sw" . "switch")
("sy" . "synchronized") ("th" . "this") ("thr" . "throw")
("throw" . "throws") ("tra" . "transient") ("tr" . "true")
("vo" . "void") ("vol" . "volatile") ("wh" . "while"))
jde-imenu-enable t
jde-compile-option-verbose nil
jde-db-option-heap-size '((1 . "megabytes") (16 . "megabytes"))
jde-bug-debugger-host-address "127.0.0.1"
jde-make-working-directory ""
jde-bug-breakpoint-marker-colors '("red" . "yellow")
jde-javadoc-gen-use nil
jde-gen-buffer-boilerplate '("// Stellenbosch 2000")
jde-bug-raise-frame-p t
jde-db-option-application-args nil
jde-javadoc-gen-nonavbar nil
jde-javadoc-gen-nohelp nil
jde-bug-vm-includes-jpda-p t
jde-gen-jfc-app-buffer-template '("(funcall jde-gen-boilerplate-function)
'>'n"
"\"import java.awt.Dimension;\" '>'n"
"\"import java.awt.Graphics;\" '>'n"
"\"import java.awt.Graphics2D;\" '>'n"
"\"import java.awt.Color;\" '>'n"
"\"import java.awt.geom.Ellipse2D;\" '>'n"
"\"import java.awt.event.WindowAdapter;\" '>'n"
"\"import java.awt.event.WindowEvent;\" '>'n"
"\"import javax.swing.JFrame;\" '>'n"
"\"import javax.swing.JPanel;\" '>'n"
"\"import javax.swing.JScrollPane;\" '>'n"
"\"import javax.swing.JMenuBar;\" '>'n"
"\"import javax.swing.JMenu;\" '>'n"
"\"import java.awt.event.ActionEvent;\" '>'n"
"\"import javax.swing.AbstractAction;\" '>'n '>'n"
"\"/**\" '>'n" "\" * \""
"(file-name-nondirectory buffer-file-name) '>'n"
"\" *\" '>'n" "\" *\" '>'n"
"\" * Created: \" (current-time-string) '>'n"
"\" *\" '>'n"
"\" * @author <a href=\\\"mailto: \\\"\" (user-full-name)
\"</a>\"'>'n" "\" * @version\" '>'n" "\" */\" '>'n" "'>'n" "\"public class
\"" "(file-name-sans-extension (file-name-nondirectory buffer-file-name))"
"\" extends JFrame\"" "(if jde-gen-k&r " "()" "'>'n)" "\"{\"'>'n" "\"class
Canvas extends JPanel\"" "(if jde-gen-k&r " "()" "'>'n)" "\"{\"'>'n"
"\"public Canvas () \"" "(if jde-gen-k&r " "()" "'>'n)" "\"{\"'>'n"
"\"setSize(getPreferredSize());\" '>'n"
"\"Canvas.this.setBackground(Color.white);\" '>'n" "\"}\"'>'n '>'n"
"\"public Dimension getPreferredSize() \"" "(if jde-gen-k&r " "()" "'>'n)"
"\"{\"'>'n" "\"return new Dimension(600, 600);\" '>'n" "\"}\"'>'n '>'n"
"\"public void paintComponent(Graphics g) \"" "(if jde-gen-k&r " "()"
"'>'n)" "\"{\"'>'n" "\"super.paintComponent(g);\" '>'n" "\"Graphics2D g2d =
(Graphics2D) g;\" '>'n" "\"Ellipse2D circle = new Ellipse2D.Double(0d, 0d,
100d, 100d);\" '>'n" "\"g2d.setColor(Color.red);\" '>'n"
"\"g2d.translate(10, 10);\" '>'n" "\"g2d.draw(circle);\" '>'n"
"\"g2d.fill(circle);\" '>'n" "\"}\"'>'n " "\"}\"'>'n '>'n" "\"public \""
"(file-name-sans-extension (file-name-nondirectory buffer-file-name))"
"\"()\"" "(if jde-gen-k&r " "()" "'>'n)" "\"{\"'>'n" "\"super(\\\"\" (P
\"Enter app title: \") \"\\\");\" '>'n" "\"setSize(300, 300);\" '>'n"
"\"addWindowListener(new WindowAdapter() \"" "(if jde-gen-k&r " "()" "'>'n)"
"\"{\"'>'n" "\"public void windowClosing(WindowEvent e) {System.exit(0);}\"
'>'n" "\"public void windowOpened(WindowEvent e) {}\" '>'n" "\"});\"'>'n"
"\"setJMenuBar(createMenu());\" '>'n" "\"getContentPane().add(new
JScrollPane(new Canvas()));\" '>'n" "\"}\"'>'n" "'>'n" "\"public static void
main(String[] args) \"" "(if jde-gen-k&r " "()" "'>'n)" "\"{\"'>'n" "'>'n"
"(file-name-sans-extension (file-name-nondirectory buffer-file-name))" "\" f
= new \"" "(file-name-sans-extension (file-name-nondirectory
buffer-file-name))" "\"();\" '>'n" "\"f.show();\" '>'n" "\"}\"'>'n '>'n"
"\"protected JMenuBar createMenu() \"" "(if jde-gen-k&r " "()" "'>'n)"
"\"{\"'>'n" "\"JMenuBar mb = new JMenuBar();\" '>'n" "\"JMenu menu = new
JMenu(\\\"File\\\");\" '>'n" "\"menu.add(new AbstractAction(\\\"Exit\\\")
\"" "(if jde-gen-k&r " "()" "'>'n)" "\"{\"'>'n" "\"public void
actionPerformed(ActionEvent e) \"" "(if jde-gen-k&r " "()" "'>'n)"
"\"{\"'>'n" "\"System.exit(0);\" '>'n" "\"}\" '>'n" "\"});\" '>'n"
"\"mb.add(menu);\" '>'n" "\"return mb;\" '>'n" "\"}\"'>'n " "\"} // \"'>"
"(file-name-sans-extension (file-name-nondirectory buffer-file-name))"
"'>'n")
jde-bug-key-bindings '(("[? ? ?]" . jde-bug-step-over)
("[? ? ?]" . jde-bug-step-into)
("[? ? ?]" . jde-bug-step-into-all)
("[? ? ?]" . jde-bug-step-out)
("[? ? ?]" . jde-bug-continue)
("[? ? ?]" . jde-bug-toggle-breakpoint))
jde-compile-finish-hook '(jde-compile-finish-refresh-speedbar
jde-compile-finish-flush-completion-cache)
jde-compile-option-nowarn nil
jde-setnu-mode-threshold 20000
jde-run-java-vm-w "javaw"
jde-compile-option-encoding nil
jde-run-option-java-profile '(nil . "./java.prof")
bsh-startup-timeout 10
jde-bug-jpda-directory ""
jde-read-compile-args nil
jde-run-java-vm "java"
jde-db-option-verbose '(t t nil)
jde-which-method-class-min-length 4
jde-db-read-app-args nil
jde-javadoc-gen-nodeprecated nil
jde-run-option-heap-profile '(nil "./java.hprof" 5 20 "Allocation objects")
jde-gen-println '("'&" "\"System.out.println(\" (P \"Print out: \")
\");\"")
jde-enable-abbrev-mode t
bsh-vm-args nil
jde-auto-parse-max-buffer-size 50000
jde-gen-cflow-main '("(if (jde-parse-comment-or-quoted-p)" "'(l \"main\")"
"'(l '> \"public static void main (String[] args) \""
"(if jde-gen-k&r " "()" "'>'n)" "\"{\"'>'n'>'r'n"
"\"} // end of main ()\"'>'n'>)" ")")
jde-javadoc-exception-tag-template '("* @exception " type " if an error
occurs")
jde-global-classpath '(".")
jde-gen-window-listener-template '("(end-of-line) '& (P \"Window name: \")"
"\".addWindowListener(new WindowAdapter() \""
"(if jde-gen-k&r " "()" "'>'n)" "\"{\"'>'n"
"'> \"public void windowActivated(WindowEvent e) \""
"(if jde-gen-k&r " "()" "'>'n)" "\"{\"'>'n" "\"}\""
"'>'n \"public void windowClosed(WindowEvent e)\""
"(if jde-gen-k&r " "()" "'>'n)" "\"{\"'>'n"
"'>'n \"}\""
"'>'n \"public void windowClosing(WindowEvent e) \""
"(if jde-gen-k&r " "()" "'>'n)" "\"{\"'>'n"
"'>'n \"System.exit(0);\" '>'n \"}\""
"'>'n \"public void windowDeactivated(WindowEvent e) \"" "(if
jde-gen-k&r " "()" "'>'n)" "\"{\"'>'n" "'>'n \"}\"" "'>'n \"public void
windowDeiconified(WindowEvent e) \"" "(if jde-gen-k&r " "()" "'>'n)"
"\"{\"'>'n" "'>'n \"}\"" "'>'n \"public void windowIconified(WindowEvent e)
\"" "(if jde-gen-k&r " "()" "'>'n)" "\"{\"'>'n" "'>'n \"}\"" "'>'n \"public
void windowOpened(WindowEvent e) \"" "(if jde-gen-k&r " "()" "'>'n)"
"\"{\"'>'n" "'>'n \"}\"" "'>'n \"});\" '>'n'>")
jde-run-working-directory ""
jde-gen-property-change-support '("(end-of-line) '&"
"\"protected PropertyChangeSupport pcs = new
PropertyChangeSupport(this);\" '>'n '>'n" "\"/**\" '>'n" "\"* Adds a
PropertyChangeListener to the listener list.\" '>'n" "\"* The listener is
registered for all properties.\" '>'n" "\"*\" '>'n" "\"* @param listener The
PropertyChangeListener to be added\" '>'n" "\"*/\" '>'n" "\"public void
addPropertyChangeListener(PropertyChangeListener listener) \"" "(if
jde-gen-k&r " "()" "'>'n)" "\"{\"'>'n"
"\"pcs.addPropertyChangeListener(listener);\" '>'n \"}\" '>'n '>'n" "\"/**\"
'>'n" "\"* Removes a PropertyChangeListener from the listener list.\" '>'n"
"\"* This removes a PropertyChangeListener that was registered for all
properties.\" '>'n" "\"*\" '>'n " "\"* @param listener The
PropertyChangeListener to be removed\" '>'n" "\"*/\" '>'n" "\"public void
removePropertyChangeListener(PropertyChangeListener listener) \"" "(if
jde-gen-k&r " "()" "'>'n)" "\"{\"'>'n"
"'>\"pcs.removePropertyChangeListener(listener);\" '>'n \"}\" '>'n '>'n"
"\"/**\" '>'n\"* Adds a PropertyChangeListener for a specific property.\"
'>'n" "\"* The listener will be invoked only when a call on
firePropertyChange\" '>'n" "\"* names that specific property.\" '>'n" "\"*\"
'>'n \"* @param propertyName The name of the property to listen on\" '>'n"
"\"* @param listener The PropertyChangeListener to be added\" '>'n \"*/\"
'>'n" "\"public void addPropertyChangeListener(String propertyName,\" '>'n"
"\"PropertyChangeListener listener) \"" "(if jde-gen-k&r " "()" "'>'n)"
"\"{\"'>'n" "'> \"pcs.addPropertyChangeListener(propertyName, listener);\"
'>'n \"}\" '>'n '>'n" "\"/**\" '>'n\"* Removes a PropertyChangeListener for
a specific property.\" '>'n" "\"*\" '>'n \"* @param propertyName The name of
the property that was listened on\" '>'n" "\"* @param listener The
PropertyChangeListener to be removed\" '>'n \"*/\" '>'n" "\"public void
removePropertyChangeListener(String propertyName,\" '>'n"
"\"PropertyChangeListener listener) \"" "(if jde-gen-k&r " "()" "'>'n)"
"\"{\"'>'n" "'> \"pcs.removePropertyChangeListener(propertyName,
listener);\" '>'n \"}\" '>'n '>'n" "\"/**\" '>'n\"* Reports a bound property
update to any registered listeners. \" '>'n" "\"* No event is fired if old
and new are equal and non-null.\" '>'n" "\"*\" '>'n \"* @param propertyName
The programmatic name of the property that was changed\" '>'n" "\"* @param
oldValue The old value of the property\" '>'n" "\"* @param newValue The new
value of the property.\" '>'n \"*/\" '>'n" "\"public void
firePropertyChange(String propertyName, Object oldValue, Object newValue)
\"" "(if jde-gen-k&r " "()" "'>'n)" "\"{\"'>'n" "'>
\"pcs.firePropertyChange(propertyName, oldValue, newValue);\" '>'n \"}\"
'>'n '>'n" "\"/**\" '>'n\"* Reports a bound property update to any
registered listeners. \" '>'n" "\"* No event is fired if old and new are
equal and non-null.\" '>'n" "\"* This is merely a convenience wrapper around
the more general\" '>'n" "\"* firePropertyChange method that takes Object
values.\" '>'n" "\"* No event is fired if old and new are equal and
non-null.\" '>'n" "\"*\" '>'n \"* @param propertyName The programmatic name
of the property that was changed\" '>'n" "\"* @param oldValue The old value
of the property\" '>'n" "\"* @param newValue The new value of the
property.\" '>'n \"*/\" '>'n" "\"public void firePropertyChange(String
propertyName, int oldValue, int newValue) \"" "(if jde-gen-k&r " "()"
"'>'n)" "\"{\"'>'n" "'> \"pcs.firePropertyChange(propertyName, oldValue,
newValue);\" '>'n \"}\" '>'n '>'n" "\"/**\" '>'n\"* Reports a bound property
update to any registered listeners. \" '>'n" "\"* No event is fired if old
and new are equal and non-null.\" '>'n" "\"* This is merely a convenience
wrapper around the more general\" '>'n" "\"* firePropertyChange method that
takes Object values.\" '>'n" "\"* No event is fired if old and new are equal
and non-null.\" '>'n" "\"*\" '>'n \"* @param propertyName The programmatic
name of the property that was changed\" '>'n" "\"* @param oldValue The old
value of the property\" '>'n" "\"* @param newValue The new value of the
property.\" '>'n \"*/\" '>'n" "\"public void firePropertyChange(String
propertyName, boolean oldValue, boolean newValue) \"" "(if jde-gen-k&r "
"()" "'>'n)" "\"{\"'>'n" "'> \"pcs.firePropertyChange(propertyName,
oldValue, newValue);\" '>'n \"}\" '>'n '>'n" "\"/**\" '>'n\"* Fires an
existing PropertyChangeEvent to any registered listeners.\" '>'n" "\"* No
event is fired if the given event's old and new values are equal and
non-null. \" '>'n" "\"*\" '>'n \"* @param evt The PropertyChangeEvent
object.\" '>'n\"*/\" '>'n" "\"public void
firePropertyChange(PropertyChangeEvent evt) \"" "(if jde-gen-k&r " "()"
"'>'n)" "\"{\"'>'n" "'> \"pcs.firePropertyChange(evt);\" '>'n \"}\" '>'n
'>'n" "\"/**\" '>'n\"* Checks if there are any listeners for a specific
property.\" '>'n" "\"*\" '>'n \"* @param evt The PropertyChangeEvent
object.\" '>'n" "\"* @return <code>true</code>if there are one or more
listeners for the given property\" '>'n" "\"*/\" '>'n" "\"public boolean
hasListeners(String propertyName) \"" "(if jde-gen-k&r " "()" "'>'n)"
"\"{\"'>'n" "'> \"return pcs.hasListeners(propertyName);\" '>'n \"}\" '>'n
'>'n'>")
jde-javadoc-describe-interface-template '("* Describe interface "
(jde-javadoc-code name) " here.")
jde-imenu-include-signature t
jde-db-marker-regexp "^.*: thread=.*,
\\(\\(.*[.]\\)*\\)\\([^$]*\\)\\($.*\\)*[.].+(), line=\\([0-9]*\\),"
jde-gen-mouse-motion-listener-template '("(end-of-line) '& (P \"Component
name: \")"
"\".addMouseMotionListener(new MouseMotionAdapter() \"" "(if
jde-gen-k&r " "()" "'>'n)" "\"{\"'>" "'>'n \"public void
mouseDragged(MouseEvent e) \"" "(if jde-gen-k&r " "()" "'>'n)" "\"{\"'>'n"
"\"}\"'>" "'>'n \"public void mouseMoved(MouseEvent e) \"" "(if jde-gen-k&r
" "()" "'>'n)" "\"{\"'>'n" "\"}\"'>" "'>'n \"});\"'>'n'>")
jde-key-bindings '(("[? ? ?]" . jde-run-menu-run-applet)
("[? ? ?]" . jde-build) ("[? ? ?]" . jde-compile)
("[? ? ?]" . jde-debug)
("[? ? ?]" . jde-wiz-implement-interface)
("[? ? ?j]" . jde-javadoc-generate-javadoc-template)
("[? ? ? ]" . bsh) ("[? ? ?\f]" . jde-gen-println)
("[? ? ?]" . jde-browse-jdk-doc)
("[? ? ?]" . jde-save-project)
("[? ? ?]" . jde-wiz-update-class-list)
("[? ? ?]" . jde-run) ("[? ? ?]" . speedbar-frame-mode)
("[? ? ?]" . jde-db-menu-debug-applet)
("[? ? ?]" . jde-help-symbol)
("[? ? ?]" . jde-show-class-source)
("[? ? ?]" . jde-wiz-find-and-import)
("[(control c) (control v) (control ?.)]" .
jde-complete-at-point-menu)
("[(control c) (control v) ?.]" . jde-complete-at-point))
jde-gen-cflow-for-i '("(if (jde-parse-comment-or-quoted-p)" "'(l \"fori\")"
"'(l '> \"for (int \" (p \"variable: \" var) \" = 0; \""
"(s var)"
"\" < \"(p \"upper bound: \" ub)\"; \" (s var) \"++) \""
"(if jde-gen-k&r " "()" "'>'n)" "\"{\"'>'n'>'r'n"
"\"} // end of for (int \" (s var) \" = 0; \""
"(s var) \" < \" (s ub) \"; \" (s var) \"++)\"'>'n'>)" ")")
jde-run-option-classpath nil
jde-javadoc-gen-detail-switch '("-protected")
jde-bug-sio-connect-delay 1
jde-javadoc-param-tag-template '("* @param " name " " (jde-javadoc-a type)
" "
(jde-javadoc-code type) " value")
jde-compile-option-verbose-path nil
jde-javadoc-display-doc t
jde-imenu-modifier-abbrev-alist '(("public" . 43) ("protected" . 177)
("private" . 172)
("static" . 2215) ("transient" . 35)
("volatile" . 126) ("abstract" . 170) ("final" . 182)
("native" . 36) ("synchronized" . 64)
("strictfp" . 37))
jde-db-debugger '("JDEbug" "" . "Executable")
jde-jdk-doc-url "D:/jdk1.3/docs/api/index.html"
jde-gen-cflow-enable t
jde-compiler "javac"
jde-javadoc-gen-verbose nil
jde-javadoc-describe-method-template '("* Describe " (jde-javadoc-code
name)
" method here.")
jde-gen-class-buffer-template '("(funcall jde-gen-boilerplate-function)
'>'n"
"\"/**\" '>'n" "\" * \""
"(file-name-nondirectory buffer-file-name) '>'n"
"\" *\" '>'n" "\" *\" '>'n"
"\" * Created: \" (current-time-string) '>'n"
"\" *\" '>'n"
"\" * @author <a href=\\\"mailto: \\\"\" (user-full-name) \"</a>\"'>'n"
"\" * @version\" '>'n" "\" */\" '>'n'" "'>'n" "\"public class \""
"(file-name-sans-extension (file-name-nondirectory buffer-file-name))" "\"
\" (jde-gen-get-super-class)" "(if jde-gen-k&r " "()" "'>'n)" "\"{\"'>'n"
"\"public \"" "(file-name-sans-extension (file-name-nondirectory
buffer-file-name))" "\" ()\"" "(if jde-gen-k&r " "()" "'>'n)" "\"{\"'>'n"
"'>'p'n" "\"}\">" "'>'n" "\"}\">" "\"// \"" "(file-name-sans-extension
(file-name-nondirectory buffer-file-name))" "'>'n")
jde-javadoc-checker-level 'protected
jde-appletviewer-option-vm-args nil
jde-run-executable-args nil
jde-db-option-garbage-collection '(t t)
jde-javadoc-gen-stylesheetfile ""
jde-use-font-lock t
jde-compile-option-bootclasspath nil
jde-make-program ""
jde-javadoc-gen-group nil
jde-javadoc-gen-link-offline nil
jde-entering-java-buffer-hook '(jde-reload-project-file
jde-which-method-update-on-entering-buffer)
jde-javadoc-gen-doc-title ""
jde-javadoc-gen-header ""
jde-run-option-vm-args nil
jde-javadoc-gen-window-title ""
jde-compile-option-directory ""
jde-imenu-create-index-function 'semantic-create-imenu-index
jde-gen-console-buffer-template '("(funcall jde-gen-boilerplate-function)
'>'n"
"\"/**\" '>'n" "\" * \""
"(file-name-nondirectory buffer-file-name) '>'n"
"\" *\" '>'n" "\" *\" '>'n"
"\" * Created: \" (current-time-string) '>'n"
"\" *\" '>'n"
"\" * @author <a href=\\\"mailto: \\\"\" (user-full-name)
\"</a>\"'>'n" "\" * @version\" '>'n" "\" */\" '>'n" "'>'n" "\"public class
\"" "(file-name-sans-extension (file-name-nondirectory buffer-file-name))"
"(if jde-gen-k&r " "()" "'>'n)" "\"{\"'>'n" "\"public \""
"(file-name-sans-extension (file-name-nondirectory buffer-file-name))" "\"
()\"" "(if jde-gen-k&r " "()" "'>'n)" "\"{\"'>'n" "'>'n" "\"}\"'>'n" "'>'n"
"\"public static void main(String[] args)\"" "(if jde-gen-k&r " "()" "'>'n)"
"\"{\"'>'n" "'>'p'n" "\"}\"'>'n" "\"} // \"'>" "(file-name-sans-extension
(file-name-nondirectory buffer-file-name))" "'>'n")
jde-read-make-args nil
jde-javadoc-gen-noindex nil
jde-gen-mouse-listener-template '("(end-of-line) '& (P \"Component name:
\")"
"\".addMouseListener(new MouseAdapter() \""
"(if jde-gen-k&r " "()" "'>'n)" "\"{\"'> "
"'>'n \"public void mouseClicked(MouseEvent e) \" "
"(if jde-gen-k&r " "()" "'>'n)" "\"{\"'>'n"
"\"}\" '>"
"'>'n \"public void mouseEntered(MouseEvent e) \""
"(if jde-gen-k&r " "()" "'>'n)" "\"{\"'>'n"
"\"}\" '>"
"'>'n \"public void mouseExited(MouseEvent e) \""
"(if jde-gen-k&r " "()" "'>'n)" "\"{\"'>'n" "\"}\"'>"
"'>'n \"public void mousePressed(MouseEvent e) \""
"(if jde-gen-k&r " "()" "'>'n)" "\"{\"'>'n"
"\"}\" '>"
"'>'n \"public void mouseReleased(MouseEvent e) \""
"(if jde-gen-k&r " "()" "'>'n)" "\"{\"'>'n" "\"}\"'>"
"'>'n \"});\"'>'n'>")
jde-run-option-application-args nil
jde-bug-vm-executable '("javaw")
jde-db-set-initial-breakpoint t
jde-auto-sort-imports nil
jde-bug-debugger-command-timeout 10
jde-db-option-stack-size '((128 . "kilobytes") (400 . "kilobytes"))
jde-db-option-properties nil
jde-db-source-directories '("./" "d:/jdk1.3/src/")
jde-run-read-app-args nil
jde-gen-to-string-method-template '("(end-of-line) '&" "\"public String
toString() \""
"(if jde-gen-k&r " "()" "'>'n)" "\"{\"'>'n"
"\"}\"'>'n'>")
jde-quote-classpath t
jde-bug-window-message nil
jde-build-use-make nil
jde-javadoc-author-tag-template '("* @author <a href=\"mailto:"
user-mail-address "\">"
user-full-name "</a>")
jde-javadoc-describe-field-template '("* Describe " (jde-javadoc-field-type
modifiers)
" " (jde-javadoc-code name) " here.")
jde-javadoc-gen-link-URL nil
jde-compile-option-classpath nil
jde-bug-jdk-directory "d:/jdk1.3"
jde-gen-boilerplate-function 'jde-gen-create-buffer-boilerplate
jde-gen-entity-bean-template '("(jde-wiz-insert-imports-into-buffer (list
\"javax.ejb.*\"\n\"java.rmi.RemoteException\"))" "'> \"public void
ejbActivate() throws RemoteException \"" "(if jde-gen-k&r " "()" "'>'n)"
"\"{\"'>'n" "\"}\"'>'n '>'n" "'> \"public void ejbPassivate() throws
RemoteException \"" "(if jde-gen-k&r " "()" "'>'n)" "\"{\"'>'n" "\"}\"'>'n
'>'n" "'> \"public void ejbLoad() throws RemoteException \"" "(if
jde-gen-k&r " "()" "'>'n)" "\"{\"'>'n" "\"}\"'>'n '>'n" "'> \"public void
ejbStore() throws RemoteException \"" "(if jde-gen-k&r " "()" "'>'n)"
"\"{\"'>'n" "\"}\"'>'n '>'n" "'> \"public void ejbRemove() throws
RemoteException \"" "(if jde-gen-k&r " "()" "'>'n)" "\"{\"'>'n" "\"}\"'>'n
'>'n" "'> \"public void setEntityContext(EntityContext ctx) throws
RemoteException \"" "(if jde-gen-k&r " "()" "'>'n)" "\"{\"'>'n" "\"}\"'>'n
'>'n" "'> \"public void unsetEntityContext() throws RemoteException \"" "(if
jde-gen-k&r " "()" "'>'n)" "\"{\"'>'n" "\"}\"'>'n '>'n'>")
jde-javadoc-describe-constructor-template '("* Creates a new "
(jde-javadoc-code name)
" instance.")
jde-bug-server-shmem-name '(t . "JDEbug")
jde-db-startup-commands nil
jde-javadoc-gen-docletpath nil
jde-javadoc-gen-split-index nil
jde-compile-option-deprecation nil
jde-which-method-mode t
jde-gen-k&r nil
jde-javadoc-gen-bottom ""
jde-javadoc-gen-footer ""
jde-db-option-classpath nil
jde-gen-cflow-for '("(if (jde-parse-comment-or-quoted-p)" "'(l \"for\")"
"'(l '> \"for (\" (p \"for-clause: \" clause) \") \""
"(if jde-gen-k&r " "()" "'>'n)" "\"{\"'>'n'>'r'n"
"\"} // end of for (\" (s clause) \")\"'>'n'>)" ")")
jde-run-mode-hook nil
jde-db-option-verify '(nil t)
jde-compile-option-extdirs nil
jde-imenu-sort nil
jde-gen-get-set-var-template '("'n>" "\"/**\" 'n>"
"\"* Get the value of \" (P \"Variable name: \" name) \".\" 'n>"
"\"* @return Value of \" (s name) \".\" 'n>" "\"*/\" 'n>" "\"public \" (P
\"Variable type: \" type) \" get\" (jde-gen-init-cap (jde-gen-lookup-named
'name))" "\"() {return \" (s name) \";}\" 'n> 'n>" "\"/**\" 'n>" "\"* Set
the value of \" (s name) \".\" 'n>" "\"* @param v Value to assign to \"
(s name) \".\" 'n>" "\"*/\" 'n>" "\"public void set\" (jde-gen-init-cap
(jde-gen-lookup-named 'name))" "\"(\" (s type) \" v) {this.\" (s name)
\" = v;}\" 'n>")
jde-bug-saved-breakpoints nil
jde-compile-option-sourcepath nil
jde-gen-cflow-if '("(if (jde-parse-comment-or-quoted-p)" "'(l \"if\")"
"'(l '> \"if (\" (p \"if-clause: \" clause) \") \""
"(if jde-gen-k&r " "()" "'>'n)" "\"{\"'>'n'>'r'n"
"\"} // end of if (\" (s clause) \")\"'>'n'>)" ")")
jde-db-option-java-profile '(nil . "./java.prof")
jde-javadoc-gen-author t
jde-compile-option-depend-switch '("-Xdepend")
jde-setnu-mode-enable nil
jde-run-applet-doc ""
jde-compile-option-vm-args nil
jde-javadoc-gen-overview ""
jde-javadoc-gen-notree nil
jde-run-option-garbage-collection '(t t)
jde-db-mode-hook nil
jde-javadoc-command-path "javadoc"
jde-db-option-heap-profile '(nil "./java.hprof" 5 20 "Allocation objects")
bsh-eval-timeout 20
jde-db-read-vm-args nil
jde-bug-debug nil
jde-javadoc-end-block-template nil
jde-javadoc-gen-packages nil
jde-gen-cflow-if-else '("(if (jde-parse-comment-or-quoted-p)" "'(l
\"ife\")"
"'(l '> \"if (\" (p \"if-clause: \" clause) \") \""
"(if jde-gen-k&r " "()" "'>'n)" "\"{\"'>'n'>'r'n"
"\"} // end of if (\" (s clause) \")\"'> n" "'> \"else \""
"(if jde-gen-k&r " "()" "'>'n)" "\"{\"'>'n'>'r'n"
"\"} // end of if (\" (s clause) \")else\"'>'n'>)" ")")
jde-gen-cflow-while '("(if (jde-parse-comment-or-quoted-p)" "'(l
\"while\")"
"'(l '> \"while (\" (p \"while-clause: \" clause) \") \""
"(if jde-gen-k&r " "()" "'>'n)" "\"{\"'>'n'>'r'n"
"\"} // end of while (\" (s clause) \")\"'>'n'>)" ")")
jde-bug-server-socket '(t . "2112")
jde-imenu-include-modifiers nil
jde-appletviewer-option-encoding ""
jde-bug-breakpoint-cursor-colors '("cyan" . "brown")
jde-compile-option-target '("1.1")
jde-run-executable ""
jde-run-option-heap-size '((1 . "megabytes") (16 . "megabytes"))
jde-gen-cflow-switch '("(if (jde-parse-comment-or-quoted-p)" "'(l
\"switch\")"
"'(l '> \"switch (\" (p \"switch-condition: \" clause) \") \""
"(if jde-gen-k&r " "()" "'>'n)" "\"{\"'>'n'"
"\"case \" (p \"first value: \") \":\"'>'n'>'p'n"
"\"break;\"'>'n'>'p'n" "\"default:\"'>'n'>'p'n" "\"break;\"'>'n"
"\"} // end of switch (\" (s clause) \")\"'>'n'>)" ")")
jde-which-method-abbrev-symbol "~"
jde-db-option-vm-args nil
jde-run-application-class ""
jde-javadoc-gen-doclet ""
jde-run-option-verbose '(nil nil nil)
jde-project-file-name "prj.el"
jde-wiz-import-excluded-packages '("bsh.*")
jde-compile-option-debug '("all" (nil nil nil))
jde-bug-jre-home ""
jde-run-applet-viewer "appletviewer"
jde-javadoc-return-tag-template '("* @return " (jde-javadoc-a type) " "
(jde-javadoc-code type) " value")
jde-javadoc-gen-version t
jde-javadoc-gen-helpfile ""
jde-run-read-vm-args nil
jde-help-docsets '(("javadoc" "d:/jdk1.3/docs/api" nil))
jde-gen-inner-class-template '("(end-of-line) '& \"class \" (P \"Class
name: \" class)"
"(P \"Superclass: \" super t)"
"(let ((parent (jde-gen-lookup-named 'super)))"
"(if (not (string= parent \"\"))"
"(concat \" extends \" parent ))) " "(if jde-gen-k&r "
"()" "'>'n)" "\"{\" '>'n"
"\"public \" (s class) \"() \"" "(if jde-gen-k&r " "()"
"'>'n)" "\"{\"'>'n" "\"}\"'>'n" "\"}\" '>'n'>")
jde-auto-parse-buffer-interval 180
jde-run-option-verify '(nil t)
jde-compile-option-optimize nil
jde-gen-cflow-case '("(if (jde-parse-comment-or-quoted-p)" "'(l \"case\")"
"'(l 'n \"case \" (p \"value: \") \":\"'>'n'>'p'n"
"\"break;\"'>'n'>'p)" ")")
jde-compile-option-depend nil
jde-javadoc-describe-class-template '("* Describe class " (jde-javadoc-code
name)
" here.")
jde-javadoc-gen-serialwarn nil
jde-gen-action-listener-template '("'& (P \"Component name: \")"
"\".addActionListener(new ActionListener() \""
"(if jde-gen-k&r " "()" "'>'n)" "\"{\"'>'n"
"\"public void actionPerformed(ActionEvent e) \""
"(if jde-gen-k&r " "()" "'>'n)" "\"{\"'>'n"
"\"}\"'>'n \"});\"'>'n'>")
jde-auto-parse-enable t
jde-compile-option-command-line-args ""
jde-gen-buffer-templates '(("Class" . jde-gen-class) ("Console" .
jde-gen-console)
("Swing App" . jde-gen-jfc-app))
jde-project-context-switching-enabled-p t
jde-javadoc-gen-args nil
jde-run-option-stack-size '((128 . "kilobytes") (400 . "kilobytes"))
jde-run-option-properties nil
)
The contents of the *JDEBug* buffer were
cd c:/tmp/
javaw -classpath
d:/Gnu_stuff/Emacs/emacs-20.5/site-lisp/jde-2.2.6beta3/java/lib/jde.jar;d:/j
dk1.3/lib/tools.jar jde.debugger.Main
(jde-dbo-init-debug-session)
JDE> -1 1 launch 1 -vmexec javaw -classic -classpath . -v -verbosegc Test2
(jde-dbo-message 1 "VM options: '-classic '")
(jde-dbo-command-error
1 "VM initialization failed for:
D:/JDK1.3/bin/javaw -classic -Xdebug -Xnoagent -Djava.compiler=NONE -Xrunjdw
p:transport=dt_shmem,address=javadebug,suspend=y -classpath . -v -verbosegc
Test2")
End Insert *JDEbug* buffer
There is no CLI buffer
The contents of the locals buffer are
End Insert locals buffer
There was no *Backtrace* buffer
The contents of the *Messages* buffer were
(D:\GNU_STUFF\EMACS\EMACS-20.5\BIN\EMACS.EXE C:\tmp\Test2.java)
Loading backquote...
Loading backquote...done
Loading cus-face...
Loading cus-face...done
Loading regexp-opt...
Loading regexp-opt...done
Loading wid-browse...
Loading wid-browse...done
Loading cl-macs...
Loading cl-macs...done
Bootstrapping objects...
Bootstrapping objects...done
Loading cl-extra...
Loading cl-extra...done
Loading java-font-lock20a (source)...
Loading cl-seq...
Loading cl-seq...done
Loading java-font-lock20a (source)...done
Loading time...
Loading time...done
Loading timer...
Loading timer...done
Loading cua-mode...
Loading cua-mode...done
Loading paren...
Loading paren...done
For information about the GNU Project and its goals, type C-h C-p.
Test2.java has auto save data; consider M-x recover-file
Setting JDE variables to startup values...
Loading fast-lock...
Loading fast-lock...done
Fontifying Test2.java...
Fontifying Test2.java... (regexps.........................................)
Loading fast-lock...done
Folding buffer...
Reparse needed...
Folding buffer... done
No response to command 1. (process = 1; timeout = 10 sec.)
Preparing problem report...
Loading sendmail...
Loading sendmail...done
Formatting bug report buffer...
Formatting bug report
buffer...............................................................
Mark set [3 times]
End Insert *Messages* buffer
Process environment:
TERM=cmd
EMACSDOC=D:/GNU_STUFF/EMACS/EMACS-20.5/etc
EMACSLOCKDIR=D:/GNU_STUFF/EMACS/EMACS-20.5/lock
EMACSPATH=D:/GNU_STUFF/EMACS/EMACS-20.5/bin
EMACSDATA=D:/GNU_STUFF/EMACS/EMACS-20.5/etc
SHELL=D:/GNU_STUFF/EMACS/EMACS-20.5/bin/cmdproxy.exe
EMACSLOADPATH=D:/GNU_STUFF/EMACS/EMACS-20.5/site-lisp;D:/GNU_STUFF/EMACS/EMA
CS-20.5/lisp;D:/GNU_STUFF/EMACS/EMACS-20.5/leim
TMPDIR=C:\windows\TEMP
EMACS_DIR=D:/GNU_STUFF/EMACS/EMACS-20.5
BLASTER=A220 I5 D1 T4
windir=C:\WINDOWS
CMDLINE=WIN
NWLANGUAGE=ENGLISH
IMNINST=help
IMNINSTSRV=C:\IMNNQ_95
PATH=D:\CYGWIN\BIN;D:\JDK1.3\BIN;C:\NOVELL\CLIENT32;C:\WINDOWS;C:\WINDOWS;C:
\WINDOWS\COMMAND;C:\IMNNQ_95
WIN32DMIPATH=C:\DMI\
HOME=d:/Gnu_stuff/Emacs/Home
CLASSPATH=.
MSINPUT=c:\WINDOWS\MSINPUT
COMSPEC=C:\WINDOWS\COMMAND.COM
winbootdir=C:\WINDOWS
PROMPT=$p$g
TEMP=C:\windows\TEMP
TMP=c:\windows\TEMP
The contents of the .emacs file was
(setq load-path
(nconc
'(
"D:/Gnu_stuff/Emacs/emacs-20.5/site-lisp/jde-2.2.6beta3/lisp"
"D:/Gnu_stuff/Emacs/emacs-20.5/site-lisp/semantic-1.3.1"
"D:/Gnu_stuff/Emacs/emacs-20.5/site-lisp/speedbar-0.13a"
"d:/Gnu_stuff/Emacs/emacs-20.5/site-lisp/elib"
;; Firga: "P:/progs/siv/emacs-20.3.1/site-lisp/jde-2.1.5b4"
;; Other add-on packages
)
load-path))
(require 'semantic)
(require 'speedbar)
(require 'jde)
;; Javadoc documentation template for methods generated with M-x jdok-gen
(require 'jdok)
;; For creating .html from Emacs files.
(require 'htmlize)
;; For folding away comments and method bodies
(require 'jfolding)
(setq jfolding-auto-hide-on-load nil )
;; Fix for folding/jfolding incompatibility with new Speedbar provided by
Phil Lord.
(defun folding-narrow-to-region (&optional start end centre)
(let* ((the-window (get-buffer-window (current-buffer)))
(selected-buffer (window-buffer the-window))
(window-ring the-window)
(window the-window)
(point (point))
(buffer (current-buffer))
temp
)
(if the-window
(unwind-protect
(progn
(unwind-protect
(progn
(if (folding-use-overlays-p)
(if start
(folding-narrow-aux start end t)
(folding-narrow-aux nil nil nil))
(if start
(narrow-to-region start end)
(widen))
)
(setq point (point))
(set-window-buffer window buffer)
(while (progn
(and (eq buffer (window-buffer window))
(if centre
(progn
(select-window window)
(goto-char point)
(vertical-motion
(- (lsh (window-height window) -1)))
(set-window-start window (point))
(set-window-point window point))
(set-window-start window (or start 1))
(set-window-point window point)))
(not (eq (setq window (next-window window nil t))
window-ring))
)) ;; while-progn
) ;; progn overlays
nil ;; epoch screen
(select-window the-window)
) ;; unwind-protect INNER
;; Set last_window_start.
(unwind-protect
(if (not (eq buffer selected-buffer))
(set-window-buffer the-window selected-buffer)
(if (get-buffer "*scratch*")
(set-window-buffer the-window (get-buffer "*scratch*"))
(set-window-buffer
the-window (setq temp (generate-new-buffer " *temp*"))))
(set-window-buffer the-window buffer))
(and temp
(kill-buffer temp))))
;; Undo this side-effect of set-window-buffer.
(set-buffer buffer)
(goto-char (point))))))
;;; java-font-lock20a.el --- patch font-lock for Java in Gnu Emacs20
;;
...........................................................................
;;; For original, see emacs-20.3.1/lisp/font-lock.el
;;; 1999.03.26 Modifications by CarlManning ([EMAIL PROTECTED]):
;;; at http://www.ai.mit.edu/people/caroma/tools/
(load "java-font-lock20a")
;; To enable font-locking everywhere:
(global-font-lock-mode t) ;; optional
;; For many-color screen, Black text on White/FloralWhite/etc. background,
;; or White text on Black/dark background:
(custom-set-faces
'(font-lock-comment-face ((((class color) (background light)) (:foreground
"ForestGreen")) (((class color) (background dark)) (:foreground
"PaleGreen"))))
'(font-lock-string-face ((((class color) (background light)) (:foreground
"SlateGray")) (((class color) (background dark)) (:foreground
"SlateGray1"))))
'(font-lock-keyword-face ((((class color) (background light)) (:foreground
"Blue3")) (((class color) (background dark)) (:foreground "LightBlue1"))))
'(show-paren-mismatch-face ((((class color)) (:foreground "black"
:background "red2"))))
'(font-lock-constant-face ((((class color) (background light)) (:foreground
"SlateGray")) (((class color) (background dark)) (:foreground
"SlateGray1"))))
'(font-lock-type-face ((((class color) (background light)) (:foreground
"Purple3")) (((class color) (background dark)) (:foreground "Thistle1"))))
'(show-paren-match-face ((((class color)) (:foreground "black" :background
"green3"))))
'(font-lock-variable-name-face ((((class color) (background light))
(:foreground "DarkGoldenrod4")) (((class color) (background dark))
(:foreground "Khaki2"))))
'(font-lock-function-name-face ((((class color) (background light))
(:foreground "Firebrick")) (((class color) (background dark)) (:foreground
"LightSalmon1")))))
;; Print using Ghostview
;;-----------------------
(require 'ps-print)
(setq ps-paper-type (quote a4))
(setq ps-lpr-command "c:\\gstools\\gsview\\gsview32") ;; Ghostview on Dell
notebook
(setq ps-lpr-buffer "d:\\Gnu_stuff\\Emacs\\spool\\psspool.ps") ;; a tmp
spool file
;; Command for spooling color postscript
(defun gsview-color ()
(interactive)
(ps-spool-buffer-with-faces)
(ps-despool ps-lpr-buffer)
(shell-command
(apply 'concat (append (list ps-lpr-command " ")
(list " " ps-lpr-buffer))))
)
;; Command for spooling mono postscript
(defun gsview-mono ()
(interactive)
(ps-print-buffer ps-lpr-buffer)
(shell-command
(apply 'concat (append (list ps-lpr-command " ")
(list " " ps-lpr-buffer))))
)
;;(define-key global-map "\C-cp" 'gsview-buffer)
;; Use the following commands, based on font-lock-mode, to move the
;; cursor to previous/next method:
;;------------------------------------------------------------------
(defun next-function-name-face ()
"Point to next `font-lock-function-name-face' text."
(interactive)
(let ((pos (point)))
(if (eq (get-text-property pos 'face) 'font-lock-function-name-face)
(setq pos (or (next-property-change pos) (point-max))))
(setq pos (text-property-any pos (point-max) 'face
'font-lock-function-name-face))
(if pos
(goto-char pos)
(progn
(goto-char (point-max))
(message "End of buffer")))))
(defun prev-function-name-face ()
"Point to previous `font-lock-function-name-face' text."
(interactive)
(let ((pos (point)))
(if (eq (get-text-property pos 'face) 'font-lock-function-name-face)
(setq pos (or (previous-property-change pos) (point-min))))
(setq pos (previous-property-change pos))
(while (and pos (not (eq (get-text-property pos 'face)
'font-lock-function-name-face)))
(setq pos (previous-property-change pos)))
(if pos
(progn
(setq pos (previous-property-change pos))
(goto-char (or (and pos (1+ pos)) (point-min))))
(progn
(goto-char (point-min))
(message "Beginning of buffer")))))
;; Shortcut key for moving to next function is Alt-Downarrow
(define-key jde-mode-map [M-down] 'next-function-name-face)
;; Shortcut key for moving to previous function is Alt-Uparrow
(define-key jde-mode-map [M-up] 'prev-function-name-face)
;;------------------------------------------------------------------
;; Configuration required to use browse-url on Win32. The program shelex.exe
;; has to be in the path.
;; Note the variable jde-jdk-doc-url also has to be set to point to the
;; file where you want to start.
(defvar shell-execute-helper "shelex.exe")
(defun shell-execute-url (url &optional new-window)
"Invoke the shell-execute-helper program to call ShellExecute and launch
or re-direct a web browser on the specified url."
(interactive "sURL: ")
; (call-process shell-execute-helper nil nil nil url)
(start-process "shellex" nil shell-execute-helper url))
(setq browse-url-browser-function 'shell-execute-url)
(setq gnus-button-url 'shell-execute-url) ; GNUS
(setq vm-url-browser 'shell-execute-url) ; VM
(
defun my-jde-mode-hook ()
;;(imenu-add-to-menubar "Classes")
(c-add-style
"my-java"
'("java"
(c-basic-offset . 2)
;; Don't indent braces
(setq c-continued-brace-offset -2)
(c-comment-only-line-offset . (0 . 0))
(c-hanging-braces-alist . ((substatement-open before after) ))))
(c-set-style "my-java")
;; Makes a new line when the ; is typed.
;;(setq c-auto-newline t)
;; Define shortcut keys (for jde mode, not global)
(define-key jde-mode-map [f1] 'jde-help-symbol)
(define-key jde-mode-map [f2] 'jde-parse)
(define-key jde-mode-map [f3] 'set-mark-command)
(define-key jde-mode-map [f4] 'kill-rectangle)
(define-key jde-mode-map [f5] 'yank-rectangle)
(define-key jde-mode-map [f6] 'jdok-generate-javadoc-template)
;; F10 key will create the postscript for the active java buffer and write
;; it to the *PostScript* buffer. Save that buffer to file and use Ghostview
;; to process it further.
(define-key jde-mode-map [f10] 'ps-spool-buffer-with-faces)
;; Auto indentation (without pressing the tab).
(define-key c-mode-base-map "\C-m" 'newline-and-indent)
(setq c-comment-continuation-stars "* ")
)
(add-hook 'jde-mode-hook 'my-jde-mode-hook)
;; Turn on hungry delete mode: i.e. backspace deletes all preceding
;; whitespace characters in one swoop.
(add-hook 'c-mode-common-hook
'(lambda () (c-toggle-hungry-state 1)))
;; Debugging when required
(setq debug-on-error t)
;; These lines show the clock in the status bar.
;; Comment out first line if you prefer to show
;; time in 12 hour format
(setq display-time-24hr-format t)
(setq display-time-day-and-date t)
(display-time)
;; Shut off annoying sound
(set-message-beep 'silent)
;; show column number in status bar
(setq column-number-mode t)
;; make searches case-INsensitive
(set-default 'case-fold-search t)
;; Word completion: Set the Tab to do word-completion
;; Obsolete: Type part of the word, then M-/ (Alt-/) to complete
;;(setq-default dabbrev-case-replace nil)
;;------------------------------------------------------------------
(defun my-tab (&optional pre-arg)
" If preceeding character is part of a word then dabbrev-expand,
else if right of non whitespace on line then tab-to-tab-stop,
else if last command was a tab or return then dedent one step,
else indent 'correctly'
First, it determines the context around the point (current cursor
location).
If the preceeding character is part of a word, it tried to dynamically
expand that word. It uses the dabbrev package to do that. Dabbrev
looks backwards in the buffer to match that word. Each successive TAB
press will use a preceeding match. It will search backwards through the
buffer to the beginning, then from the point to the end of the buffer,
then all other buffers of the same mode (java in this case) and then
buffers of other modes. Just keep hitting TAB.
If the preceeding character is whitespace, it will move to the next tab
stop, if that is defined, or it will look at the previous line, and move
over to the next non-whitespace following whitespace column. Nice way
to align things. This is the indent-relative method.
Otherwise, if it's at the beginning of a line, it indent the whole line
according to the current mode's indentation method. This latter is the
usual binding for TAB within emacs.
"
(interactive "*P")
(cond ((= (char-syntax (preceding-char)) ?w)
(let ((case-fold-search t)) (dabbrev-expand pre-arg)))
((> (current-column) (current-indentation))
(indent-relative))
(t (indent-according-to-mode)))
(setq this-command 'my-tab))
;; Use tab key for my-tab.
(global-set-key [tab] 'my-tab)
;; In case of problems change to [insert] for my-tab and meta-insert for
overwrite mode
;;(global-set-key [insert] 'my-tab)
;;(global-set-key [(meta insert)] 'overwrite-mode)
;;------------------------------------------------------------------
;; Set colors like this, if desired
;;(set-background-color "azure1")
;;(set-background-color "gray90")
(set-background-color "ivory2")
(set-foreground-color "black")
;; Get rid of old versions of files
(setq delete-old-versions t)
;; Shut off message buffer. Note - if you need to debug emacs,
;; comment these out so you can see what's going on.
;; (setq message-log-max nil)
;; (kill-buffer "*Messages*")
;; Automatically turn on auto-fill-mode when editing text files
(add-hook 'text-mode-hook 'turn-on-auto-fill)
;; If you want to change the word wrap column, change this number
(setq-default fill-column 75)
;;
;; Changes emacs keyboard to a more 'Windowish' style for coping, cutting &
pasting ...
;;
(load "cua-mode")
(CUA-mode t)
;;
;;Highlight matching parentheses
(load "paren")
(show-paren-mode t)
;; Valid styles are
;; `parenthesis' (meaning show the matching paren),
;; `expression' (meaning show the entire expression enclosed by the paren)
and
;; `mixed' (meaning show the matching paren if it is visible, and
;; the expression otherwise).
(setq paren-style (quote mixed))
(setq paren-sexp-mode t)
(setq paren-delay 20)
(custom-set-faces
'(show-paren-match-face ((((class color))
(:foreground "black" :background "green3"))))
'(show-paren-mismatch-face ((((class color))
(:foreground "black" :background "red2")))))
;; Settings for Dell Notebook: 14 inch monitor
;; running 1024 x 768 resolution
(set-frame-height (selected-frame) 43)
(set-frame-width (selected-frame) 90)
;; Settings for Firga: 17 inch monitor
;; running 800x600 resolution
;; (set-frame-height (selected-frame) 32)
;; (set-frame-width (selected-frame) 70)
(setq default-frame-alist
'((cursor-color . "Red")
(foreground-color . "black")
(background-color . "ivory2")))
;; (font . "-*-Courier New-normal-r-*-*-13-*-96-96-c-*-iso8859-5")))
;Set the default color, font and frame size for the initial frame.
(setq initial-frame-alist
'((cursor-color . "Red")
(foreground-color . "black")
(background-color . "ivory2")))
; (font . "-*-Courier New-normal-r-*-*-13-*-96-96-c-*-iso8859-5")))
(set-face-background 'modeline "navy")
(set-face-foreground 'modeline "gold")
;;(set-face-font 'italic "-*-Courier
New-normal-i-*-*-13-*-96-96-c-*-iso8859-5")
;;(set-face-font 'bold "-*-Courier New-bold-r-*-*-13-*-96-96-c-*-iso8859-5")
;;(set-face-font 'bold-italic "-*-Courier
New-bold-i-*-*-13-*-96-96-c-*-iso8859-5")
;;(setq initial-frame-alist '((top . 10) (left . 30)))
(setq frame-title-format
'(multiple-frames "%b"
("" invocation-name "@" system-name
": %f")))
;; If not using cua-mode but still want pc key bindings
;;(pc-bindings-mode) ;; set Home=beginning-of-line; End=end-of-line;
C-Home=top of ;; file; C-End=bottom
;; Use bubble for switching between buffers.
;; For description on how bubble works check description in source file.
;;------------------------------------------------------------------
(load "bubble" nil t) ; or autoload the two commands
(global-set-key [f12] 'bubble-buffer) ; or some such pair of keys
(global-set-key [f11] 'bubble-buffer-back)
;;------------------------------------------------------------------
;; =================================================================
;; Emacs auto customize section
;; =================================================================
;; Start custom section. Emacs will add to this section when
;; you use the customize stuff on the help menu
(custom-set-variables
'(jde-compile-option-command-line-args "")
'(printer-name "//sun_ing/isi_hp4v" t)
'(jde-help-docsets (quote (("javadoc" "d:/jdk1.3/docs/api" nil))))
'(jde-run-applet-viewer "appletviewer")
'(jde-bug-jre-home "")
'(jde-compile-option-debug (quote ("all" (nil nil nil))))
'(transient-mark-mode t)
'(browse-url-new-window-p t)
'(which-func-mode-global t nil (which-func))
'(ps-header-lines 1)
'(scroll-step 1)
'(ps-right-header (quote ("/pagenumberstring load")))
'(jde-gen-get-set-var-template (quote ("'n>" "\"/**\" 'n>" "\"* Get the
value of \" (P \"Variable name: \" name) \".\" 'n>" "\"* @return Value
of \" (s name) \".\" 'n>" "\"*/\" 'n>" "\"public \" (P \"Variable type:
\" type) \" get\" (jde-gen-init-cap (jde-gen-lookup-named 'name))" "\"()
{return \" (s name) \";}\" 'n> 'n>" "\"/**\" 'n>" "\"* Set the value of \"
(s name) \".\" 'n>" "\"* @param v Value to assign to \" (s name) \".\"
'n>" "\"*/\" 'n>" "\"public void set\" (jde-gen-init-cap
(jde-gen-lookup-named 'name))" "\"(\" (s type) \" v) {this.\" (s name)
\" = v;}\" 'n>")))
'(ps-print-color-p nil)
'(browse-url-netscape-version 4.05)
'(jde-gen-k&r nil)
'(scroll-conservatively 1)
'(jde-bug-jdk-directory "d:/jdk1.3")
'(mark-even-if-inactive t)
'(ps-lpr-switches nil)
'(jde-db-source-directories (quote ("./" "d:/jdk1.3/src/")))
'(ps-build-face-reference t)
'(find-file-run-dired t)
'(font-lock-support-mode (quote fast-lock-mode))
'(jde-make-program "")
'(jde-compiler "javac")
'(jde-jdk-doc-url "D:/jdk1.3/docs/api/index.html")
'(speedbar-frame-parameters (quote ((minibuffer) (width . 32) (border-width
. 0) (menu-bar-lines . 0) (unsplittable . t) (background-color .
"ivory2"))))
'(jde-db-debugger (quote ("JDEbug" "" . "Executable")))
'(nil nil t)
'(lpr-command "print" t)
'(jde-run-working-directory "")
'(ps-left-header (quote (ps-get-buffer-name)))
'(jdok-describe-constructor "* Description: ")
'(jde-global-classpath (quote (".")))
'(column-number-mode t)
'(jde-enable-abbrev-mode t)
'(jde-gen-println (quote ("'&" "\"System.out.println(\" (P \"Print out: \")
\");\"")))
'(jde-db-option-verbose (quote (t t nil)))
'(jde-bug-jpda-directory "")
'(lpr-headers-switches nil t)
'(jde-run-java-vm-w "javaw")
'(jde-bug-vm-includes-jpda-p t)
'(global-font-lock-mode t nil (font-lock))
'(jde-gen-buffer-boilerplate (quote ("// Stellenbosch 2000")))
'(jdok-exception-tag "* @exception ")
'(jde-bug-debugger-host-address "127.0.0.1")
'(global-auto-revert-mode t nil (autorevert))
'(jde-mode-abbreviations (quote (("ab" . "abstract") ("bo" . "boolean")
("br" . "break") ("by" . "byte") ("byv" . "byvalue") ("cas" . "cast") ("ca"
. "catch") ("ch" . "char") ("cl" . "class") ("co" . "const") ("con" .
"continue") ("de" . "default") ("dou" . "double") ("el" . "else") ("ex" .
"extends") ("fa" . "false") ("fi" . "final") ("fin" . "finally") ("fl" .
"float") ("fo" . "for") ("fu" . "future") ("ge" . "generic") ("go" . "goto")
("impl" . "implements") ("impo" . "import") ("ins" . "instanceof") ("in" .
"int") ("inte" . "interface") ("lo" . "long") ("na" . "native") ("ne" .
"new") ("nu" . "null") ("pa" . "package") ("pri" . "private") ("pro" .
"protected") ("pu" . "public") ("re" . "return") ("sh" . "short") ("st" .
"static") ("str" . "String") ("su" . "super") ("sw" . "switch") ("sy" .
"synchronized") ("th" . "this") ("thr" . "throw") ("throw" . "throws")
("tra" . "transient") ("tr" . "true") ("vo" . "void") ("vol" . "volatile")
("wh" . "while"))))
'(lpr-page-header-program "pr")
'(speedbar-supported-extension-expressions (quote
(".[ch]\\(\\+\\+\\|pp\\|c\\|h\\|xx\\)?" ".tex\\(i\\(nfo\\)?\\)?" ".el"
".emacs" ".l" ".lsp" ".p" ".java" ".f\\(90\\|77\\|or\\)?" ".ada" ".pl"
".tcl" ".m" ".scm" ".pm" ".py" ".s?html" "Makefile\\(\\.in\\)?" ".idl")))
'(make-backup-files nil)
'(font-lock-global-modes t)
'(jde-run-classic-mode-vm t))
=====end inserted .emacs file
<><><><><><><><><><><><><><><><><><><>
Gert van Rooyen
Department of Civil Engineering
University of Stellenbosch, 7600 Stellenbosch
South Africa.
<><><><><><><><><><><><><><><><><><><>
