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)
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.
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
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 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 \302!\205 \303 \207"
[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/emacs-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
