I love jde and appreciate all the work you've put into it. Good work!
I've been using 2.2.7beta6 and found that my prj.el file is now
missing several variables I've customized. The ones I've noticed so
far are:
jde-compile-option-sourcepath
jde-compile-option-directory
jde-gen-cflow-if
jde-gen-cflow-else
jde-gen-cflow-elseif
jde-gen-cflow-while
jde-gen-cflow-for
Does anyone else see this?
Thanks!
Emacs : GNU Emacs 20.7.1 (i386-*-nt5.0.2195)
of Tue Jun 13 2000 on buffy
Package: JDE version 2.2.7beta6
current state:
==============
(setq
jde-gen-session-bean-template '("(jde-import-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-project-name "quixote"
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-package-search-classpath-variables '(jde-compile-option-classpath
jde-global-classpath)
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") ("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 "OOPS"
jde-make-working-directory ""
jde-bug-breakpoint-marker-colors '("red" . "yellow")
jde-javadoc-gen-use nil
jde-gen-buffer-boilerplate nil
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 nil
jde-gen-jfc-app-buffer-template '("(funcall jde-gen-boilerplate-function)"
"(jde-gen-get-package-statement)"
"\"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:\" (eval
user-mail-address) \"\\\">\" (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-package-default-package-comment "// Default package used"
jde-package-load-hook nil
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 '(nil nil nil)
jde-which-method-class-min-length 4
jde-db-read-app-args t
jde-javadoc-gen-nodeprecated nil
jde-run-option-heap-profile '(nil "./java.hprof" 5 20 "Allocation objects")
jde-gen-println '("(end-of-line) '&" "\"System.out.println(\" (P \"Print out: \")
\");\" '>'n'>")
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 nil
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
met!
hod 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 p!
roperty 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 <c!
ode>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-import-find-and-import)
("[? ? ?]" . jde-run-etrace-prev)
("[? ? ? ]" . jde-run-etrace-next)
("[(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)\n \" \"
(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 "http://www.javasoft.com/products/jdk/1.3/docs/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" "\" * @author \" (user-full-name) '>'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" "\"}\">" "'>'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 "make"
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-java-font-lock-api-file "d:/Users/Mecklen/jde-java-font-lock.api"
jde-javadoc-gen-doc-title ""
jde-javadoc-gen-header ""
jde-run-option-vm-args nil
jde-javadoc-gen-window-title ""
jde-compile-option-directory "Q:/debug"
jde-imenu-create-index-function 'semantic-create-imenu-index
jde-gen-console-buffer-template '("(funcall jde-gen-boilerplate-function)"
"(jde-gen-get-package-statement)" "\"/**\" '>'n"
"\" * \""
"(file-name-nondirectory buffer-file-name) '>'n"
"\" *\" '>'n"
"\" *\" '>'n" "\" * Created: \"
(current-time-string) '>'n"
"\" *\" '>'n"
"\" * @author <a href=\\\"mailto:\" (eval
user-mail-address) \"\\\">\" (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-bug-debugger-command-timeout 30
jde-db-option-stack-size '((128 . "kilobytes") (400 . "kilobytes"))
jde-db-option-properties nil
jde-db-source-directories '("q:/code/" "r:/jdk1.3/src/")
jde-run-read-app-args t
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\n \"\\\">\" user-full-name \"</a>\""
jde-javadoc-describe-field-template "\"* Describe \" (jde-javadoc-field-type
modifiers)\n \" \" (jde-javadoc-code name) \" here.\""
jde-javadoc-gen-link-URL nil
jde-compile-option-classpath nil
jde-bug-jdk-directory "e:/jdk1.3/"
jde-gen-boilerplate-function 'jde-gen-create-buffer-boilerplate
jde-gen-entity-bean-template '("(jde-import-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'>")
bsh-startup-directory ""
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-import-group-of-rules nil
jde-which-method-mode t
jde-gen-k&r t
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-gen-cflow-catch '("(if (jde-parse-comment-or-quoted-p)" "'(l \"catch\")"
"'(l '> \"catch (\" (p \"catch what: \" clause) \" e) \""
"(if jde-gen-k&r " "()" "'>'n)" "\"{\"'>'n'>'r'n"
"\"} // end of catch\"'>'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 '("(end-of-line) '&" "(P \"Variable type: \" type
'noinsert)"
"(P \"Variable name: \" name 'noinsert)" "\"/**\" '>'n"
"\"* Get the value of \" (s name) \".\" '>'n" "\"* \"
'>'n"
"\"* @return value of \" (s name) \".\" '>'n" "\"*/\"
'>'n"
" \"public \" (s type)"
"(if (string= \"boolean\" (jde-gen-lookup-named 'type)
) "
"\" is\" " "\" get\" ) "
"(jde-gen-init-cap (jde-gen-lookup-named 'name))"
"\"() \" '>"
"(if jde-gen-k&r " "()" "'>'n)" "\"{\" '>'n"
"\"return m\" (jde-gen-init-cap (jde-gen-lookup-named
'name)) \";\" '>'n \"}\"" "'>'n '>'n" "\"/**\" '>'n" "\"* Set the value of \" (s name)
\".\" '>'n" "\"* \" '>'n" "\"* @param \" (jde-gen-lookup-named 'name) \" Value to
assign to \" (s name) \".\" '>'n" "\"*/\" '>'n" "\"public void set\" (jde-gen-init-cap
(jde-gen-lookup-named 'name))" "\"( \" (s type) \" \" (jde-gen-lookup-named 'name) \"
) \" '>" "(if jde-gen-k&r " "()" "'>'n)" "\"{\" '>'n" "\"m\" (jde-gen-init-cap
(jde-gen-lookup-named 'name)) \" = \" (jde-gen-lookup-named 'name) \";\" '>'n \"}\"
'>'n'>")
jde-bug-saved-breakpoints nil
jde-compile-option-sourcepath '("Q:/code")
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-package-package-comment " // Generated package name"
jde-db-option-java-profile '(nil . "./java.prof")
jde-gen-cflow-try-finally '("(if (jde-parse-comment-or-quoted-p)" "'(l \"try\")" "'(l
\"try \""
"(if jde-gen-k&r " "()" "'>'n)" "\"{\"'>'n'>'r'n" "\"}\""
"'> \"catch (\" (p \"catch what: \" clause) \" e) \""
"(if jde-gen-k&r " "()" "'>'n)" "\"{\"'>'n'>'r'n" "\"} \""
"'> \"finally \"" "(if jde-gen-k&r " "()" "'>'n)"
"\"{\"'>'n'>'r'n"
"\"} // end of try-finally\"'>'n'>)" ")")
jde-resolve-relative-paths-p t
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")
jde-import-group-function 'jde-import-group-of
bsh-eval-timeout 20
jde-db-read-vm-args nil
jde-bug-debug nil
jde-java-font-lock-api-name-filter nil
jde-javadoc-end-block-template nil
jde-gen-cflow-finally '("(if (jde-parse-comment-or-quoted-p)" "'(l \"finally\")"
"'(l '> \"finally \"" "(if jde-gen-k&r " "()" "'>'n)"
"\"{\"'>'n'>'r'n"
"\"} // end of finally\"'>'n'>)" ")")
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-gen-cflow-try-catch '("(if (jde-parse-comment-or-quoted-p)" "'(l \"try\")" "'(l
\"try \""
"(if jde-gen-k&r " "()" "'>'n)" "\"{\"'>'n'>'r'n" "\"} \""
"'> \"catch (\" (p \"catch what: \" clause) \" e) \""
"(if jde-gen-k&r " "()" "'>'n)" "\"{\"'>'n'>'r'n"
"\"} // end of try-catch\"'>'n'>)" ")")
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-import-auto-sort t
jde-run-option-verbose '(nil nil nil)
jde-project-file-name "prj.el"
jde-compile-option-debug '("selected" (t nil nil))
jde-bug-jre-home ""
jde-import-sorted-groups 'asc
jde-run-applet-viewer ""
jde-javadoc-return-tag-template "\"* @return \" (jde-javadoc-a type)\n \" \"
(jde-javadoc-code type) \" value\""
jde-javadoc-gen-version t
jde-javadoc-gen-helpfile ""
jde-import-excluded-packages '("bsh.*" "sun.*" "javax.*" "weblogic.*" "com.beasys.*"
"com.sun.*"
"org.*")
jde-run-read-vm-args nil
jde-help-docsets '(("javadoc" "r:/jdk1.3/docs/api" nil) ("javadoc"
"r:/TopLink/Javadocs" nil)
("javadoc"
"//wolf/reftree/debug/releases/1.1/daily/html/javadoc/apiquixote"
nil)
("javadoc"
"//wolf/reftree/debug/releases/1.1/daily/html/javadoc/apiui"
"r:/third_party/jakarta-regexp-1.2/docs" 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-import-reverse-sort-group nil
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-cygwin-path-converter '(jde-cygwin-path-converter-internal)
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
)
--
Robert
There was no *JDEBug* buffer
There is no CLI buffer
There is no locals buffer
There was no *Backtrace* buffer
The contents of the *Messages* buffer were
Mark set
Wrote q:/code/com/cimsoft/Makefile
Mark set [2 times]
Wrote q:/code/com/cimsoft/Makefile
(No changes need to be saved)
Mark set [3 times]
Wrote q:/code/com/cimsoft/Makefile
(No changes need to be saved)
Saving file d:/Users/Mecklen/Mail/inbox...
Wrote d:/Users/Mecklen/Mail/inbox
Fontifying *compilation*...
Fontifying *compilation*... (regexps.............................)
Quit
Completing file name...
No completions of /q/deb
(No files need saving)
Fontifying *compilation*...
Fontifying *compilation*... (regexps.............................)
(No files need saving)
Decoding MIME message...
Decoding MIME message... done
End of message 1168 from Paul Kinnucan
Decoding MIME message...
Decoding MIME message... done
Mark set
Decoding MIME message...
Decoding MIME message... done
Stuffing attributes...
Saving...
Saving file d:/Users/Mecklen/Mail/inbox...
Wrote d:/Users/Mecklen/Mail/inbox
Fontifying mail to ?...
Fontifying mail to ?... (regexps........)
Auto-saving...
Auto-saving...done
<<< Press Return to bury the buffer list >>>
Starting a new list of tags tables
Loading q:/code/com/cimsoft/prj.el (source)...
Loading q:/code/com/cimsoft/prj.el (source)...done
Fontifying Enumerator.java...
Fontifying Enumerator.java... (regexps....................................)
Loading q:/code/com/cimsoft/prj.el (source)...done
Fill column set to 90 (was 70)
Mark set
Preparing problem report...
Formatting bug report buffer...
Formatting bug report
buffer............................................................
Mark set
End Insert *Messages* buffer
Process environment:
MAILHOST=mail
TERM=cmd
EMACSDOC=D:/usr/emacs-20.7/etc
EMACSLOCKDIR=D:/usr/emacs-20.7/lock
EMACSPATH=D:/usr/emacs-20.7/bin
EMACSDATA=D:/usr/emacs-20.7/etc
EMACSLOADPATH=D:/usr/emacs-20.7/site-lisp;D:/usr/emacs-20.7/lisp;D:/usr/emacs-20.7/leim
TMPDIR=D:\TEMP
windir=C:\WINNT
USERPROFILE=C:\Documents and Settings\mecklen.CIG
USERNAME=mecklen
USERDOMAIN=CIG
TZ=MST6MDT
TMP=D:\TEMP
TEMP=D:\TEMP
SystemRoot=C:\WINNT
SystemDrive=C:
SHELL=D:\usr\cygwin\bin\bash.exe
ProgramFiles=C:\Program Files
PROCESSOR_REVISION=0803
PROCESSOR_LEVEL=6
PROCESSOR_IDENTIFIER=x86 Family 6 Model 8 Stepping 3, GenuineIntel
PROCESSOR_ARCHITECTURE=x86
PATHEXT=.COM;.EXE;.BAT;.CMD;.VBS;.VBE;.JS;.JSE;.WSF;.WSH
PATH=D:\usr\Oracle\Ora81\bin;d:\usr\emacs-20.7\bin;d:\usr\bin;d:\usr\cygwin\usr\local\bin;d:\usr\cygwin\bin;C:\WINNT\system32;C:\WINNT;C:\WINNT\System32\Wbem;D:\Program
Files\MSSQL7\BINNX;d:\usr\cygwin\usr\local\bin;r:\weblogic\bin\oci815_8;R:\jdk1.3\bin;R:\JBuilder4\bin;D:\Users\Mecklen\bin
Os2LibPath=C:\WINNT\system32\os2\dll;
OS=Windows_NT
ORACLE_HOME=d:/usr/Oracle/Ora81
NUMBER_OF_PROCESSORS=1
MAKE_MODE=unix
LOGONSERVER=\\TAPPY
HOMEPATH=\
HOMEDRIVE=C:
HOME=D:\Users\Mecklen
emacs_dir=D:/usr/emacs-20.7
COMSPEC=C:\WINNT\system32\cmd.exe
COMPUTERNAME=OOPS
CommonProgramFiles=C:\Program Files\Common Files
CLASSPATH=D:\Users\Mecklen/properties;Q:\debug;r:\third_party\vbjorb.jar;R:\TopLink\classes\JDK1.2\TOPLink.jar;R:\TopLink\classes\JDK1.2\TOPLinkX.jar;R:\TopLink\classes\JDK1.2\Tools.jar;R:\Sun
Collections\lib\collections.jar;R:\Weblogic\lib\weblogic510sp5.jar;R:\Weblogic\license;R:\Weblogic\classes;R:\Weblogic\lib\weblogicaux.jar;R:\mssqldriver\classes;R:\Tom
Sawyer Software\Graph Editor Toolkit 3.1 for Java\lib\tsgetj31.jar;R:\Tom Sawyer
Software\Graph Editor Toolkit 3.1 for Java\layout\lib\tslayout31.jar;R:\Tom Sawyer
Software\Graph Layout Toolkit for
Java\lib\tsgltj10.jar;R:\jdk1.3\dt.jar;R:\jdk1.3\tools.jar;R:\jdk1.3\jre\lib\i18n.jar;R:\jdk1.3\jre\lib\jaws.jar;R:\jdk1.3\jre\lib\rt.jar;R:\jConnect\classes\jconn2.jar;R:\xerces-1_2_0\xerces.jar;d:\usr\Oracle\Ora81\jdbc\lib\classes12.zip;r:\third_party\jakarta-regexp-1.2.jar
APPDATA=C:\Documents and Settings\mecklen.CIG\Application Data
ALLUSERSPROFILE=C:\Documents and Settings\All Users.WINNT
The contents of the .emacs file was
;;;
;;; General setup commands.
;;;
;;; Local directory layout.
(setq local-site-lisp "d:/usr/site-lisp")
(setq local-info "d:/usr/info")
(setq local-cygwin "d:/usr/cygwin")
;;; My identity.
(setq user-full-name "Robert Mecklenburg")
(setq user-mail-address "[EMAIL PROTECTED]") ; Used by ange-ftp.
(defvar *copyright* "Cimarron Software, Inc., all rights reserved.")
;;; Return true on nt.
(defun nt-emacs ()
"Return non-nil if we're running on nt."
(memq window-system '(w32 win32)))
;;; Add platform-specific load paths.
(if (nt-emacs)
(progn
(setq load-path (append (list local-site-lisp
"q:/code/cm/emacs"
(concat local-site-lisp "/eieio-0.15")
(concat local-site-lisp "/elib")
(concat local-site-lisp "/gnus-5.8.3")
(concat local-site-lisp "/jde-2.2.7beta6/lisp")
(concat local-site-lisp "/pcl-cvs")
(concat local-site-lisp "/speedbar-0.13a")
(concat local-site-lisp "/semantic-1.3.2")
(concat local-site-lisp "/vm-6.92")
(concat local-site-lisp "/w3-4.0pre.46/lisp"))
load-path))
(setq home-machine t))
(progn
(setq load-path (append (list "~/bin") load-path))))
;;; Add new directories to info tree.
(add-to-list 'Info-default-directory-list local-info)
(add-to-list 'Info-default-directory-list (concat local-site-lisp "/gnus-5.8.3/texi/"))
(add-to-list 'Info-default-directory-list (concat local-cygwin "/usr/info/"))
;(setq debug-on-error t)
(setq inhibit-startup-message t) ; No copyright message on startup.
(setq enable-recursive-minibuffers t) ; Recursive buffers ok.
(setq backup-by-copying-when-linked t) ; Preserve links in edited files.
(setq default-major-mode 'text-mode) ; Use text mode for server.
(setq truncate-partial-width-windows nil); Wrap in two up windows.
(setq scroll-step 1) ; Jump the window the minimum amount.
(setq next-line-add-newlines nil) ; Do not add newlines to end of buffer.
(setq scroll-preserve-screen-position t)
(put 'set-goal-column 'disabled nil) ; Allow set-goal-column.
(put 'downcase-region 'disabled nil) ; Allow downcase-region.
(put 'eval-expression 'disabled nil) ; Allow M-esc commands.
(put 'narrow-to-region 'disabled nil) ; Allow narrow to region.
;;; Set the compile command.
(setq compile-command '("daily-build"))
(setq compile-history '("daily-build" "time nice make -C q:/code/com/cimsoft -k
compile"))
(setq compilation-scroll-output t)
;;; Load etags first so the following redefine works.
(load "etags" t t)
(defun find-tag-tag (string)
"Replace the find-tag-tag in etags.el. This version will not try completing
a symbol in the minibuffer when space is typed. The change required is to
replace the function call completing-read with read-string below."
(let* ((default (funcall (or find-tag-default-function
(get major-mode 'find-tag-default-function)
'find-tag-default)))
(spec (read-string (if default
(format "%s(default %s) " string default)
string))))
(if (equal spec "")
(or default (error "There is no default tag"))
spec)))
;;; Set the default tags file name.
(custom-set-variables
'(tags-file-name "Q:/code/com/cimsoft" t)
'(sc-citation-leader "")
'(sc-preferred-attribution-list (quote ("sc-lastchoice" "x-attribution" "initials"
"firstname" "lastname")))
'(tags-add-tables nil)
'(sql-database "jackal")
'(jde-compile-option-sourcepath (quote ("Q:/code")))
'(sql-electric-stuff "go")
'(sql-password "notnull")
'(sc-blank-lines-after-headers 0)
'(jde-compile-option-directory "Q:/debug")
'(speedbar-frame-parameters (quote ((minibuffer) (width . 29) (border-width . 0)
(menu-bar-lines . 0) (unsplittable . t) (height . 37) (top . 487) (left . 785)) t))
'(tags-revert-without-query t)
'(diff-switches "-u" t)
'(sql-user "rwm_testsuite")
'(sc-preferred-header-style 7)
'(sql-server "oops")
'(sc-reference-tag-string ">> ")
'(remember-data-file "~/Notes"))
;;; Load common lisp extensions.
(require 'cl)
;;; Set NT specifics.
(if (nt-emacs)
(progn
;; Recognize right alt as the meta key!
(setq w32-recognize-altgr nil)
(setq w32-pass-rwindow-to-system nil)
(setq w32-rwindow-modifier 'meta)
(setq w32-apps-modifier 'meta)
;; Set the shell used in subprocesses.
(setq shell-file-name (concat local-cygwin "/bin/bash.exe"))
;; Set up mail.
(setq smtpmail-local-domain "cimsoft.com")
(setq smtpmail-default-smtp-server "mail")
(setq smtpmail-smtp-server smtpmail-default-smtp-server)
(setq send-mail-function 'smtpmail-send-it)
(load-library "smtpmail")
(setenv "MAILHOST" "mail")
;; Setup Printing
(setq printer-name "//oops/HPLaserJet")
(setq ps-printer-name "//oops/HPLaserJet")
(setq lpr-command "print.exe")
(setq ps-lpr-command "print.exe")
;; Code printing parameters.
(setq ps-landscape-mode t) ; Use landscape mode.
(setq ps-header-lines 1) ; Print a smaller header.
(setq ps-print-only-one-header t) ; Header spans two columns.
(setq ps-print-header-frame t) ; Disable gaudy header.
(setq ps-print-color-p nil) ; Disable color information.
(setq ps-left-margin 36
ps-right-margin 36
ps-inter-column 36
ps-bottom-margin 36
ps-top-margin 36
ps-header-offset 18)
;;(setq ps-line-number t) ; Number each line.
;; Enable gnuserv.
(if (require 'gnuserv "gnuserv" t)
(gnuserv-start))
;; Set the cvs program.
(setq cvs-program (concat local-cygwin "/bin/cvs.exe"))
;; Set my desired fonts.
;; list-faces-display list-colors-display x-list-fonts
(setq primary-nt-font "-*-6x13-normal-r-*-*-13-97-*-*-c-60-*-#33-")
(setq secondary-nt-font "-*-Lucida Console-normal-r-*-*-12-90-*-*-c-*-*-ansi-")
(if (boundp 'primary-nt-font)
(if (x-list-fonts primary-nt-font)
(progn
(set-default-font primary-nt-font)
(setq default-frame-alist
(list (cons 'font primary-nt-font))))
(progn
(set-default-font secondary-nt-font)
(setq default-frame-alist
(list (cons 'font secondary-nt-font))))))
;; Load generic initialization stuff.
(if (equal window-system 'win32)
(setq win32-quote-process-args t)
(setq w32-quote-process-args t))
(setq shell-command-switch "-c")
(add-hook 'comint-output-filter-functions 'shell-strip-ctrl-m nil t)
(add-hook 'shell-mode-hook
'(lambda ()
(setq comint-completion-addsuffix t)
(auto-show-mode 1))
t)
;; Set the size and location of the first frame.
(setq initial-frame-alist '((top . 0) (left . 980) (height . 86) (width . 100)))
;; Set defaults for subsequent frames.
(add-to-list 'default-frame-alist '(width . 100))
(add-to-list 'default-frame-alist '(height . 48))
(add-to-list 'default-frame-alist '(top . 503))
(add-to-list 'default-frame-alist '(left . 163))
))
;;; Make word speller available
(autoload 'spell-lookup-word-in-buffer "spell-dict")
;;; Make dictionary available.
(autoload 'dict "dict-web"
"Lookup a word or phrase in the Online Dictionary Database." t)
;;; Display time in the mode line.
(display-time)
;;; Uncompress Z files.
(autoload 'uncompress-while-visiting "uncompress")
(setq auto-mode-alist
(append '(("\\.gz$" . uncompress-while-visiting))
'(("\\.Z$" . uncompress-while-visiting))
auto-mode-alist))
;;; Save bookmarks every time they change.
(setq bookmark-save-flag 1)
;;; Load electric buffer menu package.
(if (load "ebuff-menu" t t)
(progn
(global-set-key "\C-x\C-b" 'electric-buffer-list)
(add-hook 'electric-buffer-menu-mode-hook
'(lambda ()
(local-set-key "\C-s" 'isearch-forward)))))
;;; Electric help, avoids mucking up the window layout with the *Help* buffer.
(if (load "ehelp" t t)
(progn
(fset 'help-command ehelp-map)
(define-key global-map "\C-h" 'ehelp-command)))
;;; Electric command history.
(if (load "echistory" t t)
(global-set-key "\C-x\e\e" 'electric-command-history))
;;; Load the find function package.
(find-function-setup-keys)
;;; Diff mode package.
(autoload 'diff-mode "diff-mode" "Diff major mode" t)
(add-to-list 'auto-mode-alist
'("\\.\\(diffs?\\|patch\\|rej\\)\\'" . diff-mode))
;;; Remember all the mail I send.
(setq mail-archive-file-name "~/Mail/record")
;;; Fontify urls.
(require 'goto-addr)
(add-hook 'rmail-show-message-hook 'goto-address)
;;; Use the "Name <user@address>" style in the From field.
(setq mail-from-style 'angles)
;;; Always include my signature file.
(setq mail-signature t)
;;; Set autofill mode when composing mail.
(add-hook 'mail-mode-hook 'turn-on-auto-fill)
;;; Set up mail abbreviations so people's names show up
(add-hook 'mail-setup-hook 'mail-abbrevs-setup)
;;; Translate the user's name as soon as I move out of the field.
(add-hook 'mail-setup-hook
'(lambda ()
(substitute-key-definition
'next-line 'mail-abbrev-next-line
mail-mode-map global-map)
(substitute-key-definition
'end-of-buffer 'mail-abbrev-end-of-buffer
mail-mode-map global-map)))
;;; VM mail reader
(autoload 'vm "vm" "Start VM on your primary inbox." t)
(autoload 'vm-other-frame "vm" "Like `vm' but starts in another frame." t)
(autoload 'vm-visit-folder "vm" "Start VM on an arbitrary folder." t)
(autoload 'vm-visit-virtual-folder "vm" "Visit a VM virtual folder." t)
(autoload 'vm-mode "vm" "Run VM major mode on a buffer" t)
(autoload 'vm-mail "vm" "Send a mail message using VM." t)
(autoload 'vm-submit-bug-report "vm" "Send a bug report about VM." t)
;;; GNUS support
(setq gnus-init-file "~/.gnus")
;;; Supercite
(autoload 'sc-cite-original "supercite" "Supercite 3.1" t)
(add-hook 'mail-citation-hook 'sc-cite-original)
(setq sc-nested-citation-p nil)
(setq sc-auto-fill-region-p nil)
(setq sc-cite-blank-lines-p t)
;;; Auto-resize minibuffer when necessary
(resize-minibuffer-mode)
;;; Turn on column numbering mode
(column-number-mode t)
;;; Display line numbers even for large files.
(setq line-number-display-limit 5000000)
;;; CVS support
(load "pcl-cvs-startup" t)
(setq cvs-inhibit-copyright-message t)
;;;(setq cvs-diff-flags '("-u" "-w" "-b"))
(setq vc-follow-symlinks nil) ; Never follow symlinks!
;;; C Mode stuff.
(setq auto-mode-alist
(append '(("\\.i$" . c++-mode))
'(("\\.l$" . c++-mode))
auto-mode-alist))
;;; Make underscore a normal letter.
(add-hook 'c-mode-common-hook
'(lambda ()
(setq c-tab-always-indent nil)
(modify-syntax-entry ?_ "w")
(c-set-style "gnu")
(c-set-offset 'substatement-open 0)
(setq c-hanging-comment-ender-p nil)
(setq c-basic-offset 4)
(auto-show-mode 1)))
(add-hook 'comint-mode-hook '(lambda () (auto-show-mode 1)))
;;; Auto insert mode.
(require 'autoinsert)
(setq auto-insert-alist
(append (list '("\\.hxx\\'" . make-new-header)
'("\\.cxx\\'" . make-header))
auto-insert-alist))
(auto-insert-mode 1)
;;; dbx mode hook
(defun set-dbx-extras ()
(gud-def gud-finish "step up" "\C-f" "Finish executing current function.")
(gud-def gud-tbreak "file \"%d%f\"\nstop at %l -temp"
"\C-t" "Set temporary breakpoint at current line."))
(add-hook 'dbx-mode-hook 'set-dbx-extras)
;;; Perl mode stuff.
(setq perl-tab-to-comment t)
(setq perl-indent-level 2)
(setq perl-continued-statement-offset 2)
(setq perl-continued-brace-offset -2)
(setq perl-brace-offset 0)
(setq perl-brace-imaginary-offset 0)
(setq perl-label-offset -2)
;;; Special buffers - start these in new frames.
(setq special-display-buffer-names
(if (nt-emacs)
'(
("*compilation*" (top . 0) (left . 52) (width . 151) (height . 35))
("*grep*" (top . 220) (left . 60) (width . 113) (height . 10))
("*info*" (top . 220) (left . 275) (height . 55))
("*mail*" (width . 80))
("*Shell Command Output*"))
'(("*compilation*" (top . 0) (left . 65) (width . 111) (height . 25))
("*grep*" (top . 320) (left . 60) (width . 111) (height . 10))
"*info*")))
;;; Remove *info* from same-window-buffer-names.
(setq same-window-buffer-names
(remove "*info*" same-window-buffer-names))
;;; Load the jde.
(require 'jde "jde" t)
(add-hook 'jde-mode-hook
'(lambda ()
(set-fill-column 90)
(senator-minor-mode 1)))
(defun jde-help-show-document (doc-file)
"Displays DOC-FILE in the default browser."
(if doc-file
(let ((file
(if (or (string-match "http:" doc-file)
(string-match "file:" doc-file))
doc-file
(format "file://%s" doc-file))))
(w3-fetch-other-frame file))))
;;; Load the alignment package.
(require 'align "align" t)
(add-to-list 'align-c++-modes 'jde-mode)
;;; Teach emacs about cygwin-style mount points.
(require 'cygwin32-mount "cygwin32-mount" t)
;;(cygwin32-mount-activate)
;;; Load the emacs web browser.
(require 'w3-auto)
;;; Start the proper windows app on the current file.
(defun execute-dired-find-file ()
"In dired, run the w32-shell-execute on this file."
(interactive)
;; dired-get-filename is defined in dired.el
(w32-shell-execute nil (dired-get-filename)))
(eval-after-load "dired"
'(define-key dired-mode-map "j" 'execute-dired-find-file))
;;; Language hooks
(add-hook 'java-mode-hook
'(lambda ()
(setq c-basic-offset 2)
(setq tab-width 8)))
(add-hook 'lisp-mode-hook
'(lambda ()
(modify-syntax-entry ?_ "w")
(modify-syntax-entry ?- "w")
(modify-syntax-entry ?* "w")
(modify-syntax-entry ?: "w")))
(add-hook 'text-mode-hook
'(lambda ()
(modify-syntax-entry ?_ "w")
(turn-on-auto-fill)))
(add-hook 'indented-text-mode-hook 'turn-on-auto-fill)
;;; Load SQL subprocess support.
(require 'sql)
(defun strip-ms-sql-prompt (string)
(if (string-match "\\([0-9]+> \\)+" string)
(replace-match "" nil nil string)
string))
(add-hook 'sql-interactive-mode-hook
'(lambda ()
(if (string= "^SQL> " sql-prompt-regexp)
(progn
(comint-simple-send (get-buffer "*SQL*") "set linesize 10000")
(comint-simple-send (get-buffer "*SQL*") "set pagesize 50")))
(setq truncate-lines t)
(auto-show-mode 1)))
(add-hook 'comint-preoutput-filter-functions 'strip-ms-sql-prompt)
;;; Super-funky highlight mode.
(if (load "ishl" t)
(ishl-mode 1))
;;; Man page reading.
(autoload 'woman "woman"
"Decode and browse a UN*X man page." t)
(autoload 'woman-find-file "woman"
"Find, decode and browse a specific UN*X man-page file." t)
;;; Move the ediff controll window off the main window.
(setq ediff-narrow-control-frame-leftward-shift 103)
(setq ediff-control-frame-upward-shift -500)
;;; Remember mode.
(autoload 'remember "remember" nil t)
(autoload 'remember-region "remember" nil t)
;;; Windowing specific settings.
(if (or (nt-emacs) (equal window-system 'x))
(progn
;; Highlight program text.
(global-font-lock-mode 1)
(setq font-lock-maximum-size 460000)
;; Add highlighting to makes enter/leave messages.
(font-lock-add-keywords
'compilation-mode
'(("\\(\\(Entering\\|Leaving\\) directory\\)"
1 font-lock-function-name-face t)
("\\(\\<failed\\>[ ]*-\\)"
1 font-lock-function-name-face t)) t)
;; Highlight active region.
(transient-mark-mode 1)
;; Highlight matching parens.
(load "paren" t t)
(show-paren-mode)
;; Highlight the word in isearch and query replace.
(setq search-highlight t)
(setq query-replace-highlight t)))
(autoload 'convert-comment "convert-comment")
(defun visit-cvs-file ()
(interactive)
(set-buffer "inbox")
(goto-char (point-min))
(re-search-forward "Modified Files:")
(forward-word 1)
(backward-word 1)
(let ((start (point)) file-name)
(forward-word 1)
(find-tag-other-frame (buffer-substring start (point)))))
;;; Load many useful functions and bind them to keys.
(let ((core-util-bind-keys t))
(load "core-utils" t))
;;; New Bindings
(global-set-key "\C-cm" 'vm)
(global-set-key [kp-multiply] (lambda () (interactive) (pop-to-buffer "foo.sql")))
(global-set-key [f1] 'remember)
(global-set-key [S-f1] 'remember-region)
(global-set-key [pause] 'copy-cvs-lines-to-msg)
;;; Register preloads
(set-register ?1 '(file . "d:/users/mecklen/.emacs"))
(set-register ?2 '(file .
"q:/code/com/cimsoft/lws/test/testsuite/TestSuiteConfig.xml"))
(set-register ?3 '(file . "q:/code/com/cimsoft/lws/sqlscripts/foo.sql"))
(set-register ?w "\\([^a-z0-9_]\\)")
(custom-set-faces)
=====end inserted .emacs file
