Hi,
There is a bug (and a fix) for the case where the JDE fails to save a
customization in a project file that overrides a customizaiton in the
.emacs file. See the mailing list archive for details.
- Paul
At 10:48 AM 4/5/01 -0600, Robert Mecklenburg <[EMAIL PROTECTED]> wrote:
>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/emac
>s-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:\j
>dk1.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:\Weblog
>ic\license;R:\Weblogic\classes;R:\Weblogic\lib\weblogicaux.jar;R:\mssqldrive
>r\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\cl
>asses\jconn2.jar;R:\xerces-1_2_0\xerces.jar;d:\usr\Oracle\Ora81\jdbc\lib\cla
>sses12.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
