At 08:50 AM 8/16/00 -0600, you wrote:
>First, let me apologize in advance for sending this to the whole list,
>but I thought more "eyes" on this message might relieve Paul of some
>work...
>
>I'm a java newbie, but not an emacs/nt one. I can't seem to get
>several jde features to work:
>
>1. jde-javadoc-generate-javadoc-template generates an error:
>
>Signaling: (wrong-type-argument stringp nil)
> format(nil)
> apply(format nil nil)
> working-status(2)
> semantic-bovinate-nonterminals(((symbol 1 . 8) (symbol 9 . 12)
>(punctuation 12 . 13) (symbol 13 . 20) (punctuation 20 . 21) (symbol 21 .
>24) (punctuation 24 . 25) (symbol 25 . 38) (punctuation 38 . 39) (symbol 39
>. 43) (punctuation 43 . 44) (symbol 46 . 52) (symbol 53 . 57) (punctuation
>57 . 58) (symbol 58 . 62) (punctuation 62 . 63) (symbol 63 . 69)
>(punctuation 69 . 70) (symbol 71 . 77) (symbol 78 . 82) (punctuation 82 .
>83) (symbol 83 . 87) (punctuation 87 . 88) (symbol 88 . 99) (punctuation 99
>. 100) (symbol 101 . 107) (symbol 108 . 112) (punctuation 112 . 113) (symbol
>113 . 117) (punctuation 117 . 118) (symbol 118 . 135) (punctuation 135 .
>136) (symbol 138 . 144) (symbol 145 . 152) (punctuation 152 . 153) (symbol
>153 . 159) (punctuation 159 . 160) (symbol 160 . 175) (punctuation 175 .
>176) (symbol 176 . 191) (punctuation 191 . 192) (symbol 193 . 199) (symbol
>200 . 207) (punctuation 207 . 208) (symbol 208 . 214) (punctuation 214 .
>215) (symbol 215 . 230) (punctuation 230!
>!
>!
> . 231) (punctuation 231 . 232) (punctuation 232 . 233) ... . ((symbol 235 .
>241) (symbol 242 . 245) (punctuation 245 . 246) (symbol 246 . 253)
>(punctuation 253 . 254) (symbol 254 . 258) (punctuation 258 . 259)
>(punctuation 259 . 260) (punctuation 260 . 261) (symbol 262 . 268) (symbol
>269 . 272) (punctuation 272 . 273) (symbol 273 . 280) (punctuation 280 .
>281) (symbol 281 . 285) (punctuation 285 . 286) (symbol 286 . 295)
>(punctuation 295 . 296) (punctuation 296 . 297) (punctuation 297 . 298)
>(symbol 300 . 306) (symbol 307 . 310) (punctuation 310 . 311) (symbol 311 .
>318) (punctuation 318 . 319) (symbol 319 . 322) (punctuation 322 . 323)
>(symbol 323 . 336) (punctuation 336 . 337) (punctuation 337 . 338)
>(punctuation 338 . 339) (symbol 340 . 346) (symbol 347 . 350) (punctuation
>350 . 351) (symbol 351 . 358) (punctuation 358 . 359) (symbol 359 . 362)
>(punctuation 362 . 363) (symbol 363 . 375) (punctuation 375 . 376)
>(punctuation 376 . 377) (punctuation 377 . 378) (symbol 379 . 3!
>!
>!
>85) (symbol 386 . 389) (punctuation 389 . 390) (symbol 390 . 397)
>(punctuation 397 . 398) (symbol 398 . 401) (punctuation 401 . 402) (symbol
>402 . 409) ... . (... ... ... ... ... ... ... ... ...))) bovine-toplevel nil
>nil)
> semantic-bovinate-toplevel(nil nil t)
> jde-javadoc-lookup-bovine-table()
> jde-javadoc-generate-javadoc-template()
> call-interactively(jde-javadoc-generate-javadoc-template)
>
>
This is probably related to error 2.
>
>2. The Classes menu exists on the menubar, but when I click on it the
> menu item turns bold and no drop-down menu appears.
>
For all source files, or some particular file? Please try opening one of
the java.lang.* package source files and report whether you get an error.
It's possible there is something peculiar about the Java source file you
opened that is causing the parser to choke.
>
>3. Completion at point always says "No completion at point". For
> instance,
>
> class Foo {
> static int bar;
> public foo() {
> Foo.ba
> ^^^
> }
> }
>
> When trying to complete the symbol bar
>
Is Foo compiled and present on jde-global-classpath, which you have set to
d:/work/classes?
>
>4. When I use the speedbar I do not get the
> Package/Types/Dependencies decomposition described in the User
> Guide. The speedbar just shows methods in alphabetical order.
>
>
I suspect you did not delete the old instance of speedbar that comes with
Emacs as specified in the installation instructions.
- Paul
>
>I suspect I'm missing something fundamental about how to configure the
>system, but I can't figure out what. I've installed semantic-1.2.1
>and speedbar-0.12.
>
>Thanks for your patience...
>
>
>
>Emacs : GNU Emacs 20.7.1 (i386-*-nt5.0.2195)
> of Tue Jun 13 2000 on buffy
>Package: JDE version 2.2.2
>
>current state:
>==============
>(setq
> jde-gen-session-bean-template '("(jde-wiz-insert-imports-into-buffer (list
>\"javax.ejb.*\"\n\"java.rmi.RemoteException\"))"
>"(jde-wiz-update-implements-clause \"SessionBean\")" "'> \"public void
>ejbActivate() throws RemoteException {\"'>'n \"}\"'>'n\n'>'n" "'> \"public
>void ejbPassivate() throws RemoteException {\"'>'n \"}\"'>'n\n'>'n" "'>
>\"public void ejbRemove() throws RemoteException {\"'>'n \"}\"'>'n '>'n" "'>
>\"public void setSessionContext(SessionContext ctx) throws\nRemoteException
>{\"" "'>'n \"}\"'>'n '>'n" "'> \"public void unsetSessionContext() throws
>RemoteException {\"'>'n\n\"}\"'>'n '>'n'>")
> jde-gen-beep '("(end-of-line) '&"
> "\"Toolkit.getDefaultToolkit().beep();\"'>'n'>")
> jde-run-classic-mode-vm nil
> jde-javadoc-gen-nodeprecatedlist nil
> 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-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)
>'>'n" "\"import java.awt.Dimension;\" '>'n" "\"import java.awt.Graphics;\"
>'>'n" "\"import java.awt.Graphics2D;\" '>'n" "\"import java.awt.Color;\"
>'>'n" "\"import java.awt.geom.Ellipse2D;\" '>'n" "\"import
>java.awt.event.WindowAdapter;\" '>'n" "\"import
>java.awt.event.WindowEvent;\" '>'n" "\"import javax.swing.JFrame;\" '>'n"
>"\"import javax.swing.JPanel;\" '>'n" "\"import javax.swing.JScrollPane;\"
>'>'n" "\"import javax.swing.JMenuBar;\" '>'n" "\"import javax.swing.JMenu;\"
>'>'n" "\"import java.awt.event.ActionEvent;\" '>'n" "\"import
>javax.swing.AbstractAction;\" '>'n '>'n" "\"/**\" '>'n" "\" * \""
>"(file-name-nondirectory buffer-file-name) '>'n" "\" *\" '>'n" "\" *\" '>'n"
>"\" * Created: \" (current-time-string) '>'n" "\" *\" '>'n" "\" * @author <a
>href=\\\"mailto: \\\"\" (user-full-name) \"</a>\"'>'n" "\" * @version\"
>'>'n" "\" */\" '>'n" "'>'n" "\"public class \"" "(file-name-sans-extension
>(file-!
>!
>!
>name-nondirectory buffer-file-name))" "\" extends JFrame\"" "(if jde-gen-k&r
>" "()" "'>'n)" "\"{\"'>'n" "\"class Canvas extends JPanel\"" "(if
>jde-gen-k&r " "()" "'>'n)" "\"{\"'>'n" "\"public Canvas () \"" "(if
>jde-gen-k&r " "()" "'>'n)" "\"{\"'>'n" "\"setSize(getPreferredSize());\"
>'>'n" "\"Canvas.this.setBackground(Color.white);\" '>'n" "\"}\"'>'n '>'n"
>"\"public Dimension getPreferredSize() \"" "(if jde-gen-k&r " "()" "'>'n)"
>"\"{\"'>'n" "\"return new Dimension(600, 600);\" '>'n" "\"}\"'>'n '>'n"
>"\"public void paintComponent(Graphics g) \"" "(if jde-gen-k&r " "()"
>"'>'n)" "\"{\"'>'n" "\"super.paintComponent(g);\" '>'n" "\"Graphics2D g2d =
>(Graphics2D) g;\" '>'n" "\"Ellipse2D circle = new Ellipse2D.Double(0d, 0d,
>100d, 100d);\" '>'n" "\"g2d.setColor(Color.red);\" '>'n"
>"\"g2d.translate(10, 10);\" '>'n" "\"g2d.draw(circle);\" '>'n"
>"\"g2d.fill(circle);\" '>'n" "\"}\"'>'n " "\"}\"'>'n '>'n" "\"public \""
>"(file-name-sans-extension (file-name-nondirectory buffer-file-name))" "!
>!
>!
>\"()\"" "(if jde-gen-k&r " "()" "'>'n)" "\"{\"'>'n" "\"super(\\\"\" (P
>\"Enter app title: \") \"\\\");\" '>'n" "\"setSize(300, 300);\" '>'n"
>"\"addWindowListener(new WindowAdapter() \"" "(if jde-gen-k&r " "()" "'>'n)"
>"\"{\"'>'n" "\"public void windowClosing(WindowEvent e) {System.exit(0);}\"
>'>'n" "\"public void windowOpened(WindowEvent e) {}\" '>'n" "\"});\"'>'n"
>"\"setJMenuBar(createMenu());\" '>'n" "\"getContentPane().add(new
>JScrollPane(new Canvas()));\" '>'n" "\"}\"'>'n" "'>'n" "\"public static void
>main(String[] args) \"" "(if jde-gen-k&r " "()" "'>'n)" "\"{\"'>'n" "'>'n"
>"(file-name-sans-extension (file-name-nondirectory buffer-file-name))" "\" f
>= new \"" "(file-name-sans-extension (file-name-nondirectory
>buffer-file-name))" "\"();\" '>'n" "\"f.show();\" '>'n" "\"}\"'>'n '>'n"
>"\"protected JMenuBar createMenu() \"" "(if jde-gen-k&r " "()" "'>'n)"
>"\"{\"'>'n" "\"JMenuBar mb = new JMenuBar();\" '>'n" "\"JMenu menu = new
>JMenu(\\\"File\\\");\" '>'n" "\"menu.add(new Abstr!
>!
>!
>actAction(\\\"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-out)
> ("[? ? ?]" . jde-bug-continue)
> ("[? ? ?]" . jde-bug-set-breakpoint))
> jde-compile-finish-hook '(#[(buf msg)
> "\301!\205 [speedbar-frame
>frame-live-p frame-visible-p
> speedbar-refresh]
> 2]
> #[(buf msg) "\300 \207"
> [jde-complete-flush-classinfo-cache] 1]
> )
> jde-compile-option-nowarn nil
> jde-setnu-mode-threshold 20000
> jde-run-java-vm-w "javaw"
> jde-compile-option-encoding nil
> jde-run-option-java-profile '(nil . "./java.prof")
> bsh-startup-timeout 10
> jde-bug-jpda-directory ""
> jde-read-compile-args nil
> jde-run-java-vm "java"
> jde-db-option-verbose '(nil nil nil)
> jde-db-read-app-args nil
> jde-javadoc-gen-nodeprecated nil
> jde-run-option-heap-profile '(nil "./java.hprof" 5 20 "Allocation objects")
> jde-gen-println '("(end-of-line) '&"
> "\"System.out.println(\" (P \"Print out: \") \");\" '>'n'>")
> jde-enable-abbrev-mode t
> bsh-vm-args nil
> 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 '("d:/work/classes")
> jde-gen-window-listener-template '("(end-of-line) '& (P \"Window name: \")"
> "\".addWindowListener(new WindowAdapter() \"" "(if
>jde-gen-k&r "
>"()" "'>'n)" "\"{\"'>'n" "'> \"public void windowActivated(WindowEvent e)
>\"" "(if jde-gen-k&r " "()" "'>'n)" "\"{\"'>'n" "\"}\"" "'>'n \"public void
>windowClosed(WindowEvent e)\"" "(if jde-gen-k&r " "()" "'>'n)" "\"{\"'>'n"
>"'>'n \"}\"" "'>'n \"public void windowClosing(WindowEvent e) \"" "(if
>jde-gen-k&r " "()" "'>'n)" "\"{\"'>'n" "'>'n \"System.exit(0);\" '>'n \"}\""
>"'>'n \"public void windowDeactivated(WindowEvent e) \"" "(if jde-gen-k&r "
>"()" "'>'n)" "\"{\"'>'n" "'>'n \"}\"" "'>'n \"public void
>windowDeiconified(WindowEvent e) \"" "(if jde-gen-k&r " "()" "'>'n)"
>"\"{\"'>'n" "'>'n \"}\"" "'>'n \"public void windowIconified(WindowEvent e)
>\"" "(if jde-gen-k&r " "()" "'>'n)" "\"{\"'>'n" "'>'n \"}\"" "'>'n \"public
>void windowOpened(WindowEvent e) \"" "(if jde-gen-k&r " "()" "'>'n)"
>"\"{\"'>'n" "'>'n \"}\"" "'>'n \"});\" '>'n'>")
> jde-run-working-directory ""
> jde-gen-property-change-support '("(end-of-line) '&"
> "\"protected PropertyChangeSupport pcs = new
>PropertyChangeSupport(this);\" '>'n '>'n" "\"/**\" '>'n" "\"* Adds a
>PropertyChangeListener to the listener list.\" '>'n" "\"* The listener is
>registered for all properties.\" '>'n" "\"*\" '>'n" "\"* @param listener The
>PropertyChangeListener to be added\" '>'n" "\"*/\" '>'n" "\"public void
>addPropertyChangeListener(PropertyChangeListener listener) \"" "(if
>jde-gen-k&r " "()" "'>'n)" "\"{\"'>'n"
>"\"pcs.addPropertyChangeListener(listener);\" '>'n \"}\" '>'n '>'n" "\"/**\"
>'>'n" "\"* Removes a PropertyChangeListener from the listener list.\" '>'n"
>"\"* This removes a PropertyChangeListener that was registered for all
>properties.\" '>'n" "\"*\" '>'n " "\"* @param listener The
>PropertyChangeListener to be removed\" '>'n" "\"*/\" '>'n" "\"public void
>removePropertyChangeListener(PropertyChangeListener listener) \"" "(if
>jde-gen-k&r " "()" "'>'n)" "\"{\"'>'n"
>"'>\"pcs.removePropertyChangeListener(listener);\" '>'n \"}\" '>'n '>'n"!
>!
>!
> "\"/**\" '>'n\"* Adds a PropertyChangeListener for a specific property.\"
>'>'n" "\"* The listener will be invoked only when a call on
>firePropertyChange\" '>'n" "\"* names that specific property.\" '>'n" "\"*\"
>'>'n \"* @param propertyName The name of the property to listen on\" '>'n"
>"\"* @param listener The PropertyChangeListener to be added\" '>'n \"*/\"
>'>'n" "\"public void addPropertyChangeListener(String propertyName,\" '>'n"
>"\"PropertyChangeListener listener) \"" "(if jde-gen-k&r " "()" "'>'n)"
>"\"{\"'>'n" "'> \"pcs.addPropertyChangeListener(propertyName, listener);\"
>'>'n \"}\" '>'n '>'n" "\"/**\" '>'n\"* Removes a PropertyChangeListener for
>a specific property.\" '>'n" "\"*\" '>'n \"* @param propertyName The name of
>the property that was listened on\" '>'n" "\"* @param listener The
>PropertyChangeListener to be removed\" '>'n \"*/\" '>'n" "\"public void
>removePropertyChangeListener(String propertyName,\" '>'n"
>"\"PropertyChangeListener listener) \"" "(if jde-gen-k&r !
>!
>!
>" "()" "'>'n)" "\"{\"'>'n" "'>
>\"pcs.removePropertyChangeListener(propertyName, listener);\" '>'n \"}\"
>'>'n '>'n" "\"/**\" '>'n\"* Reports a bound property update to any
>registered listeners. \" '>'n" "\"* No event is fired if old and new are
>equal and non-null.\" '>'n" "\"*\" '>'n \"* @param propertyName The
>programmatic name of the property that was changed\" '>'n" "\"* @param
>oldValue The old value of the property\" '>'n" "\"* @param newValue The new
>value of the property.\" '>'n \"*/\" '>'n" "\"public void
>firePropertyChange(String propertyName, Object oldValue, Object newValue)
>\"" "(if jde-gen-k&r " "()" "'>'n)" "\"{\"'>'n" "'>
>\"pcs.firePropertyChange(propertyName, oldValue, newValue);\" '>'n \"}\"
>'>'n '>'n" "\"/**\" '>'n\"* Reports a bound property update to any
>registered listeners. \" '>'n" "\"* No event is fired if old and new are
>equal and non-null.\" '>'n" "\"* This is merely a convenience wrapper around
>the more general\" '>'n" "\"* firePropertyChange method th!
>!
>!
>at takes Object values.\" '>'n" "\"* No event is fired if old and new are
>equal and non-null.\" '>'n" "\"*\" '>'n \"* @param propertyName The
>programmatic name of the property that was changed\" '>'n" "\"* @param
>oldValue The old value of the property\" '>'n" "\"* @param newValue The new
>value of the property.\" '>'n \"*/\" '>'n" "\"public void
>firePropertyChange(String propertyName, int oldValue, int newValue) \"" "(if
>jde-gen-k&r " "()" "'>'n)" "\"{\"'>'n" "'>
>\"pcs.firePropertyChange(propertyName, oldValue, newValue);\" '>'n \"}\"
>'>'n '>'n" "\"/**\" '>'n\"* Reports a bound property update to any
>registered listeners. \" '>'n" "\"* No event is fired if old and new are
>equal and non-null.\" '>'n" "\"* This is merely a convenience wrapper around
>the more general\" '>'n" "\"* firePropertyChange method that takes Object
>values.\" '>'n" "\"* No event is fired if old and new are equal and
>non-null.\" '>'n" "\"*\" '>'n \"* @param propertyName The programmatic name
>of the property !
>!
>!
>that was changed\" '>'n" "\"* @param oldValue The old value of the
>property\" '>'n" "\"* @param newValue The new value of the property.\" '>'n
>\"*/\" '>'n" "\"public void firePropertyChange(String propertyName, boolean
>oldValue, boolean newValue) \"" "(if jde-gen-k&r " "()" "'>'n)" "\"{\"'>'n"
>"'> \"pcs.firePropertyChange(propertyName, oldValue, newValue);\" '>'n \"}\"
>'>'n '>'n" "\"/**\" '>'n\"* Fires an existing PropertyChangeEvent to any
>registered listeners.\" '>'n" "\"* No event is fired if the given event's
>old and new values are equal and non-null. \" '>'n" "\"*\" '>'n \"* @param
>evt The PropertyChangeEvent object.\" '>'n\"*/\" '>'n" "\"public void
>firePropertyChange(PropertyChangeEvent evt) \"" "(if jde-gen-k&r " "()"
>"'>'n)" "\"{\"'>'n" "'> \"pcs.firePropertyChange(evt);\" '>'n \"}\" '>'n
>'>'n" "\"/**\" '>'n\"* Checks if there are any listeners for a specific
>property.\" '>'n" "\"*\" '>'n \"* @param evt The PropertyChangeEvent
>object.\" '>'n" "\"* @return <code>true</!
>!
>!
>code>if there are one or more listeners for the given property\" '>'n"
>"\"*/\" '>'n" "\"public boolean hasListeners(String propertyName) \"" "(if
>jde-gen-k&r " "()" "'>'n)" "\"{\"'>'n" "'> \"return
>pcs.hasListeners(propertyName);\" '>'n \"}\" '>'n '>'n'>")
> jde-javadoc-describe-interface-template '("* Describe interface "
> (jde-javadoc-code name) " here.")
> jde-javadoc-see-tag-template '("* @see " ref)
> jde-imenu-include-signature t
> jde-db-marker-regexp "^Breakpoint hit: .*(\\([^$]*\\).*:\\([0-9]*\\))"
> jde-gen-mouse-motion-listener-template '("(end-of-line) '& (P \"Component
>name: \")" "\".addMouseMotionListener(new MouseMotionAdapter() \"" "(if
>jde-gen-k&r " "()" "'>'n)" "\"{\"'>" "'>'n \"public void
>mouseDragged(MouseEvent e) \"" "(if jde-gen-k&r " "()" "'>'n)" "\"{\"'>'n"
>"\"}\"'>" "'>'n \"public void mouseMoved(MouseEvent e) \"" "(if jde-gen-k&r
>" "()" "'>'n)" "\"{\"'>'n" "\"}\"'>" "'>'n \"});\"'>'n'>")
> jde-key-bindings '(("[? ? ?]" . jde-run-menu-run-applet)
> ("[? ? ?]" . jde-build)
> ("[? ? ?]" . jde-compile)
> ("[? ? ?]" . jde-debug)
> ("[? ? ?]" . jde-wiz-implement-interface)
> ("[? ? ?j]" . jde-javadoc-generate-javadoc-template)
> ("[? ? ?]" . bsh)
> ("[? ? ?\f]" . jde-gen-println)
> ("[? ? ?]" . jde-browse-jdk-doc)
> ("[? ? ?]" . jde-save-project)
> ("[? ? ?]" . jde-wiz-update-class-list)
> ("[? ? ?]" . jde-run)
> ("[? ? ?]" . speedbar-frame-mode)
> ("[? ? ?]" . jde-db-menu-debug-applet)
> ("[? ? ?]" . jde-help-symbol)
> ("[? ? ?]" . jde-show-class-source)
> ("[? ? ?]" . jde-wiz-find-and-import)
> ("[(control c) (control v) (control ?.)]" .
> jde-complete-at-point-menu)
> ("[(control c) (control v) ?.]" . jde-complete-at-point))
> jde-gen-cflow-for-i '("(if (jde-parse-comment-or-quoted-p)" "'(l \"fori\")"
> "'(l '> \"for (int \" (p \"variable: \" var) \" = 0; \"" "(s
>var)"
>"\" < \"(p \"upper bound: \" ub)\"; \" (s var) \"++) \"" "(if jde-gen-k&r "
>"()" "'>'n)" "\"{\"'>'n'>'r'n" "\"} // end of for (int \" (s var) \" = 0;
>\"" "(s var) \" < \" (s ub) \"; \" (s var) \"++)\"'>'n'>)" ")")
> jde-run-option-classpath nil
> jde-javadoc-gen-detail-switch '("-protected")
> jde-javadoc-param-tag-template '("* @param " name " " (jde-javadoc-a type)
> " " (jde-javadoc-code type) " value")
> jde-compile-option-verbose-path nil
> jde-db-debugger '("Other" "jdb" . "Executable")
> jde-jdk-doc-url "http://www.javasoft.com/products/jdk/1.1/docs/index.html"
> jde-compiler "javac"
> jde-javadoc-gen-verbose nil
> jde-javadoc-describe-method-template '("* Describe " (jde-javadoc-code name)
> " method here.")
> jde-gen-class-buffer-template '("(funcall jde-gen-boilerplate-function) '>'n"
> "\"/**\" '>'n" "\" * \""
> "(file-name-nondirectory buffer-file-name) '>'n" "\"
>*\" '>'n" "\" *\"
>'>'n" "\" * Created: \" (current-time-string) '>'n" "\" *\" '>'n" "\" *
>@author <a href=\\\"mailto: \\\"\" (user-full-name) \"</a>\"'>'n" "\" *
>@version\" '>'n" "\" */\" '>'n'" "'>'n" "\"public class \""
>"(file-name-sans-extension (file-name-nondirectory buffer-file-name))" "\"
>\" (jde-gen-get-super-class)" "(if jde-gen-k&r " "()" "'>'n)" "\"{\"'>'n"
>"\"public \"" "(file-name-sans-extension (file-name-nondirectory
>buffer-file-name))" "\" ()\"" "(if jde-gen-k&r " "()" "'>'n)" "\"{\"'>'n"
>"'>'p'n" "\"}\">" "'>'n" "\"}\">" "\"// \"" "(file-name-sans-extension
>(file-name-nondirectory buffer-file-name))" "'>'n")
> jde-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-javadoc-gen-doc-title ""
> jde-javadoc-gen-header ""
> jde-run-option-vm-args nil
> jde-javadoc-gen-window-title ""
> jde-compile-option-directory "d:/work/classes"
> jde-gen-console-buffer-template '("(funcall jde-gen-boilerplate-function)
>'>'n" "\"/**\" '>'n" "\" * \"" "(file-name-nondirectory buffer-file-name)
>'>'n" "\" *\" '>'n" "\" *\" '>'n" "\" * Created: \" (current-time-string)
>'>'n" "\" *\" '>'n" "\" * @author <a href=\\\"mailto: \\\"\"
>(user-full-name) \"</a>\"'>'n" "\" * @version\" '>'n" "\" */\" '>'n" "'>'n"
>"\"public class \"" "(file-name-sans-extension (file-name-nondirectory
>buffer-file-name))" "(if jde-gen-k&r " "()" "'>'n)" "\"{\"'>'n" "\"public
>\"" "(file-name-sans-extension (file-name-nondirectory buffer-file-name))"
>"\" ()\"" "(if jde-gen-k&r " "()" "'>'n)" "\"{\"'>'n" "'>'n" "\"}\"'>'n"
>"'>'n" "\"public static void main(String[] args)\"" "(if jde-gen-k&r " "()"
>"'>'n)" "\"{\"'>'n" "'>'p'n" "\"}\"'>'n" "\"} // \"'>"
>"(file-name-sans-extension (file-name-nondirectory buffer-file-name))" "'>'n")
> jde-read-make-args nil
> jde-javadoc-gen-noindex nil
> jde-gen-mouse-listener-template '("(end-of-line) '& (P \"Component name: \")"
> "\".addMouseListener(new MouseAdapter() \""
> "(if jde-gen-k&r " "()" "'>'n)" "\"{\"'> "
> "'>'n \"public void mouseClicked(MouseEvent e) \" "
>"(if jde-gen-k&r
>" "()" "'>'n)" "\"{\"'>'n" "\"}\" '>" "'>'n \"public void
>mouseEntered(MouseEvent e) \"" "(if jde-gen-k&r " "()" "'>'n)" "\"{\"'>'n"
>"\"}\" '>" "'>'n \"public void mouseExited(MouseEvent e) \"" "(if
>jde-gen-k&r " "()" "'>'n)" "\"{\"'>'n" "\"}\"'>" "'>'n \"public void
>mousePressed(MouseEvent e) \"" "(if jde-gen-k&r " "()" "'>'n)" "\"{\"'>'n"
>"\"}\" '>" "'>'n \"public void mouseReleased(MouseEvent e) \"" "(if
>jde-gen-k&r " "()" "'>'n)" "\"{\"'>'n" "\"}\"'>" "'>'n \"});\"'>'n'>")
> jde-run-option-application-args nil
> jde-bug-vm-executable '("javaw")
> jde-db-set-initial-breakpoint t
> jde-bug-debugger-command-timeout 10
> jde-db-option-stack-size '((128 . "kilobytes") (400 . "kilobytes"))
> jde-db-option-properties nil
> jde-db-source-directories '("d:/work/code/")
> jde-run-read-app-args nil
> jde-gen-to-string-method-template '("(end-of-line) '&"
> "\"public String toString() \""
> "(if jde-gen-k&r " "()" "'>'n)"
> "\"{\"'>'n" "\"}\"'>'n'>")
> jde-quote-classpath t
> jde-bug-window-message nil
> jde-build-use-make nil
> jde-javadoc-author-tag-template '("* @author <a href=\"mailto:"
> user-mail-address "\">" user-full-name
> "</a>")
> jde-javadoc-describe-field-template '("* Describe "
> (jde-javadoc-field-type modifiers) " "
> (jde-javadoc-code name) " here.")
> jde-javadoc-gen-link-URL nil
> jde-compile-option-classpath nil
> jde-bug-jdk-directory "e:/jdk1.3/"
> jde-gen-boilerplate-function 'jde-gen-create-buffer-boilerplate
> jde-gen-entity-bean-template '("(jde-wiz-insert-imports-into-buffer (list
>\"javax.ejb.*\"\n\"java.rmi.RemoteException\"))" "'> \"public void
>ejbActivate() throws RemoteException \"" "(if jde-gen-k&r " "()" "'>'n)"
>"\"{\"'>'n" "\"}\"'>'n '>'n" "'> \"public void ejbPassivate() throws
>RemoteException \"" "(if jde-gen-k&r " "()" "'>'n)" "\"{\"'>'n" "\"}\"'>'n
>'>'n" "'> \"public void ejbLoad() throws RemoteException \"" "(if
>jde-gen-k&r " "()" "'>'n)" "\"{\"'>'n" "\"}\"'>'n '>'n" "'> \"public void
>ejbStore() throws RemoteException \"" "(if jde-gen-k&r " "()" "'>'n)"
>"\"{\"'>'n" "\"}\"'>'n '>'n" "'> \"public void ejbRemove() throws
>RemoteException \"" "(if jde-gen-k&r " "()" "'>'n)" "\"{\"'>'n" "\"}\"'>'n
>'>'n" "'> \"public void setEntityContext(EntityContext ctx) throws
>RemoteException \"" "(if jde-gen-k&r " "()" "'>'n)" "\"{\"'>'n" "\"}\"'>'n
>'>'n" "'> \"public void unsetEntityContext() throws RemoteException \"" "(if
>jde-gen-k&r " "()" "'>'n)" "\"{\"'>'n" "\"}\"'>'n '>'n'>")
> jde-javadoc-version-tag-template '("* @version 1.0")
> 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-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-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) \" \""
> "(P \"Variable name: \" name) \";\" '>'n '>'n"
> "\"/**\" '>'n"
> "\"* Get the value of \" (s name) \".\" '>'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 \" (s name) \";\"
>'>'n \"}\"" "'>'n '>'n" "\"/**\" '>'n" "\"* Set the value of \" (s name)
>\".\" '>'n" "\"* @param v Value to assign to \" (s name) \".\" '>'n"
>"\"*/\" '>'n" "\"public void set\" (jde-gen-init-cap (jde-gen-lookup-named
>'name))" "\"(\" (s type) \" v) \" " "(if jde-gen-k&r " "()" "'>'n)" "\"{\"
>'>'n" "'>'n \"this.\" (s name) \" = v;\" '>'n \"}\" '>'n'>")
> jde-bug-saved-breakpoints nil
> jde-compile-option-sourcepath nil
> jde-gen-cflow-if '("(if (jde-parse-comment-or-quoted-p)" "'(l \"if\")"
> "'(l '> \"if (\" (p \"if-clause: \" clause) \") \""
> "(if jde-gen-k&r " "()" "'>'n)" "\"{\"'>'n'>'r'n"
> "\"} // end of if (\" (s clause) \")\"'>'n'>)" ")")
> jde-db-option-java-profile '(nil . "./java.prof")
> jde-javadoc-gen-author t
> jde-compile-option-depend-switch '("-Xdepend")
> jde-setnu-mode-enable nil
> jde-run-applet-doc ""
> jde-compile-option-vm-args nil
> jde-javadoc-gen-overview ""
> jde-javadoc-gen-notree nil
> jde-run-option-garbage-collection '(t t)
> jde-db-mode-hook nil
> jde-db-option-heap-profile '(nil "./java.hprof" 5 20 "Allocation objects")
> bsh-eval-timeout 20
> jde-db-read-vm-args nil
> jde-bug-debug nil
> jde-javadoc-end-block-template nil
> jde-javadoc-gen-packages nil
> jde-gen-cflow-if-else '("(if (jde-parse-comment-or-quoted-p)" "'(l \"ife\")"
> "'(l '> \"if (\" (p \"if-clause: \" clause) \") \""
> "(if jde-gen-k&r " "()" "'>'n)" "\"{\"'>'n'>'r'n"
> "\"} // end of if (\" (s clause) \")\"'> n"
> "'> \"else \"" "(if jde-gen-k&r " "()" "'>'n)"
> "\"{\"'>'n'>'r'n"
> "\"} // end of if (\" (s clause) \")else\"'>'n'>)"
> ")")
> jde-gen-cflow-while '("(if (jde-parse-comment-or-quoted-p)" "'(l \"while\")"
> "'(l '> \"while (\" (p \"while-clause: \" clause) \") \"" "(if
>jde-gen-k&r " "()" "'>'n)" "\"{\"'>'n'>'r'n" "\"} // end of while (\" (s
>clause) \")\"'>'n'>)" ")")
> jde-bug-server-socket '(t . "2112")
> jde-appletviewer-option-encoding ""
> jde-bug-breakpoint-cursor-colors '("cyan" . "brown")
> jde-compile-option-target '("1.1")
> jde-run-executable ""
> jde-run-option-heap-size '((1 . "megabytes") (16 . "megabytes"))
> jde-gen-cflow-switch '("(if (jde-parse-comment-or-quoted-p)"
> "'(l \"switch\")"
> "'(l '> \"switch (\" (p \"switch-condition: \" clause) \") \""
>"(if
>jde-gen-k&r " "()" "'>'n)" "\"{\"'>'n'" "\"case \" (p \"first value: \")
>\":\"'>'n'>'p'n" "\"break;\"'>'n'>'p'n" "\"default:\"'>'n'>'p'n"
>"\"break;\"'>'n" "\"} // end of switch (\" (s clause) \")\"'>'n'>)" ")")
> jde-db-option-vm-args nil
> jde-run-application-class ""
> jde-javadoc-gen-doclet ""
> jde-run-option-verbose '(nil nil nil)
> jde-project-file-name "prj.el"
> jde-wiz-import-excluded-packages '("bsh.*")
> jde-compile-option-debug '("selected" (t nil nil))
> jde-bug-jre-home ""
> jde-run-applet-viewer ""
> jde-entering-java-buffer-hooks '(jde-reload-project-file)
> jde-javadoc-return-tag-template '("* @return " (jde-javadoc-a type) " "
> (jde-javadoc-code type) " value")
> jde-javadoc-gen-version t
> jde-javadoc-gen-helpfile ""
> jde-run-read-vm-args nil
> jde-help-docsets nil
> jde-javadoc-since-tag-template '("* @since 1.0")
> 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-run-option-verify '(nil t)
> jde-compile-option-optimize nil
> jde-gen-cflow-case '("(if (jde-parse-comment-or-quoted-p)" "'(l \"case\")"
> "'(l 'n \"case \" (p \"value: \") \":\"'>'n'>'p'n"
> "\"break;\"'>'n'>'p)" ")")
> jde-compile-option-depend nil
> jde-javadoc-describe-class-template '("* Describe class "
> (jde-javadoc-code name) " here.")
> jde-javadoc-gen-serialwarn nil
> jde-gen-action-listener-template '("'& (P \"Component name: \")"
> "\".addActionListener(new ActionListener() \""
>"(if jde-gen-k&r "
>"()" "'>'n)" "\"{\"'>'n" "\"public void actionPerformed(ActionEvent e) \""
>"(if jde-gen-k&r " "()" "'>'n)" "\"{\"'>'n" "\"}\"'>'n \"});\"'>'n'>")
> jde-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
>
>Loading dired-aux...
>Loading dired-aux...done
>Reading directory d:/usr/site-lisp/...
>Reading directory d:/usr/site-lisp/...done
>Mark set
>Expunging deleted messages...
>Expunging deleted messages...done
>Computing summary lines...
>Computing summary lines...done
>Saving file d:/users/mecklen/Mail/inbox...
>Wrote d:/users/mecklen/Mail/inbox
>Fontifying inbox-summary...
>Fontifying inbox-summary... (regexps......)
>Wrote d:/users/mecklen/Mail/inbox
>No following nondeleted message
>Expunging deleted messages...
>Expunging deleted messages...done
>Computing summary lines...
>Computing summary lines...done
>Saving file d:/users/mecklen/Mail/inbox...
>Wrote d:/users/mecklen/Mail/inbox
>Fontifying inbox-summary...
>Fontifying inbox-summary... (regexps......)
>Wrote d:/users/mecklen/Mail/inbox
>Getting mail from post office ...
>
>Counting new messages...
>Counting new messages...done (2)
>Saving file d:/users/mecklen/Mail/inbox...
>Wrote d:/users/mecklen/Mail/inbox
>Computing summary lines...
>Computing summary lines...done
>2 new messages read
>Fontifying inbox-summary...
>Fontifying inbox-summary... (regexps......)
>2 new messages read
><<< Press Return to bury the buffer list >>>
>
>Preparing problem report...
>Loading mailalias...
>Loading mailalias...done
>Loading view...
>Loading view...done
>Loading mailabbrev...
>Loading mailabbrev...done
>Parsing d:/users/mecklen/.mailrc...
>Parsing d:/users/mecklen/.mailrc... done
>Formatting bug report buffer...
>Formatting bug report
>buffer......................................................................
>.......
>Mark set
>
>
>
>End Insert *Messages* buffer
>
>
>Process environment:
>
>DICTIONARY=d:/usr/local/bin/english.hash
>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=C:\DOCUME~1\mecklen\LOCALS~1\Temp
>windir=C:\WINNT
>USERPROFILE=C:\Documents and Settings\mecklen
>USERNAME=mecklen
>USERDOMAIN=OOPS
>TMP=C:\DOCUME~1\mecklen\LOCALS~1\Temp
>TEMP=C:\DOCUME~1\mecklen\LOCALS~1\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\emacs-20.7\bin;d:\usr\bin;d:\usr\cygwin\bin;C:\WINNT\system32;C:
>\WINNT;C:\WINNT\System32\Wbem;D:\Program Files\MSSQL7\BINN;d:\Program
>Files\JBuilder35\jdk1.2.2\bin
>Os2LibPath=C:\WINNT\system32\os2\dll;
>OS=Windows_NT
>NUMBER_OF_PROCESSORS=1
>LOGONSERVER=\\OOPS
>HOMEPATH=\users\mecklen
>HOMEDRIVE=d:
>HOME=d:\users\mecklen
>emacs_dir=D:/usr/emacs-20.7
>CVSROOT=:pserver:mecklen@wolf:/usr2/Genome-Repository
>COMSPEC=C:\WINNT\system32\cmd.exe
>COMPUTERNAME=OOPS
>CommonProgramFiles=C:\Program Files\Common Files
>CLASSPATH=d:\work\classes;d:\Program
>Files\JBuilder35\lib;d:\usr\site-lisp\jde-2.2.2\java\lib\bsh.jar;d:\usr\site
>-lisp\jde-2.2.2\java\lib\jde.jar
>APPDATA=C:\Documents and Settings\mecklen\Application Data
>ALLUSERSPROFILE=C:\Documents and Settings\All Users.WINNT
>
>
>The contents of the .emacs file was
>
>
>;;;
>;;; General setup commands.
>;;;
>
>;;; My name.
>(defvar *author* "Robert Mecklenburg")
>(setq user-full-name *author*)
>
>
>;;; Mail address.
>(setq user-mail-address "[EMAIL PROTECTED]") ; Used by ange-ftp.
>
>
>;; 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 "d:/usr/site-lisp"
> "d:/usr/site-lisp/elib"
> "d:/usr/site-lisp/gnus-5.8.3"
> "d:/usr/site-lisp/jde-2.2.2/lisp"
> "d:/usr/site-lisp/pcl-cvs"
> "d:/usr/site-lisp/semantic-1.2.1"
> "d:/usr/site-lisp/speedbar-0.12") load-path))
> (setq home-machine t))
> (progn
> (setq load-path
> (cons "~/bin"
> (cons "/u2/trunk/cm/emacs/ilisp"
> (cons "/u2/trunk/cm/emacs" load-path))))
> (setq home-machine (equal (getenv "DISPLAY") ":0.0"))))
>
>
>;(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 '("time nice make -k" . 10))
>(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.
>(setq tags-file-name "d:/work/code/com/cimsoft")
>(custom-set-variables
> '(tags-add-tables nil)
> '(speedbar-frame-parameters (quote ((minibuffer)
> (width . 20)
> (border-width . 0)
> (menu-bar-lines . 0)
> (unsplittable . t)
> (height . 37)
> (top . 487)
> (left . 640)) t))
> '(tags-revert-without-query t)
> '(diff-switches "-u" t)
> '(jde-enable-abbrev-mode t)
> '(jde-gen-k&r nil)
> '(jde-global-classpath (quote "/d/work/classes")))
>
>
>;;; Copyright gunk.
>(defvar *copyright* "Cimarron Software, Inc., all rights reserved.")
>
>
>;;; Load group-init.
>(require 'cl)
>
>
>;;; Add new directories to info tree.
>(setq Info-default-directory-list
> (append
> '("d:/usr/info/"
> "d:/usr/site-lisp/gnus-5.8.3/texi/"
> "d:/usr/cygwin/usr/info/")
> Info-default-directory-list))
>
>
>;;; 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 netscape browser location.
> ;;(setq browse-url-netscape-program
> ;; "d:/progra~1/Netscape/Communicator/Program/netscape")
> ;; (setq browse-url-browser-function 'browse-url-netscape)
>
> ;; Set the shell used in subprocesses.
> (setq shell-file-name "D:/usr/cygwin/bin/bash.exe")
>
> ;; Set up mail.
> (setq smtpmail-default-smtp-server "mail")
> (setq smtpmail-smtp-server smtpmail-default-smtp-server)
> (setenv "MAILHOST" "mail")
> (setq rmail-primary-inbox-list '("po:mecklen")
> rmail-pop-password-required t)
> ;;; rmail-pop-password "")
>
> ;; Set dictionary location.
> (setq ispell-dictionary "d:/usr/local/bin/english.hash")
> (setenv "DICTIONARY" "d:/usr/local/bin/english.hash")
>
> ;; Enable gnuserv.
> ;;(require 'gnuserv)
> ;;(gnuserv-start)
>
> ;; Set the cvs program.
> (setq cvs-program "d:/usr/bin/cvs.exe")
>
> ;; Indicate P: is a unix system.
> ;; (add-untranslated-filesystem "P:")
> ;; (add-untranslated-filesystem "/mecklen@eris:")
> ;; (add-untranslated-filesystem "/[^/:]+:")
>
> ;; Set the lisp directory root.
> ;;(setq franz-root "D:/Program Files/franz/allegro501")
>
> ;; 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-")
>
> ;; Load generic initialization stuff.
> (load "nt-init")
>
> ;; Set the size and location of the first frame.
> (setq initial-frame-alist '((top . 0) (left . 701) (height . 79)))
>
> ;; Set defaults for subsequent frames.
> (setq default-frame-alist (append '((width . 80)
> (top . 430)
> (left . 120))
> default-frame-alist))
>
> ;; Load Franz emacs lisp interface.
> ;; (load "franz-init")
>
> ;; Set the lisp image name according to which tree I'm using.
> ;; (setq fi:common-lisp-image-name "D:/progra~1/acl50/lisp.exe")
> ;; (setq fi:common-lisp-image-file
> ;; (substitute-in-file-name "$WORK_BIN/bin/cdrs.dxl"))
> ))
>
>
>;;; Make word speller available
>(autoload 'spell-lookup-word-in-buffer "spell-dict")
>
>
>;;; 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))
>
>
>;;; 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))
>
>
>;;; RMAIL support
>;;;
>;;; All my folders are in the subdirectory Mail.
>(setq rmail-secondary-file-directory "~/Mail")
>
>;;; My primary folder is Mail/inbox.
>(setq rmail-file-name "~/Mail/inbox")
>
>;;; Use a two window display with a summary window and a message window.
>(setq rmail-display-summary t)
>(setq rmail-redisplay-summary t)
>
>;;; The summary window size is 15 lines.
>(setq rmail-summary-window-size 15)
>
>;;; When I refile a message to a new folder automatically delete from
>;;; this folder.
>(setq rmail-delete-after-output t)
>
>;;; Remember all the mail I send.
>(setq mail-archive-file-name "~/Mail/record")
>
>;;; When composing new mail pop up a new frame.
>(if home-machine (setq rmail-mail-new-frame t))
>
>;;; 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)
>
>;;; When quoting use a simple angle bracket.
>(setq mail-yank-prefix "> ")
>
>;;; Always include my signature file.
>(setq mail-signature t)
>
>;;; Set autofill mode when composing mail.
>(add-hook 'mail-mode-hook 'turn-on-auto-fill)
>
>;;; Handle mime mail
>(if (not (nt-emacs))
> (progn
> (add-hook 'rmail-show-message-hook 'rmime-format)
> (add-hook 'rmail-edit-mode-hook 'rmime-cancel)
> (autoload 'rmime-format "rmime" "" nil)))
>
>;;; An auto-routing pattern. The first element is a regular
>;;; expression to search for and the second is the folder to route to.
>(setq rmail-output-file-alist
> '(("cygwin-help" . "gnu-win32")
> ("ntemacs-users" . "emacs")
> ("kasten" . "personal")))
>
>;;; 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)))
>
>
>;;; 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)
>(setq sc-preferred-header-style 1)
>
>
>;;; 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 500000)
>
>
>;;; Speedbar customization.
>(custom-set-variables
> '(speedbar-frame-parameters (quote ((minibuffer)
> (width . 20)
> (border-width . 0)
> (menu-bar-lines . 0)
> (unsplittable . t)
> (height . 37)
> (top . 487)
> (left . 640)) t)))
>
>
>;;; CVS support
>(load "pcl-cvs-startup")
>(setq cvs-inhibit-copyright-message t)
>;;;(setq cvs-diff-flags '("-u" "-w" "-b"))
>(setq vc-follow-symlinks nil) ; Never follow symlinks!
>(custom-set-variables '(diff-switches "-u" t))
>
>
>;;; 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")))
>(load "c++-style")
>(load "find-other-file")
>(setq c-basic-offset 4)
>
>;;; Load header comment code.
>(autoload 'make-header "header" "Mode dependent header generator" t)
>(autoload 'make-function-header "header" "Mode dependent header generator" t)
>(autoload 'make-new-class "header" "Create a class layout" t)
>
>
>;;; 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 . 65) (width . 115) (height . 35))
> ("*grep*" (top . 220) (left . 60) (width . 113) (height . 10))
> ("*info*" (top . 220) (left . 275) (height . 55)))
> '(("*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)
>
>
>;;; Language hooks
>
>;;; Set tab stops to 4 for java!
>(add-hook 'java-mode-hook
> '(lambda ()
> (setq c-basic-offset 4)
> (setq tab-width 4)))
>
>(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)
>
>
>;;; 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 1000000)
>
> ;; Add highlighting to makes enter/leave messages.
> (font-lock-add-keywords
> 'compilation-mode
> '(("\\(\\(Entering\\|Leaving\\) directory\\)"
> 1 font-lock-function-name-face 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)))
>
>
>;;; Do a tags search in another window using word under point as default.
>(defun tags-search-word ()
> "Do a tags-search (in the other window) on the word under the cursor."
> (interactive)
> (let ((word (find-tag-tag "Word: ")))
> (switch-to-buffer-other-window (window-buffer))
> (tags-search word)))
>
>
>;;; Find the tag under point and display in another frame.
>(defun find-tag-other-existing-frame ()
> (interactive)
> (save-window-excursion
> (let ((word (find-tag-default)))
> (other-frame 1)
> (find-tag word)
> (other-frame -1))))
>
>
>;;; Revert the current buffer without asking first.
>(defun fast-revert-buffer ()
>"Revert the buffer from the original file without asking."
> (interactive)
> (revert-buffer t t))
>
>
>;;; Display a frame on phldev2.
>(defun on-phldev2 ()
> "Duplicate the current window on phldev4."
> (interactive)
> (make-frame-on-display "phldev2:0.0"))
>
>
>;;; Toggle truncation of lines.
>(defun toggle-truncate-lines ()
> "Toggle line truncation in the current window."
> (interactive)
> (set-variable 'truncate-lines (not truncate-lines))
> (recenter))
>
>
>;;; Delete all lines containing a regular expr in the buffer.
>(defun kill-all-string (pat)
> "Delete every line containing a pattern."
> (interactive)
> (save-excursion
> (goto-char (point-min))
> (while (and (not (eobp))
> (re-search-forward pat nil t))
> (delete-region (save-excursion (goto-char (match-beginning 0))
> (beginning-of-line)
> (point))
> (progn (forward-line 1) (point))))))
>
>
>;;; Delete noise lines from Solaris make logs.
>(defun sun-clean-up-make ()
> "Find the noise compiler warnings and delete all occurrences."
> (interactive)
> (kill-all-string "_vdebugProc hides.*scope.")
> (kill-all-string "vobjectList::Delete hides.*)\.")
> (kill-all-string "vimage::_InitSpecific hides.*)\.")
> (kill-all-string "DictWithInitializers hides.*)\.")
> (kill-all-string "vnotebookTab::.*)\.")
> (kill-all-string "bytes have been tenured")
> (kill-all-string "Warning(s) detected.")
> (kill-all-string "operator new(unsigned, void.*line\"\.")
> (kill-all-string "CC -migration.*anachronisms\.")
> (kill-all-string "Could not find source.*)\.")
> (kill-all-string "hw_instance_obj.*file level\.")
> (kill-all-string "Label find_rule.*used\.")
> (kill-all-string "overriding commands.*'")
> (kill-all-string "ignoring old.*'")
> (kill-all-string "String literal.*vkind::vkind.*\.")
> (kill-all-string "String
>literal.*LiShader\\(SetArg\\|Create\\|GetArg\\).*\.")
> (kill-all-string "above warning.*"))
>
>(defun ia64-clean-up-make ()
> "Find the noise compiler warnings and delete all occurrences."
> (interactive)
> (strip-control-ms)
> (kill-all-string "destructor for.*\\(_ATTLC\\|usl_\\).*virtual")
> (kill-all-string "invalid token.*")
> (kill-all-string "Unexpected token at start-of.*")
> ;; (kill-all-string "render/util/lw.*is constant")
> (kill-all-string "from \"\\(unsigned \\)?\\(int\\|long\\)\" to
>\"\\(unsigned \\)?char\".*bits")
> (kill-all-string "from \"\\(\\(un\\)?signed
>\\)?\\(int\\|long\\|float\\|short\\)\" to
>\"\\(uint8\\|uint16\\|char\\|int16_t\\|png_byte\\|png_uint_16\\|short\\|byte
>\\|word\\|ushort\\|tt_byte\\|tt_bool\\|tt_short\\|jsample\\|jcoef\\|joctet\\
>|boolean\\|gifpixeltype\\|gifbytetype\\|fserror\\|histcell\\|u_char\\|uch=\\
>|ush=\\|tidataval_t\\|tiffrgbvalue\\|int16=\\|hcode_t\\|u_short\\|tsample_t\
>\|handle=\\).*bits")
> (kill-all-string "from \"double\" to \".*bits")
> ;; (kill-all-string "includes/_Mat.h(\\(1262\\|1278\\)).*used")
> ;; (kill-all-string "include/_Mat.h(\\(1275\\|1291\\)).*used")
> (kill-all-string "incl/usl_String.h(\\(296\\|304\\|382\\|384\\)).*bits")
> (kill-all-string "implicitly-signed bit.*length 1")
> (kill-all-string "rpcndr.h(.*\\(identifier\\|length 1\\)")
> (kill-all-string "winsmcrd.h(.*type)")
> (kill-all-string "oaidl.h(.*identifier")
> (kill-all-string "LNK4221.*ible")
> (kill-all-string "LNK4044.*ignored")
> (kill-all-string "overriding commands.*'")
> (kill-all-string "ignoring old.*'"))
>
>(defun i486-clean-up-make ()
> "Find the noise compiler warnings and delete all occurrences."
> (interactive)
> (strip-control-ms)
> (kill-all-string "does not exist!")
> (kill-all-string "LNK4044.*ignored")
> (kill-all-string "LNK4088.*run")
> (kill-all-string "\\(prodevelop\\|internal_tk\\).lib.*LNK4006.*ignored")
> (kill-all-string "overriding commands.*'")
> (kill-all-string "ignoring old.*'")
> (kill-all-string "not found with.*no debug info")
> (kill-all-string "find_rule.*unreferenced label")
> (kill-all-string "above warning.*"))
>
>
>;;; Invoke compilation minor mode on a log buffer.
>(defun process-make-log ()
>"Clean up noise messages from the current buffer and switch to compilation
>minor mode."
> (interactive)
> (let ((machine (getenv "MACHINE")))
> (if (equal machine "sol")
> (sun-clean-up-make))
> (if (equal machine "ia64_nt")
> (ia64-clean-up-make))
> (if (equal machine "i486_nt")
> (i486-clean-up-make)))
> (compilation-minor-mode)
> (font-lock-fontify-buffer)
> (set-buffer-modified-p nil))
>
>
>;;; Special version of new frame which switches to huge font when
>;;; given a prefix argument.
>(defun big-frame (arg)
> (interactive "p")
> (if (eq arg 1)
> (make-frame)
> (make-frame '((font . "10x20")))))
>
>
>;;; Make a mail window.
>(defvar *rmail-window-frame* nil)
>(defun rmail-window ()
> (interactive)
> (if *rmail-window-frame*
> (progn
> (select-frame *rmail-window-frame*)
> (if (eq (frame-visible-p *rmail-window-frame*) 'icon)
> (iconify-or-deiconify-frame)))
> (progn
> (setq *rmail-window-frame* (new-frame '((name . "Mail")
> (height . 60)
> (left . 150)
> (top . 97))))
> (select-frame *rmail-window-frame*)
> (rmail)))
> (select-frame *rmail-window-frame*)
> (rmail-get-new-mail))
>
>
>;; Force function arguments into 80 columns.
>(defun fit-args-in-80-cols ()
>"Make the following function argument list fit in 80 columns.
>Afterwards the argument list is either all on one line, or each
>argument is on a line by itself. The function searches forward for
>the first open paren and assumes this is a function argument list."
> (interactive)
> (search-forward "(" nil t) ; Find the arg list
> (beginning-of-line)
> (let ((start (point)))
> (search-forward "(" nil t) ; Find the arg list
> (delete-horizontal-space)
> (forward-char -1)
> (forward-sexp 1)
> (narrow-to-region start (point))
> (goto-char (point-min))
> (while (re-search-forward "\n" nil t)
> (delete-char -1))
> (goto-char (point-min))
> (while (re-search-forward "\\s-" nil t)
> (just-one-space))
> (end-of-line 1)
> (if (>= (current-column) 80)
> (progn
> (goto-char (point-min))
> (while (search-forward "," nil t)
> (newline-and-indent))))
> (widen)))
>
>
>;; Split a quoted string across two lines using plus.
>(defun split-java-string ()
> (interactive)
> (insert "\" + \"")
> (forward-char -1)
> (newline-and-indent))
>
>
>;; Add one space inside paren
>(defun add-spaces-inside-parens ()
> (interactive)
> (search-forward "(")
> ;; Don't add spaces to empty parens.
> (if (looking-at "[^)]")
> (progn
> (just-one-space)
> (forward-char -2)
> (forward-sexp 1)
> (forward-char -1)
> (just-one-space)
> (forward-char 1)
> (forward-sexp -1)
> (forward-char 2))))
>
>
>;; Delete spaces inside parens.
>(defun delete-spaces-inside-parens ()
> (interactive)
> (search-forward "(") ; Find the paren
> (backward-char 1) ; Backup to parens
> (forward-sexp 1) ; Jump to end
> (backward-char 1) ; Backup to "inside" parens
> (delete-horizontal-space) ; Delete the space
> (forward-char 1) ; Jump to end again
> (forward-sexp -1) ; Jump to beginning
> (forward-char 1) ; Move inside parens
> (delete-horizontal-space)) ; Delete space
>
>
>;; Reset the window width to 80 columns.
>(defun fix-window-width ()
> (interactive)
> (set-frame-width (selected-frame) 80))
>
>
>;; ???
>(if (nt-emacs)
> (defadvice call-process (after ediff-exec-no-crs activate)
> (cond ((boundp 'buffer)
> (set-buffer buffer)
> (strip-control-ms)))))
>
>
>;; Insert curly braces around the current line.
>(defun insert-curlys ()
> "Insert curly braces before and after the current line."
> (interactive)
> (beginning-of-line)
> (open-line 1)
> (insert "{")
> (beginning-of-line)
> (c-indent-command)
> (forward-line 2)
> (open-line 1)
> (insert "}")
> (beginning-of-line)
> (c-indent-command))
>
>
>;; Return true if the current line is a // comment.
>(defun line-is-slash-comment ()
> "Return t if the current line is a // comment."
> (save-excursion
> (beginning-of-line)
> (looking-at "[ ]*//")))
>
>
>;; Find the start of a // comment.
>(defun find-comment-start ()
> "If the current line is a // comment, search backwards for the
>beginning of the comment. If the current line is not a // comment,
>search forward for the next // comment. Leave point a the beginning
>of the comment line."
> (if (line-is-slash-comment)
> (progn
> (forward-line -1)
> (while (line-is-slash-comment)
> (forward-line -1))
> (forward-line 1)
> (beginning-of-line)
> (point))
> (progn
> (forward-line 1)
> (while (not (line-is-slash-comment))
> (forward-line 1)))
> (beginning-of-line)
> (point)))
>
>
>;; Find the end of a comment.
>(defun find-comment-end ()
> "Return the character position of the line following the current comment."
> (save-excursion
> (while (line-is-slash-comment)
> (forward-line 1))
> (beginning-of-line)
> (point)))
>
>
>;; Convert // comments to /* */ comments.
>(defun convert-comment ()
> "Convert // style c++ comments into /* */ comments."
> (interactive)
> (let ((start (find-comment-start))
> (end (find-comment-end)))
> (insert "/*\n")
> (while (search-forward "//" end t)
> (replace-match " *" nil t))
> (forward-line 1)
> (beginning-of-line)
> (insert "*/\n")
> (c-indent-region start (point))))
>
>
>;;; Enable auto-save mode for the current buffer and save frequently.
>(defun auto-track ()
> (interactive)
> (auto-save-mode 1)
> (make-variable-buffer-local 'auto-save-interval)
> (setq auto-save-interval 10)
> (make-variable-buffer-local 'auto-save-timeout)
> (setq auto-save-timeout 3)
> (message buffer-auto-save-file-name))
>
>
>;;; Execute this explicitly when displaying emacs on nt from a remote
>;;; system to force the font to be 6x13.
>(defun force-nice-font ()
> (interactive)
> (set-default-font "heb6x13")
> (setq default-frame-alist
> (append '((font . "heb6x13")) default-frame-alist)))
>
>
>;;; Execute the last keyboard macro at the mouse location.
>(defun call-macro-at-mouse (event)
> "Invoke the current keyboard macro at the current mouse position."
> (interactive "e")
> (mouse-set-point event)
> (call-last-kbd-macro))
>
>
>;;; New Bindings
>(global-set-key "\C-c%" 'query-replace-regexp)
>(global-set-key "\C-cL" 'what-line)
>(global-set-key "\C-c`" 'clean-up-make)
>(global-set-key "\C-ca" 'find-other-source-file)
>(global-set-key "\C-cb" 'browse-url-at-point)
>(global-set-key "\C-ce" 'compile)
>(global-set-key "\C-cf" 'fix-window-width)
>(global-set-key "\C-cg" 'global-set-key)
>(global-set-key "\C-ci" 'process-make-log)
>(global-set-key "\C-ck" 'kill-compilation)
>(global-set-key "\C-cl" 'goto-line)
>(global-set-key "\C-cm" 'rmail-window)
>(global-set-key "\C-co" 'occur)
>(global-set-key "\C-cr" 'fast-revert-buffer)
>(global-set-key "\C-cs" 'select-tags-table)
>(global-set-key "\C-ct" 'toggle-truncate-lines)
>(global-set-key "\C-cw" 'compare-windows)
>(global-set-key "\C-x52" 'big-frame)
>(global-set-key [f1] 'speedbar-get-focus)
>(global-set-key [f3] 'make-function-header)
>(global-set-key [f4] 'next-error)
>(global-set-key [f5] 'tags-loop-continue)
>(global-set-key [f6] 'call-last-kbd-macro)
>(global-set-key [f7] 'insert-curlys)
>(global-set-key [f8] 'fit-args-in-80-cols)
>(global-set-key [f9] 'tags-search-word)
>(global-set-key [f11] 'split-java-string)
>(global-set-key [f12] 'add-spaces-inside-parens)
>(global-set-key [M-up] (lambda () (interactive) (scroll-down 1)))
>(global-set-key [M-down] (lambda () (interactive) (scroll-up 1)))
>(global-set-key [M-down-mouse-1] 'call-macro-at-mouse)
>
>
>;;; Set build function keys for Sun workstations.
>(if (equal (getenv "MACHINE") "sol")
> (global-set-key [f21] 'sun-clean-up-make))
>
>
>;;; Set build function keys for NT workstations.
>(if (or (equal (getenv "MACHINE") "ia64_nt"))
> (global-set-key [pause] 'ia64-clean-up-make))
>
>(if (or (equal (getenv "MACHINE") "i486_nt"))
> (global-set-key [pause] 'i486-clean-up-make))
>
>
>;;; Register preloads
>(set-register ?m "export PRO_PR_VERBOSE=1 PRO_PR_TIMING=1 OMIT_SUMMARY=1
>OMIT_LEAKS=1 CHECK_ALL=0")
>(set-register ?w "\\([^a-z0-9_]\\)")
>(custom-set-faces)
>
>
>
>=====end inserted .emacs file
