I have set the JDK for my current project to "1.1".
Compiler is set to Compiler Server.
When I attempt to compile (C-c C-v C-c) I get the following
message in the mini-buffer:
"Cannot find JDK's tools jar file. See jde-get-jdk-dir."
I don't believe that JDK 1.1 has a tools.jar...and yes, I
must use JDK 1.1...
Any ideas?
Thanks in advance,
greg_fenton.
Emacs : GNU Emacs 20.7.1 (i386-*-nt5.0.2195)
of Tue Jun 13 2000 on buffy
Package: JDE version 2.2.9beta8
current state:
==============
(setq
jde-gen-session-bean-template
'("(jde-import-insert-imports-into-buffer "
" (list \"javax.ejb.*\""
" \"java.rmi.RemoteException\"))" "'>"
"(jde-wiz-update-implements-clause \"SessionBean\")"
"'>"
"(jde-gen-method-signature" " \"public\"" " \"void\"" "
\"ejbActivate\"" " nil" " \"RemoteException\"" " )" "'>" "(if
jde-gen-k&r " " ()" " 'n)" "\"{\"'>'n" "\"}\"'>'n 'n"
"(jde-gen-method-signature" " \"public\"" " \"void\"" "
\"ejbPassivate\"" " nil" " \"RemoteException\"" " )" "'>" "(if
jde-gen-k&r " " ()" " 'n)" "\"{\"'>'n" "\"}\"'>'n 'n"
"(jde-gen-method-signature" " \"public\"" " \"void\"" "
\"ejbRemove\"" " nil" " \"RemoteException\"" " )" "'>" "(if
jde-gen-k&r " " ()" " 'n)" "\"{\"'>'n" "\"}\"'>'n 'n"
"(jde-gen-method-signature" " \"public\"" " \"void\"" "
\"setSessionContext\"" " \"SessionContext ctx\"" "
\"RemoteException\"" " )" "'>" "(if jde-gen-k&r " " ()" " 'n)"
"\"{\"'>'n" "\"}\"'>'n 'n" "(jde-gen-method-signature" " \"public\"" "
\"void\"" " \"unsetSessionContext\"" " nil" " \"RemoteException\""
" )" "'>" "(if jde-gen-k&r " " ()" " 'n)" "\"{\"'>'n" "\"}\"'>'n 'n"
"'>")
jde-gen-beep '("(end-of-line) '&"
"\"Toolkit.getDefaultToolkit().beep();\"'>'n'>")
jde-complete-signature-display '("Eldoc")
jde-project-name "default"
jde-which-method-format '("[" jde-which-method-current "]")
jde-run-classic-mode-vm nil
jde-complete-unique-method-names nil
jde-which-method-max-length 20
jde-javadoc-gen-nodeprecatedlist nil
jde-package-search-classpath-variables '(jde-compile-option-classpath
jde-global-classpath)
jde-imenu-include-classdef t
jde-javadoc-gen-link-online nil
jde-gen-code-templates '(("Get Set Pair" . jde-gen-get-set)
("toString method" . jde-gen-to-string-method)
("Action Listener" . jde-gen-action-listener)
("Window Listener" . jde-gen-window-listener)
("Mouse Listener" . jde-gen-mouse-listener)
("Mouse Motion Listener" .
jde-gen-mouse-motion-listener)
("Inner Class" . jde-gen-inner-class)
("println" . jde-gen-println) ("beep" . jde-gen-beep)
("property change support" .
jde-gen-property-change-support)
("EJB Entity Bean" . jde-gen-entity-bean)
("EJB Session Bean" . jde-gen-session-bean))
jde-gen-cflow-else '("(if (jde-parse-comment-or-quoted-p)" " '(l
\"else\")"
" '(l '> \"else\"" " (if jde-gen-k&r "
" jde-gen-conditional-padding-3 " " '>'n)"
" \"{\"'>'n'>'r'n" " \"}\"" " (if jde-gen-comments "
" '(l \" // end of else\"))" " '>'n'>)" " )")
jde-make-args ""
jde-jdk-registry '(("1.1" . "d:\\jdk\\1.1.8") ("1.2" .
"d:\\jdk\\1.2.2")
("1.3" . "d:\\jdk\\1.3"))
jde-javadoc-gen-destination-directory "JavaDoc"
jde-mode-line-format '("-" mode-line-mule-info mode-line-modified
mode-line-frame-identification
mode-line-buffer-identification " "
global-mode-string " %[(" mode-name mode-line-process
minor-mode-alist "%n" ")%]--"
(line-number-mode "L%l--") (column-number-mode "C%c--")
(-3 . "%p")
(jde-which-method-mode
("--" jde-which-method-format "--"))
"-%-")
jde-mode-abbreviations '(("ab" . "abstract") ("bo" . "boolean")
("br" . "break") ("by" . "byte") ("byv" . "byvalue")
("cas" . "cast") ("ca" . "catch") ("ch" . "char")
("cl" . "class") ("co" . "const")
("con" . "continue") ("de" . "default")
("dou" . "double") ("el" . "else") ("ex" . "extends")
("fa" . "false") ("fi" . "final") ("fin" . "finally")
("fl" . "float") ("fo" . "for") ("fu" . "future")
("ge" . "generic") ("go" . "goto")
("impl" . "implements") ("impo" . "import")
("ins" . "instanceof") ("in" . "int")
("inte" . "interface") ("lo" . "long")
("na" . "native") ("ne" . "new") ("nu" . "null")
("pa" . "package") ("pri" . "private")
("pro" . "protected") ("pu" . "public")
("re" . "return") ("sh" . "short") ("st" . "static")
("su" . "super") ("sw" . "switch")
("sy" . "synchronized") ("th" . "this")
("thr" . "throw") ("throw" . "throws")
("tra" . "transient") ("tr" . "true") ("vo" . "void")
("vol" . "volatile") ("wh" . "while"))
jde-imenu-enable t
jde-compile-option-verbose nil
jde-check-version-flag t
jde-db-option-heap-size '((1 . "megabytes") (16 . "megabytes"))
jde-bug-debugger-host-address "GFENTON-W2K"
jde-complete-add-space-after-method nil
jde-make-working-directory ""
jde-db-requested-breakpoint-face-colors '("black" . "yellow")
jde-wiz-show-report t
jde-javadoc-gen-use nil
jde-gen-buffer-boilerplate nil
jde-ant-enable-find nil
jde-bug-raise-frame-p t
jde-db-option-application-args nil
jde-javadoc-gen-nonavbar nil
jde-javadoc-gen-nohelp nil
jde-gen-jfc-app-buffer-template '("(funcall
jde-gen-boilerplate-function)"
"(jde-gen-get-package-statement)"
"\"import java.awt.Dimension;\" '>'n"
"\"import java.awt.Graphics;\" '>'n"
"\"import java.awt.Graphics2D;\" '>'n"
"\"import java.awt.Color;\" '>'n"
"\"import java.awt.geom.Ellipse2D;\" '>'n"
"\"import java.awt.event.WindowAdapter;\" '>'n"
"\"import
java.awt.event.WindowEvent;\" '>'n" "\"import javax.swing.JFrame;\"
'>'n" "\"import javax.swing.JPanel;\" '>'n" "\"import
javax.swing.JScrollPane;\" '>'n" "\"import javax.swing.JMenuBar;\"
'>'n" "\"import javax.swing.JMenu;\" '>'n" "\"import
java.awt.event.ActionEvent;\" '>'n" "\"import
javax.swing.AbstractAction;\" '>'n '>'n" "\"/**\" '>'n" "\" * \""
"(file-name-nondirectory buffer-file-name) '>'n" "\" *\" '>'n" "\" *\"
'>'n" "\" * Created: \" (current-time-string) '>'n" "\" *\" '>'n" "\" *
@author <a href=\\\"mailto:\"; (eval user-mail-address) \"\\\">\"
(user-full-name) \"</a>\"'>'n" "\" * @version\" '>'n" "\" */\" '>'n"
"'>'n" "\"public class \"" "(file-name-sans-extension
(file-name-nondirectory buffer-file-name))" "\" extends JFrame\"" "(if
jde-gen-k&r " "()" "'>'n)" "\"{\"'>'n" "\"class Canvas extends
JPanel\"" "(if jde-gen-k&r " "()" "'>'n)" "\"{\"'>'n"
"(jde-gen-method-signature" " \"public\"" " \"\"" " \"Canvas\"" "
\"\"" " )" "'>" "(if jde-gen-k&r " " ()" " 'n)" "\"{\"'>'n"
"\"setSize(getPreferredSize());\" '>'n"
"\"Canvas.this.setBackground(Color.white);\" '>'n" "\"}\"'>'n '>'n"
"(jde-gen-method-signature" " \"public\"" " \"Dimension\"" "
\"getPreferredSize\"" " \"\"" " )" "'>" "(if jde-gen-k&r " " ()" "
'n)" "\"{\"'>'n" "\"return new Dimension(600, 600);\" '>'n" "\"}\"'>'n
'>'n" "(jde-gen-method-signature" " \"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" "(jde-gen-method-signature" " \"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"
"(jde-gen-method-signature" " \"public static\"" " \"void\"" "
\"main\"" " \"String[] args\"" " )" "(if jde-gen-k&r " "()" "'>'n)"
"\"{\"'>'n" "'>'n" "(file-name-sans-extension (file-name-nondirectory
buffer-file-name))" "\" f = new \"" "(file-name-sans-extension
(file-name-nondirectory buffer-file-name))" "\"();\" '>'n"
"\"f.show();\" '>'n" "\"}\"'>'n '>'n" "\"protected JMenuBar
createMenu() \"" "(if jde-gen-k&r " "()" "'>'n)" "\"{\"'>'n"
"\"JMenuBar mb = new JMenuBar();\" '>'n" "\"JMenu menu = new
JMenu(\\\"File\\\");\" '>'n" "\"menu.add(new
AbstractAction(\\\"Exit\\\") \"" "(if jde-gen-k&r " "()" "'>'n)"
"\"{\"'>'n" "(jde-gen-method-signature" " \"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-log-max 500
jde-bug-key-bindings '(("[? ? ?]" . jde-bug-step-over)
("[? ? ?]" . jde-bug-step-into)
("[? ? ?]" . jde-bug-step-into-all)
("[? ? ?]" . jde-bug-step-out)
("[? ? ?]" . jde-bug-continue)
("[? ? ?]" . jde-bug-toggle-breakpoint))
jde-compile-finish-hook '(jde-compile-finish-refresh-speedbar
jde-compile-finish-flush-completion-cache)
jde-compile-option-nowarn nil
jde-setnu-mode-threshold 20000
jde-db-option-host ""
jde-wiz-get-set-variable-prefix "arg"
jde-ant-user-jar-files nil
jde-ant-complete-target t
jde-package-default-package-comment "// Default package used"
jde-package-load-hook nil
jde-compile-option-encoding ""
jde-db-option-attach nil
jde-run-option-java-profile '(nil . "./java.prof")
bsh-startup-timeout 10
jde-bug-jpda-directory ""
jde-read-compile-args nil
jde-wiz-set-javadoc-template '("/**" "* Sets the value of %n" "*"
"* @param %p Value to assign to this.%n" "*/")
jde-db-option-verbose '(nil nil nil)
jde-which-method-class-min-length 4
jde-db-read-app-args nil
jde-ant-args "-emacs"
jde-javadoc-gen-nodeprecated nil
jde-run-option-heap-profile '(nil "./java.hprof" 5 20 "Allocation
objects")
jde-gen-cflow-else-if '("(if (jde-parse-comment-or-quoted-p)" " '(l
\"eif\")"
" '(l '> \"else if\" jde-gen-conditional-padding-1 "
" \"(\" jde-gen-conditional-padding-2 (p \"else-if-clause: \"
clause) " " jde-gen-conditional-padding-2 \")\"" " (if
jde-gen-k&r " " jde-gen-conditional-padding-3 " " '>'n)" "
\"{\"'>'n'>'r'n" " \"}\"" " (if jde-gen-comments " " '(l \" // end of
else if (\" (s clause) \")\"))" " '>'n'>)" " )")
jde-gen-println '("(end-of-line) '&"
"\"System.out.println(\" (P \"Print out: \") \");\" '>'n'>")
jde-enable-abbrev-mode nil
bsh-vm-args nil
jde-import-collapse-imports-threshold 0
jde-auto-parse-max-buffer-size 50000
jde-gen-cflow-main '("(if (jde-parse-comment-or-quoted-p)" " '(l
\"main\")"
" '(l '> " " (jde-gen-method-signature"
" \"public static\"" " \"void\"" " \"main\""
" \"String[] args\"" " )" " (if jde-gen-k&r " " ()"
" 'n)" " \"{\"'>'n'>'r'n'>" " \"}\""
" (if jde-gen-comments " " '(l \" // end of main()\"))"
" '>'n'>)" " )")
jde-javadoc-exception-tag-template "\"* @exception \" type \" if an
error occurs\""
jde-global-classpath nil
jde-find-file-regexp '("*.java")
jde-gen-window-listener-template '("(end-of-line) '& (P \"Window name:
\")"
"\".addWindowListener(\"
jde-gen-method-signature-padding-2 "
"\"new WindowAdapter\" jde-gen-method-signature-padding-1 \"()\"'>"
"(if jde-gen-k&r " " jde-gen-method-signature-padding-3" " 'n)"
"\"{\"'>'n" "(jde-gen-method-signature" " \"public\"" " \"void\"" "
\"windowActivated\"" " \"WindowEvent e\"" " )" "'>" "(if jde-gen-k&r "
" ()" " 'n)" "\"{\"'>'n" "\"}\"'>'n" "(jde-gen-method-signature" "
\"public\"" " \"void\"" " \"windowClosed\"" " \"WindowEvent e\"" "
)" "'>" "(if jde-gen-k&r " " ()" " 'n)" "\"{\"'>'n" "\"}\"'>'n"
"(jde-gen-method-signature" " \"public\"" " \"void\"" "
\"windowClosing\"" " \"WindowEvent e\"" " )" "'>" "(if jde-gen-k&r " "
()" " 'n)" "\"{\"'>'n" " \"System.exit(0);\" '>'n \"}\"" "'>'n"
"(jde-gen-method-signature" " \"public\"" " \"void\"" "
\"windowDeactivated\"" " \"WindowEvent e\"" " )" "'>" "(if jde-gen-k&r
" " ()" " 'n)" "\"{\"'>'n" "\"}\"'>'n" "(jde-gen-method-signature" "
\"public\"" " \"void\"" " \"windowDeiconified\"" " \"WindowEvent
e\"" " )" "'>" "(if jde-gen-k&r " " ()" " 'n)" "\"{\"'>'n" "\"}\"'>'n"
"(jde-gen-method-signature" " \"public\"" " \"void\"" "
\"windowIconified\"" " \"WindowEvent e\"" " )" "'>" "(if jde-gen-k&r "
" ()" " 'n)" "\"{\"'>'n" "\"}\"'>'n" "(jde-gen-method-signature" "
\"public\"" " \"void\"" " \"windowOpened\"" " \"WindowEvent e\"" "
)" "'>" "(if jde-gen-k&r " " ()" " 'n)" "\"{\"'>'n" "\"}\"'>'n" "\"}\"
jde-gen-method-signature-padding-2 \");\" '>'n'>")
jde-run-working-directory ""
jde-db-classic-mode-vm nil
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"
"(jde-gen-method-signature" " \"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\" '>'n" "\"* for all properties.\" '>'n" "\"*\" '>'n " "\"*
@param listener The PropertyChangeListener to be removed\" '>'n"
"\"*/\" '>'n" "(jde-gen-method-signature" " \"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" "(jde-gen-method-signature" " \"public\""
" \"void\"" " \"addPropertyChangeListener\"" " \"String
propertyName, 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"
"(jde-gen-method-signature" " \"public\"" " \"void\"" "
\"removePropertyChangeListener\"" " \"String propertyName,
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\"
'>'n" "\"* that was changed\" '>'n" "\"* @param
oldValue The old value of the property\" '>'n" "\"* @param newValue The
new value of the property.\" '>'n \"*/\" '>'n"
"(jde-gen-method-signature" " \"public\"" " \"void\"" "
\"firePropertyChange\"" " \"String propertyName, Object oldValue,
Object newValue\"" " )" "'>" "(if jde-gen-k&r " " ()" " 'n)"
"\"{\"'>'n" "'> \"pcs.firePropertyChange(propertyName, oldValue,
newValue);\" '>'n" "\"}\" '>'n '>'n" "\"/**\" '>'n" "\"* Reports a
bound property update to any registered listeners. \" '>'n" "\"* No
event is fired if old and new are equal and non-null.\" '>'n" "\"* This
is merely a convenience wrapper around the more general\" '>'n" "\"*
firePropertyChange method that takes Object values.\" '>'n" "\"* No
event is fired if old and new are equal and non-null.\" '>'n" "\"*\"
'>'n" "\"* @param propertyName The programmatic name of the property\"
'>'n" "\"* that was changed\" '>'n" "\"* @param
oldValue The old value of the property\" '>'n" "\"* @param newValue The
new value of the property.\" '>'n \"*/\" '>'n"
"(jde-gen-method-signature" " \"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\" '>'n" "\"*
that was changed\" '>'n" "\"* @param oldValue The old value of the
property\" '>'n" "\"* @param newValue The new value of the property.\"
'>'n \"*/\" '>'n" "(jde-gen-method-signature" " \"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\"'>'n"
"\"* equal and non-null. \" '>'n" "\"*\" '>'n" "\"* @param evt The
PropertyChangeEvent object.\" '>'n\"*/\" '>'n"
"(jde-gen-method-signature" " \"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\"'>'n"
"\"* for the given property\" '>'n" "\"*/\" '>'n"
"(jde-gen-method-signature" " \"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-jdk '("1.1")
jde-imenu-include-signature t
jde-gen-mouse-motion-listener-template '("(end-of-line) '& (P
\"Component name: \")" "\".addMouseMotionListener(\"
jde-gen-method-signature-padding-2 " "\"new MouseMotionAdapter\"
jde-gen-method-signature-padding-1 \"()\" '>" "(if jde-gen-k&r " "
jde-gen-method-signature-padding-3" " 'n)" "\"{\"'>'n"
"(jde-gen-method-signature" " \"public\"" " \"void\"" "
\"mouseDragged\"" " \"MouseEvent e\"" " )" "'>" "(if jde-gen-k&r " "
()" " 'n)" "\"{\"'>'n" "\"}\"'>'n" "(jde-gen-method-signature" "
\"public\"" " \"void\"" " \"mouseMoved\"" " \"MouseEvent e\"" " )"
"'>" "(if jde-gen-k&r " " ()" " 'n)" "\"{\"'>'n" "\"}\"'>'n" "\"}\"
jde-gen-method-signature-padding-2 \");\"'>'n'>")
jde-key-bindings '(("[? ? ?]" . jde-run-menu-run-applet)
("[? ? ?]" . jde-build)
("[? ? ?]" . jde-compile)
("[? ? ?]" . jde-debug) ("[? ? ?]" . jde-find)
("[? ? ?i]" . jde-wiz-implement-interface)
("[? ? ?j]" . jde-javadoc-generate-javadoc-template)
("[? ? ? ]" . bsh) ("[? ? ?\f]" . jde-gen-println)
("[? ? ?]" . jde-help-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-open-class-source)
("[? ? ?]" . jde-import-find-and-import)
("[? ? ?]" . jde-run-etrace-prev)
("[? ? ? ]" . jde-run-etrace-next)
("[(control c) (control v) (control ?.)]" .
jde-complete-at-point-menu)
("[(control c) (control v) ?.]" . jde-complete-at-point))
jde-java-environment-variables '("JAVA_VERSION" "JAVA_HOME")
jde-gen-cflow-for-i '("(if (jde-parse-comment-or-quoted-p)" " '(l
\"fori\")"
" '(l '> \"for\" jde-gen-conditional-padding-1 "
" \"(\" jde-gen-conditional-padding-2 \"int \" (p \"variable:
\" var) " " \" = 0; \" (s var) \" < \" (p \"upper bound: \" ub) \"; \"
(s var) \"++\"" " jde-gen-conditional-padding-2 \")\"" " (if
jde-gen-k&r " " jde-gen-conditional-padding-3 " " 'n)" "
\"{\"'>'n'>'r'n" " \"}\"" " (if jde-gen-comments " " '(l \" // 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-gen-conditional-padding-1 " "
jde-gen-conditional-padding-2 ""
jde-gen-conditional-padding-3 " "
jde-bug-sio-connect-delay 1
jde-ant-read-target nil
jde-javadoc-param-tag-template "\"* @param \" name \" \"
(jde-javadoc-a type)\n \" \" (jde-javadoc-code type) \" value\""
jde-compile-option-verbose-path nil
jde-javadoc-display-doc t
jde-imenu-modifier-abbrev-alist '(("public" . 43) ("protected" . 177)
("private" . 172) ("static" . 2215)
("transient" . 35) ("volatile" . 126)
("abstract" . 170) ("final" . 182)
("native" . 36) ("synchronized" . 64)
("strictfp" . 37))
jde-wiz-get-javadoc-template '("/**" "* Gets the value of %n" "*"
"* @return the value of %n" "*/")
jde-jdk-doc-url ""
jde-gen-comments t
jde-gen-cflow-enable t
jde-compiler '("javac server" "")
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)"
"(jde-gen-get-package-statement)"
"\"/**\" '>'n" "\" * \""
"(file-name-nondirectory buffer-file-name) '>'n" "\"
*\" '>'n" "\"
*\" '>'n" "\" * Created: \" (current-time-string) '>'n" "\" *\" '>'n"
"\" * @author <a href=\\\"mailto:\"; (eval user-mail-address) \"\\\">\"
(user-full-name) \"</a>\"'>'n" "\" * @version\" '>'n" "\" */\" '>'n'"
"'>'n" "\"public class \"" "(file-name-sans-extension
(file-name-nondirectory buffer-file-name))" "\" \"
(jde-gen-get-extend-class)" "(if jde-gen-k&r " " ()" " '>'n)"
"\"{\"'>'n" "\"public \"" "(file-name-sans-extension
(file-name-nondirectory buffer-file-name))" "
jde-gen-method-signature-padding-3 \"()\"" "(if jde-gen-k&r " "()"
"'>'n)" "\"{\"'>'n" "'>'p'n" "\"}\">" "'>'n"
"(jde-gen-get-interface-implementation)" "'>'n" "\"}\">" "\"// \""
"(file-name-sans-extension (file-name-nondirectory buffer-file-name))"
"'>'n")
jde-javadoc-checker-level 'protected
jde-appletviewer-option-vm-args nil
jde-run-executable-args nil
jde-db-option-garbage-collection '(t t)
jde-bug-stack-info nil
jde-javadoc-gen-stylesheetfile ""
jde-use-font-lock t
jde-gen-cflow-for-iter '("(if (jde-parse-comment-or-quoted-p)"
" '(l \"foriter\")"
" '(l '> \"for\" jde-gen-conditional-padding-1 "
" \"(\" jde-gen-conditional-padding-2 \"Iterator \" (p
\"variable:
\" var) " " \" = \" (p \"collection: \" coll) \".iterator(); \"" " (s
var) \".hasNext();\"" " jde-gen-conditional-padding-2 \")\"" "
(if jde-gen-k&r " " jde-gen-conditional-padding-3 " " 'n)" "
\"{\"'>'n'>'r" " (s var) \".next();\" '>'n'>" " \"}\"" " (if
jde-gen-comments " " '(l \" // end of for (Iterator \" (s var) \" = \"
(s coll)" " \".iterator(); \" (s var) \".hasNext();)\"))" " '>'n'>)" "
)")
jde-compile-option-bootclasspath nil
jde-make-program "make"
jde-java-font-lock-max-names-by-regexp 100
jde-javadoc-gen-group nil
jde-javadoc-gen-link-offline nil
jde-gen-junit-test-class-buffer-template '("(funcall
jde-gen-boilerplate-function)" "(jde-gen-get-package-statement)"
"\"import junit.framework.Test;\" '>'n" "\"import
junit.framework.TestCase;\" '>'n" "\"import
junit.framework.TestSuite;\" '>'n" "'n" "\"/**\" '>'n" "\" * \"" "\"
Unit Test for class\"" "(jde-gen-junit-class (file-name-nondirectory
buffer-file-name)) '>'n" "\" *\" '>'n" "\" *\" '>'n" "\" * Created: \"
(current-time-string) '>'n" "\" *\" '>'n" "\" * @author <a
href=\\\"mailto:\"; (eval user-mail-address) \"\\\">\" (user-full-name)
\"</a>\"'>'n" "\" * @version\" '>'n" "\" */\" '>'n'" "\"public class
\"" "(file-name-sans-extension (file-name-nondirectory
buffer-file-name))" "\" extends TestCase \" " "(if jde-gen-k&r " "()"
"'>'n)" "\"{\"'>'n" "'n" " \" /** \" '>'n" " \"* Creates a new
<code>\"" "(file-name-sans-extension (file-name-nondirectory
buffer-file-name))" "\"</code> instance.\" '>'n" " \"*\" '>'n" " \"*
@param name test name\" '>'n" " \"*/\"'>'n" "\"public \""
"(file-name-sans-extension (file-name-nondirectory buffer-file-name))"
"\" (String name)\"" "(if jde-gen-k&r " "()" "'>'n)" "\"{\"'>'n"
"\"super(name);\"'>'n" "\"}\"'>" "'>'n" "'n" "\"/**\" '>'n" "\"*
@return a <code>TestSuite</code>\" '>'n" "\"*/\" '>'n" "\"public static
TestSuite suite()\" '>" "(if jde-gen-k&r " "()" "'>'n)" "\"{\"'>'n"
"\"TestSuite suite = new TestSuite ();\" '>'n" "'>'n" "\"return
suite;\" '>'n" "\"}\"'>'n'n" "\"/** \" '>'n" "\"* Entry point \" '>'n"
"\"*/ \" '>'n" "\"public static void main(String[] args) \"" "(if
jde-gen-k&r " "()" "'>'n)" "\"{\"'>'n"
"\"junit.textui.TestRunner.run(suite());\"'>'n" "\"}\"'>'n" "\"}\">"
"\"// \"" "(file-name-sans-extension (file-name-nondirectory
buffer-file-name))" "'>'n")
jde-expand-classpath-p t
jde-entering-java-buffer-hook '(jde-reload-project-file
jde-which-method-update-on-entering-buffer)
jde-java-font-lock-api-file "d:/users/gfenton/jde-java-font-lock.api"
jde-javadoc-gen-doc-title ""
jde-lib-directory-name "lib"
jde-javadoc-gen-header ""
jde-run-option-vm-args nil
jde-javadoc-gen-window-title ""
jde-compile-option-directory ""
jde-imenu-create-index-function 'semantic-create-imenu-index
jde-gen-console-buffer-template '("(funcall
jde-gen-boilerplate-function)"
"(jde-gen-get-package-statement)"
"\"/**\" '>'n" "\" * \""
"(file-name-nondirectory buffer-file-name) '>'n"
"\" *\" '>'n"
"\" *\" '>'n" "\" * Created: \" (current-time-string) '>'n" "\" *\"
'>'n" "\" * @author <a href=\\\"mailto:\"; (eval user-mail-address)
\"\\\">\" (user-full-name) \"</a>\"'>'n" "\" * @version\" '>'n" "\"
*/\" '>'n" "'>'n" "\"public class \"" "(file-name-sans-extension
(file-name-nondirectory buffer-file-name))" "(if jde-gen-k&r " " ()" "
'>'n)" "\"{\"'>'n" "(jde-gen-method-signature" " \"public\"" " \"\""
" (file-name-sans-extension (file-name-nondirectory
buffer-file-name))" " \"\"" " )" "'>" "(if jde-gen-k&r " " ()" " 'n)"
"\"{\"'>'n" "'>'n" "\"}\"'>'n" "'>'n" "(jde-gen-method-signature" "
\"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-import-auto-sort-function 'jde-import-sort
jde-read-make-args nil
jde-javadoc-gen-noindex nil
jde-gen-mouse-listener-template '("(end-of-line) '& (P \"Component
name: \")"
"\".addMouseListener(\"
jde-gen-method-signature-padding-2 "
"\"new MouseAdapter\" jde-gen-method-signature-padding-1 \"()\" '>"
"(if jde-gen-k&r " " jde-gen-method-signature-padding-3" " 'n)"
"\"{\"'>'n " "(jde-gen-method-signature" " \"public\"" " \"void\"" "
\"mouseClicked\"" " \"MouseEvent e\"" " )" "'>" "(if jde-gen-k&r " "
()" " 'n)" "\"{\"'>'n" "\"}\"'>'n" "(jde-gen-method-signature" "
\"public\"" " \"void\"" " \"mouseEntered\"" " \"MouseEvent e\"" " )"
"'>" "(if jde-gen-k&r " " ()" " 'n)" "\"{\"'>'n" "\"}\"'>'n"
"(jde-gen-method-signature" " \"public\"" " \"void\"" "
\"mouseExited\"" " \"MouseEvent e\"" " )" "'>" "(if jde-gen-k&r " "
()" " 'n)" "\"{\"'>'n" "\"}\"'>'n" "(jde-gen-method-signature" "
\"public\"" " \"void\"" " \"mousePressed\"" " \"MouseEvent e\"" " )"
"'>" "(if jde-gen-k&r " " ()" " 'n)" "\"{\"'>'n" "\"}\"'>'n"
"(jde-gen-method-signature" " \"public\"" " \"void\"" "
\"mouseReleased\"" " \"MouseEvent e\"" " )" "'>" "(if jde-gen-k&r " "
()" " 'n)" "\"{\"'>'n" "\"}\"'>'n" "\"}\"
jde-gen-method-signature-padding-2 \");\"'>'n'>")
jde-run-option-application-args nil
jde-ant-home ""
jde-bug-vm-executable '("javaw")
jde-db-set-initial-breakpoint t
jde-bug-debugger-command-timeout 30
jde-db-option-stack-size '((128 . "kilobytes") (400 . "kilobytes"))
jde-db-option-properties nil
jde-db-source-directories nil
jde-run-read-app-args nil
jde-gen-to-string-method-template '("(end-of-line) '&" "\"/**\" '>'n"
"\"* Retrieve a String representation of this
object\" '>'n"
"\"* \" '>'n" "\"* @return a <code>String</code> representation of this
object.\" '>'n" "\"* @see Object#toString()\" '>'n" "\"*/\" '>'n"
"(jde-gen-method-signature" " \"public\"" " \"String\"" "
\"toString\"" " nil" " )" "'>" "(if jde-gen-k&r " " ()" " 'n)"
"\"{\"'>'n" "'>'r'n" "\"}\"'>'n'>")
jde-ant-read-buildfile nil
jde-quote-classpath t
jde-find-case-sensitive nil
jde-bug-window-message nil
jde-build-function '(jde-java-build)
jde-debugger '("jdb")
jde-javadoc-author-tag-template "\"* @author <a href=\\\"mailto:\";
user-mail-address\n \"\\\">\" user-full-name \"</a>\""
jde-javadoc-describe-field-template "\"* Describe \"
(jde-javadoc-field-type modifiers)\n \" \" (jde-javadoc-code name) \"
here.\""
jde-javadoc-gen-link-URL nil
jde-bug-local-variables nil
jde-compile-option-classpath nil
jde-gen-boilerplate-function 'jde-gen-create-buffer-boilerplate
jde-gen-entity-bean-template '("(jde-import-insert-imports-into-buffer
"
" (list \"javax.ejb.*\""
" \"java.rmi.RemoteException\"))" "'>"
"(jde-gen-method-signature" " \"public\""
" \"void\"" " \"ejbActivate\"" " nil"
" \"RemoteException\"" " )" "'>"
"(if jde-gen-k&r " " ()" " 'n)" "\"{\"'>'n"
"\"}\"'>'n 'n" "'>" "(jde-gen-method-signature"
" \"public\"" " \"void\""
" \"ejbPassivate\"" " nil"
" \"RemoteException\"" " )" "(if jde-gen-k&r "
" ()" " 'n)" "\"{\"'>'n" "\"}\"'>'n 'n" "'>"
"(jde-gen-method-signature" " \"public\""
" \"void\"" " \"ejbLoad\"" " nil"
" \"RemoteException\"" " )" "(if jde-gen-k&r "
" ()" " 'n)" "\"{\"'>'n" "\"}\"'>'n 'n" "'>"
"(jde-gen-method-signature" " \"public\""
" \"void\"" " \"ejbStore\"" " nil"
" \"RemoteException\"" " )" "(if jde-gen-k&r "
" ()" " 'n)" "\"{\"'>'n" "\"}\"'>'n 'n" "'>"
"(jde-gen-method-signature" " \"public\""
" \"void\"" " \"ejbRemove\"" " nil"
" \"RemoteException\"" " )" "(if jde-gen-k&r "
" ()" " 'n)" "\"{\"'>'n" "\"}\"'>'n 'n" "'>"
"(jde-gen-method-signature" " \"public\""
" \"void\"" " \"setEntityContext\""
" \"EntityContext ctx\""
" \"RemoteException\"" " )" "(if jde-gen-k&r "
" ()" " 'n)" "\"{\"'>'n" "\"}\"'>'n 'n" "'>"
"(jde-gen-method-signature" " \"public\""
" \"void\"" " \"unsetEntityContext\"" " nil"
" \"RemoteException\"" " )" "(if jde-gen-k&r "
" ()" " 'n)" "\"{\"'>'n" "\"}\"'>'n 'n '>")
bsh-startup-directory ""
jde-javadoc-version-tag-template "\"* @version 1.0\""
jde-wiz-get-set-methods-include '("Both")
jde-wiz-get-set-methods-order '("Get followed by set for each field")
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-db-active-breakpoint-face-colors '("black" . "red")
jde-compile-option-deprecation nil
jde-import-group-of-rules '(("^javax?\\."))
jde-db-spec-breakpoint-face-colors '("black" . "green")
jde-vm-path ""
jde-which-method-mode t
jde-gen-k&r t
jde-javadoc-gen-bottom ""
jde-javadoc-gen-footer ""
jde-db-option-classpath nil
jde-gen-cflow-for '("(if (jde-parse-comment-or-quoted-p)" " '(l
\"for\")"
" '(l '> \"for\" jde-gen-conditional-padding-1 "
" \"(\" jde-gen-conditional-padding-2 (p \"for-clause: \"
clause) " " jde-gen-conditional-padding-2 \")\"" " (if
jde-gen-k&r " " jde-gen-conditional-padding-3 " " 'n)" "
\"{\"'>'n'>'r'n" " \"}\"" " (if jde-gen-comments " " '(l \" // end of
for (\" (s clause) \")\"))" " '>'n'>)" " )")
jde-gen-cflow-catch '("(if (jde-parse-comment-or-quoted-p)" " '(l
\"catch\")"
" '(l '> \"catch\" jde-gen-conditional-padding-1 "
" \"(\" jde-gen-conditional-padding-2 (p \"catch what: \"
clause) \" e\"" " jde-gen-conditional-padding-2 \")\"" " (if
jde-gen-k&r " " jde-gen-conditional-padding-3 " " 'n)" "
\"{\"'>'n'>'r'n" " \"}\"" " (if jde-gen-comments " " '(l \" // end of
catch\"))" " '>'n'>)" " )")
jde-run-mode-hook nil
jde-db-option-verify '(nil t)
jde-compile-option-extdirs nil
jde-imenu-sort nil
jde-gen-get-set-var-template '("(end-of-line) '&"
"(P \"Variable type: \" type) \" \""
"(P \"Variable name: \" name) \";\" '>'n 'n"
"\"/**\" '>'n"
"\"* Get the \" (jde-gen-lookup-and-capitalize 'name)
\" value.\"
'>'n" "\"* @return the \" (jde-gen-lookup-and-capitalize 'name) \"
value.\" '>'n" "\"*/\" '>'n" "'>'" "(jde-gen-method-signature" "
\"public\"" " (jde-gen-lookup-named 'type)" " (if (string=
\"boolean\" (jde-gen-lookup-named 'type) ) " " (concat \"is\"
(jde-gen-lookup-and-capitalize 'name))" " (concat \"get\"
(jde-gen-lookup-and-capitalize 'name)))" " nil" " )" "(if jde-gen-k&r
" " ()" " '>'n)" "\"{\" '>'n" "\"return \" (s name) \";\" '>'n
\"}\"'>'n" "'n" "\"/**\" '>'n" "\"* Set the \"
(jde-gen-lookup-and-capitalize 'name) \" value.\" '>'n" "\"* @param
new\" (jde-gen-lookup-and-capitalize 'name) \"" "The new \"
(jde-gen-lookup-and-capitalize 'name) \" value.\" '>'n" "\"*/\" '>'n"
"'>'" "(jde-gen-method-signature " " \"public\"" " \"void\"" "
(concat \"set\" (jde-gen-lookup-and-capitalize 'name))" " (concat
(jde-gen-lookup-named 'type) \" new\" " "
(jde-gen-lookup-and-capitalize 'name))" " )" "(if jde-gen-k&r " " ()" "
'>'n)" "\"{\" '>'n" "'>'\"this.\" (s name) \" = new\"
(jde-gen-lookup-and-capitalize 'name) " "\";\" '>'n \"}\" '>'n'n'>")
jde-bug-saved-breakpoints nil
jde-complete-use-menu t
jde-compile-option-sourcepath nil
jde-gen-cflow-if '("(if (jde-parse-comment-or-quoted-p)" " '(l
\"if\")"
" '(l '> \"if\" jde-gen-conditional-padding-1 "
" \"(\" jde-gen-conditional-padding-2 (p \"if-clause: \"
clause)" " jde-gen-conditional-padding-2 \")\"" " (if
jde-gen-k&r " " jde-gen-conditional-padding-3 " " '>'n)" "
\"{\"'>'n'>'r'n" " \"}\"" " (if jde-gen-comments " " '(l \" // end of
if (\" (s clause) \")\"))" " '>'n'>)" " )")
jde-package-package-comment " // Generated package name"
jde-db-option-java-profile '(nil . "./java.prof")
jde-gen-cflow-try-finally '("(if (jde-parse-comment-or-quoted-p)"
" '(l \"try\")" " '(l '> \"try \""
" (if jde-gen-k&r " " ()" " 'n)"
" \"{\"'>'n'>'r'n" " \"}\" '>" " (if jde-gen-k&r "
" jde-gen-conditional-padding-3 " " 'n)"
" \"catch\" jde-gen-conditional-padding-1 "
" \"(\" jde-gen-conditional-padding-2 (p \"catch what: \"
clause) \" e\"" " jde-gen-conditional-padding-2 \")\" '>" " (if
jde-gen-k&r " " jde-gen-conditional-padding-3 " " 'n)" "
\"{\"'>'n'>'r'n" " \"}\" '> " " (if jde-gen-k&r " "
jde-gen-conditional-padding-3 " " 'n)" " \"finally\" '>" " (if
jde-gen-k&r " " jde-gen-conditional-padding-3 " " 'n)" "
\"{\"'>'n'>'r'n" " \"}\"" " (if jde-gen-comments " " '(l \" // end of
try-finally\"))" " '>'n'>)" " )")
jde-resolve-relative-paths-p t
jde-javadoc-gen-author t
jde-compile-option-depend-switch '("-Xdepend")
jde-setnu-mode-enable nil
jde-run-applet-doc ""
jde-ant-program "ant"
jde-compile-option-vm-args nil
jde-enable-senator t
jde-wiz-include-javadoc t
jde-javadoc-gen-overview ""
jde-javadoc-gen-notree nil
jde-run-option-garbage-collection '(t t)
jde-db-mode-hook nil
jde-javadoc-command-path "javadoc"
jde-db-option-heap-profile '(nil "./java.hprof" 5 20 "Allocation
objects")
jde-import-group-function 'jde-import-group-of
bsh-eval-timeout 30
jde-db-read-vm-args nil
jde-bug-debug nil
jde-java-font-lock-api-name-filter nil
jde-javadoc-end-block-template nil
jde-gen-method-signature-padding-1 ""
jde-gen-method-signature-padding-2 ""
jde-gen-method-signature-padding-3 " "
jde-gen-cflow-finally '("(if (jde-parse-comment-or-quoted-p)"
" '(l \"finally\")" " '(l '> \"finally\""
" (if jde-gen-k&r "
" jde-gen-conditional-padding-3 " " 'n)"
" \"{\"'>'n'>'r'n" " \"}\"" " (if jde-gen-comments "
" '(l \" // end of finally\"))" " '>'n'>)" " )")
jde-javadoc-gen-packages nil
jde-help-use-frames t
jde-gen-cflow-if-else '("(if (jde-parse-comment-or-quoted-p)" " '(l
\"ife\")"
" '(l '> \"if\" jde-gen-conditional-padding-1 "
" \"(\" jde-gen-conditional-padding-2 (p \"if-clause: \"
clause)" "
jde-gen-conditional-padding-2 \")\"" " (if jde-gen-k&r " "
jde-gen-conditional-padding-3 " " '>'n)" " \"{\"'>'n'>'r'n" " \"}\"
'>" " (if jde-gen-comments " " '(l \" // end of if (\" (s clause)
\")\" '>'n)" " (if jde-gen-k&r " " jde-gen-conditional-padding-3 " "
'n))" " '> \"else\"" " (if jde-gen-k&r " "
jde-gen-conditional-padding-3" " '>'n)" " \"{\"'>'n'>'r'n" " \"}\"" "
(if jde-gen-comments " " '(l \" // end of if (\" (s clause) \")
else\"))" " '>'n'>)" " )")
jde-bug-server-socket '(t . "2112")
jde-gen-cflow-while '("(if (jde-parse-comment-or-quoted-p)" " '(l
\"while\")"
" '(l '> \"while\" jde-gen-conditional-padding-1 "
" \"(\" jde-gen-conditional-padding-2 (p \"while-clause: \"
clause) " " jde-gen-conditional-padding-2 \")\"" " (if
jde-gen-k&r " " jde-gen-conditional-padding-3 " " '>'n)" "
\"{\"'>'n'>'r'n" " \"}\"" " (if jde-gen-comments " " '(l \" // end of
while (\" (s clause) \")\"))" " '>'n'>)" " )")
jde-imenu-include-modifiers nil
jde-appletviewer-option-encoding ""
jde-gen-cflow-try-catch '("(if (jde-parse-comment-or-quoted-p)"
" '(l \"try\")" " '(l '> \"try \""
" (if jde-gen-k&r " " ()" " 'n)"
" \"{\"'>'n'>'r'n" " \"}\" '>" " (if jde-gen-k&r "
" jde-gen-conditional-padding-3 " " 'n)"
" \"catch\" jde-gen-conditional-padding-1 "
" \"(\" jde-gen-conditional-padding-2 (p \"catch what: \"
clause)
\" e\"" " jde-gen-conditional-padding-2 \")\" '>" " (if
jde-gen-k&r " " jde-gen-conditional-padding-3 " " 'n)" "
\"{\"'>'n'>'r'n" " \"}\"" " (if jde-gen-comments " " '(l \" // end of
try-catch\"))" " '>'n'>)" " )")
jde-bug-breakpoint-cursor-colors '("cyan" . "brown")
jde-compile-option-target '("1.1")
jde-ant-read-args nil
jde-run-executable ""
jde-ant-buildfile "build.xml"
jde-run-option-heap-size '((1 . "megabytes") (16 . "megabytes"))
jde-jdb-key-bindings '(("[? ? ?]" . jde-debug-step-over)
("[? ? ?]" . jde-debug-step-into)
("[? ? ?]" . jde-debug-cont)
("[? ? ?]" . jde-debug-run)
("[? ? ?]" . jde-debug-toggle-breakpoint)
("[? ? ?]" . jde-debug-up)
("[? ? ?]" . jde-debug-down))
jde-gen-cflow-switch '("(if (jde-parse-comment-or-quoted-p)"
" '(l \"switch\")"
" '(l '> \"switch\" jde-gen-conditional-padding-1 "
" \"(\" jde-gen-conditional-padding-2 (p \"switch-condition:
\"
clause) " " jde-gen-conditional-padding-2 \")\"" " '>" " (if
jde-gen-k&r " " jde-gen-conditional-padding-3 " " 'n)" " \"{\"'>'n'"
" \"case \" (p \"first value: \") \":\"'>'n'" " >'p'n" "
\"break;\"'>'n'n" " \"default:\"'>'n'>" " \"break;\"'>'n" " \"}\"" "
(if jde-gen-comments " " '(l \" // end of switch (\" (s clause)
\")\"))" " '>'n'>)" " )")
jde-which-method-abbrev-symbol "~"
jde-db-option-vm-args nil
jde-run-application-class ""
jde-javadoc-gen-doclet ""
jde-project-hooks nil
jde-import-auto-sort nil
jde-run-option-verbose '(nil nil nil)
jde-launch-beanshell-on-demand-p t
jde-project-file-name "prj.el"
jde-compile-option-debug '("all" (t nil nil))
jde-complete-insert-method-signature t
jde-bug-jre-home ""
jde-import-sorted-groups nil
jde-compile-option-hide-classpath nil
jde-run-applet-viewer ""
jde-javadoc-return-tag-template "\"* @return \" (jde-javadoc-a type)\n
\" \" (jde-javadoc-code type) \" value\""
jde-javadoc-gen-version t
jde-complete-signature-display-time 5
jde-javadoc-gen-helpfile ""
jde-import-excluded-packages '("bsh.*")
jde-run-read-vm-args nil
jde-help-docsets '(("JDK API" "" nil))
jde-ant-target-regexp
"<\\s-*target\\s-[^...]*?name\\s-*=\\s-*\"\\s-*\\([^\"]+\\)"
jde-ant-invocation-method '("Script")
jde-gen-inner-class-template '("(end-of-line) '& \"class \" (P \"Class
name: \" class) '>" "\" \" (jde-gen-get-extend-class)" "(if jde-gen-k&r
" " ()" " '>'n)" "\"{\" '>'n" "(jde-gen-method-signature" "
\"public\"" " nil" " (jde-gen-lookup-named 'class)" " nil" " )" "(if
jde-gen-k&r " " ()" " '>'n)" "\"{\"'>'n" "\"}\"'>'n" "'>'n"
"(jde-gen-get-interface-implementation)" "'>'n" "\"}\" '>'n'>")
jde-auto-parse-buffer-interval 180
jde-run-option-verify '(nil t)
jde-import-reverse-sort-group nil
jde-compile-option-optimize nil
jde-gen-cflow-case '("(if (jde-parse-comment-or-quoted-p)" " '(l
\"case\")"
" '(l 'n \"case \" (p \"value: \") \":\"'>'n" " '>'p'n"
" \"break;\"'>'n)" " )")
jde-wiz-get-set-variable-convention '("")
jde-compile-option-depend nil
jde-javadoc-describe-class-template "\"* Describe class \"
(jde-javadoc-code name) \" here.\""
jde-help-remote-file-exists-function '("wget")
jde-gen-add-test-to-suite '("\"suite.addTest(new \""
"(file-name-sans-extension (file-name-nondirectory
buffer-file-name))" "\"(\\\"\" (P \"Test Name: \") \"\\\") \"" "(if
jde-gen-k&r " "()" "'>'n)" "\"{\"'>'n" "\"public void runTest()\"" "(if
jde-gen-k&r " "()" "'>'n)" "\"{\"'>'n" "(P \"Method to call: \")
\"();\"'>'n" "\"}\"'>'n" "\"});\"'>'n")
jde-javadoc-gen-serialwarn nil
jde-gen-action-listener-template '("'& (P \"Component name: \")"
"\".addActionListener(\"
jde-gen-method-signature-padding-2 "
"\"new ActionListener\" jde-gen-method-signature-padding-1 \"()\" '>"
"(if jde-gen-k&r " " jde-gen-method-signature-padding-3" " 'n)"
"\"{\"'>'n" "(jde-gen-method-signature" " \"public\"" " \"void\"" "
\"actionPerformed\"" " \"ActionEvent e\"" " )" "'>" "(if jde-gen-k&r "
" ()" " 'n)" "\"{\"'>'n" "\"}\"'>'n" "\"}\"
jde-gen-method-signature-padding-2 \");\"'>'n'>'n'>")
jde-cygwin-path-converter '(jde-cygwin-path-converter-internal)
jde-auto-parse-enable t
jde-compile-option-command-line-args nil
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
)
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
(D:\emacs\bin\emacs.exe)
.emacs: begin...
.emacs: system is (GFENTON-W2K)
Loading smtpmail...
Loading smtpmail...done
Loading message...
Loading cus-face...
Loading cus-face...done
Loading message...done
.emacs: setup Printer
Loading what-env...
Loading what-env...done
.emacs: starting gnuserv for w32
.emacs: gnuserv started.
Loading paren...
Loading paren...done
Loading timer...
Loading timer...done
.emacs: do font-lock
Loading regexp-opt...
Loading regexp-opt...done
.emacs: do speedbar
.emacs: do VM
.emacs: do bugtrack
.emacs: do misc display stuff
Loading time...
Loading time...done
Loading completion...
Loading completion...done
Loading completions from file d:/users/gfenton/.completions . . .
Loading completions from file d:/users/gfenton/.completions . . . Done.
.emacs: setup visual attributes
.emacs: do time-stamp
.emacs: do ispell
.emacs: do word-count
.emacs: do woman
.emacs: do abbrev-mode
Loading ~/.abbrev_defs...
Loading ~/.abbrev_defs...done
.emacs: do browse-url
.emacs: do insert-date
.emacs: do my-ebuf-stuff
.emacs: do frame-alist stuff
.emacs: setting default frame alist w32
.emacs: setting initial frame alist
.emacs: do blinking-cursor
.emacs: do x-style-font
.emacs: do blank-mode
.emacs: do htmlize
Loading cl-extra...
Loading cl-extra...done
Loading rsz-mini...
Loading rsz-mini...done
.emacs: do whitespace
.emacs: do shell stuff
Loading env...
Loading env...done
.emacs: do recentf
Loading d:/users/gfenton/.recentf...
Loading d:/users/gfenton/.recentf...done
.emacs: add custom menu items
.emacs: do calc
.emacs: C/C++ mode(s)
.emacs: do ctypes
.emacs: do cwarn
.emacs: do java mode(s)
Loading cl-macs...
Loading cl-macs...done
Loading backquote...
Loading backquote...done
Bootstrapping objects...
Bootstrapping objects...done
Loading wid-browse...
Loading wid-browse...done
jde-java-font-lock: building names cache...
jde-java-font-lock: building names cache...empty
.emacs: do Perl mode
.emacs: do html-helper-mode
.emacs: do css-mode
setup file binding
.emacs: do p4
.emacs: do custom-set-variables
.emacs: do misc settings
Directory name in buffer names (uniquify) enabled
Loading iswitchb...
Loading iswitchb...done
Loading edmacro...
Loading edmacro...done
.emacs: do kill-emacs-query-function
.emacs: global key bindings
.emacs: defining GLF functions
.emacs: done.
Loading cl-seq...
Loading cl-seq...done
For information about the GNU Project and its goals, type C-h C-p.
Loading lazy-lock...
Loading lazy-lock...done
Loading camelCase/camelCase-mode...
Loading camelCase/camelCase-mode...done
Loading d:/appdev/projects/Clarify/src/java/test_awt/prj.el (source)...
Loading d:/appdev/projects/Clarify/src/java/test_awt/prj.el
(source)...done
Fontifying TestMain8.java...
Fontifying TestMain8.java...
(regexps..................................)
Loading d:/appdev/projects/Clarify/src/java/test_awt/prj.el
(source)...done
(No files need saving)
JDK 1.1 version of javac does not support selected debug info.
Quit [2 times]
(No files need saving)
JDK 1.1 version of javac does not support selected debug info.
Creating customization buffer...
Creating customization buttons...
Creating customization items...
Creating group...
Creating group members... 98%
Creating group magic...
Creating group state...
Creating group... done
Creating customization items ...100%done
Creating customization setup...
Creating customization buffer...done
Mark set
Mark saved where search started [3 times]
Loading semantic-el (source)...
Loading semantic-el (source)...done
Fontifying prj.el...
Fontifying prj.el... (regexps............)
Loading semantic-el (source)...done
Wrote d:/appdev/projects/Clarify/src/java/test_awt/prj.el
(No files need saving)
JDK 1.1 version of javac does not support selected debug info.
Creating customization buffer...
Creating customization buttons...
Creating customization items...
Creating group...
Creating group members... 98%
Creating group magic...
Creating group state...
Creating group... done
Creating customization items ...100%done
Creating customization setup...
Creating customization buffer...done
Mark saved where search started
Creating customization buffer...
Creating customization buttons...
Creating customization items...
Creating group...
Creating group members... 94%
Creating group magic...
Creating group state...
Creating group... done
Creating customization items ...100%done
Creating customization setup...
Creating customization buffer...done
Mark saved where search started
Mark set
Mark saved where search started
Creating customization buffer...
Creating customization buttons...
Creating customization items...
Creating group...
Creating group members... 98%
Creating group magic...
Creating group state...
Creating group... done
Creating customization items ...100%done
Creating customization setup...
Creating customization buffer...done
Mark saved where search started
Quit [2 times]
Mark set
Wrote d:/users/gfenton/.emacs [3 times]
Mark set
Mark saved where search started
(No files need saving)
JDK 1.1 version of javac does not support selected debug info.
(No files need saving)
JDK 1.1 version of javac does not support selected debug info.
Creating customization buffer...
Creating customization buttons...
Creating customization items...
Creating group...
Creating group members... 92%
Creating group magic...
Creating group state...
Creating group... done
Creating customization items ...100%done
Creating customization setup...
Creating customization buffer...done
Loading ebuff-menu...
Loading ebuff-menu...done
<<< Press Return to bury the buffer list >>>
<<< Press Return to bury the buffer list >>>
<<< Press Return to bury the buffer list >>>
<<< Press Return to bury the buffer list >>>
Creating customization buffer...
Creating customization buttons...
Creating customization items...
Creating group...
Creating group members... 94%
Creating group magic...
Creating group state...
Creating group... done
Creating customization items ...100%done
Creating customization setup...
Creating customization buffer...done
Mark set
Wrote d:/users/gfenton/.emacs [2 times]
(No files need saving)
Cannot find JDK's tools jar file. See jde-get-jdk-dir.
<<< Press Return to bury the buffer list >>>
<<< Press Return to bury the buffer list >>>
Mark set
"d:/jdk/1.1.8"
<<< Press Return to bury the buffer list >>>
(No files need saving)
Cannot find JDK's tools jar file. See jde-get-jdk-dir.
Preparing problem report...
Formatting bug report buffer...
Formatting bug report
buffer.......................................................................................................................................
Mark set
End Insert *Messages* buffer
The contents of the *jde-log* buffer were
jde-load-project-file: Loading
d:/appdev/projects/Clarify/src/java/test_awt/prj.el
jde-set-variables: Loading jde-jdk-registry from project
d:/appdev/projects/Clarify/src/java/test_awt/prj.el
jde-set-variables: Loading jde-jdk-doc-url from project
d:/appdev/projects/Clarify/src/java/test_awt/prj.el
jde-set-variables: Loading jde-compile-option-target from project
d:/appdev/projects/Clarify/src/java/test_awt/prj.el
End Insert *jde-log* buffer
Process environment:
TERM=cmd
EMACSDOC=D:/emacs/etc
EMACSLOCKDIR=D:/emacs/lock
EMACSPATH=D:/emacs/bin
EMACSDATA=D:/emacs/etc
SHELL=bash
EMACSLOADPATH=D:/emacs/site-lisp;D:/emacs/lisp;D:/emacs/leim
WWPCEmulDir=D:\Windows CE Tools\wce211\MS Palm Size PC\emulation
WPCEmulDir=D:\Windows CE Tools\wce300\MS Pocket PC\emulation
windir=C:\WINNT
USERPROFILE=C:\Documents and Settings\gfenton
USERNAME=gfenton
USERDOMAIN=AMERICAS
TMPDIR=d:\tmp
TMP=d:\tmp
Template=T20 Win2k Rev 1 9/1/00
TEMP=d:\temp
SystemRoot=C:\WINNT
SystemDrive=C:
RFEXPRES=d:\NETTECH
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:\jdk\1.3\bin;d:/jakarta/ant-1.4.1\bin;D:\Perl\bin;D:\Program
Files\Perforce;D:\cygwin\bin;d:\emacs\bin;d:\bin;C:\WINNT\system32;C:\WINNT;C:\WINNT\system32\WBEM;C:\Program
Files\Sybase\SQL Anywhere 8\win32;C:\Program
Files\Sybase\Shared\win32;D:\Program Files\Sybase\SQL Anywhere
7\win32;D:\Program Files\Sybase\Shared\Sybase Central
4.0\java;C:\Program Files\Sybase\SQL Anywhere 8\drivers;C:\Program
Files\Sybase\Shared\PowerBuilder;C:\Program Files\Sybase\InfoMaker
8.0\tutorial;D:\Program Files\Sybase\Jaguar CTS 3.5\bin;D:\Program
Files\Sybase\Jaguar CTS 3.5\dll;D:\Program Files\Sybase\Jaguar CTS
3.5\client\dll;D:\Program Files\Sybase\Shared\Sun\JDK118\bin;D:\Program
Files\Sybase\Shared\PowerBuilder;d:\Program
Files\Sybase\iAWS20\bin;d:\NETTECH\DLL
P4USER=XXX
P4PORT=XXX
P4PASSWD=XXX
P4EDITOR=d:/bin/vi.exe
P4CLIENT=gfenton
Os2LibPath=C:\WINNT\system32\os2\dll;
OS=Windows_NT
oldTERMINFO=D:\NUTC\usr\lib\terminfo
oldTERMCAP=D:\NUTC\etc\termcap
oldTERM=nutc
NUTCROOT=D:\NUTC
NUMBER_OF_PROCESSORS=1
MSDevDir=C:\Program Files\Microsoft Visual Studio\Common\MSDev98
MA_AGENT=c:\PROGRA~1\sybase\MOBILE~1\rstate.exe
LOGONSERVER=\\PRINT-WATERLOO
lib=C:\Program Files\Microsoft Visual Studio\VC98\mfc\lib;C:\Program
Files\Microsoft Visual Studio\VC98\lib
JRE_LATEST=D:\Program Files\Sybase\Shared\Sun\Jdk122\jre
JDK_LATEST=D:\Program Files\Sybase\Shared\Sun\Jdk122
JDKROOT=d:\jdk
JDK13_API=d:\jdk\1.3\docs
JAVA_HOME=d:\jdk\1.3
JAKARTA_HOME=d:/jakarta
JAGUAR_CLIENT_ROOT=D:\Program Files\Sybase\Jaguar CTS 3.5\client
JAGUAR=D:\Program Files\Sybase\Jaguar CTS 3.5
Instrf=d:\NETTECH
IAWS=D:\Program Files\Sybase\iAWS20
HPCProEmulDir=D:\Windows CE Tools\wce211\MS HPC Pro\emulation
HOMESHARE=\\pubXXXX\gfenton$
HOMEPATH=\
HOMEDRIVE=H:
HOME=d:\users\gfenton
ENV=D:\users\gfenton\environ.ksh
emacs_dir=D:/emacs
EDPATH=d:\bin\eddat
DISPLAY=:0.0
CYGWINhold=check_case:adjust title tty glob:ignorecase ntea
COMSPEC=C:\WINNT\system32\cmd.exe
COMPUTERNAME=GFENTON-W2K
CommonProgramFiles=C:\Program Files\Common Files
CLASSPATH=.;.;C:\PROGRA~1\JavaSoft\JMF21~1.1\lib\sound.jar;C:\PROGRA~1\JavaSoft\JMF21~1.1\lib\jmf.jar;C:\WINNT\java\classes\classes.zip;C:\WINNT\java\classes;.
ASANY8=C:\Program Files\Sybase\SQL Anywhere 8
ASANY7=D:\Program Files\Sybase\SQL Anywhere 7
APPDEV=d:\appdev
APPDATA=C:\Documents and Settings\gfenton\Application Data
ANT_HOME=d:/jakarta/ant-1.4.1
ALLUSERSPROFILE=C:\Documents and Settings\All Users
ABC=d:\appdev\projects\abcfinancial
The contents of the .emacs file was
; .emacs file for Greg Fenton
;
; time stamp this thing.
; Time-stamp: <2002-01-18 15:05:17 gfenton>
;;; Thanks to Charles Curley for many items in this file
;;; http://w3.trib.com/~ccurley/emacs.init.html
;;;
;;
;; Keep more than the default number of lines in the *Messages* buffer
;;
(setq message-log-max 500)
(message ".emacs: begin...")
;; Setup up system specific stuff
(setq home-linux1 "XXX.com")
(setq work-laptop1 "XXX-w2k")
(setq my-system-found nil)
(message ".emacs: system is (%s)" system-name)
(if (string-equal (downcase (system-name)) home-linux1)
(progn
(setq user-mail-address "[EMAIL PROTECTED]")
(setq user-full-name "Greg Fenton")
(setq load-path
(nconc
'(
;; Add paths to other add-on packages here.
"/usr/share/emacs/site-lisp"
"/usr/share/emacs/site-lisp/a2ps"
"/usr/share/emacs/site-lisp/eieio-0.15"
"/usr/share/emacs/site-lisp/elib" ; NOT elib-1.0 !!
"/usr/share/emacs/site-lisp/gnuserv"
; "/usr/share/emacs/site-lisp/jde-2.2.6/lisp"
"/usr/share/emacs/site-lisp/semantic-1.3.2"
"/usr/share/emacs/site-lisp/speedbar-0.13a"
"/usr/share/emacs/site-lisp/vm"
)
load-path))
(defun make-backup-file-name (file)
(concat "~/.emacs_backup/" (file-name-nondirectory file)))
(setq gnus-select-method '(nntp "XXX.com"))
(setq my-system-found home-linux1)))
(if (string-equal (downcase (system-name)) work-laptop1)
(progn
(setq user-mail-address "XXX.com")
(setq user-full-name "Greg Fenton")
(setq smtpmail-default-smtp-server "XXXX.com")
(setq smtpmail-local-domain nil)
(setq send-mail-function 'smtpmail-send-it)
(load-library "smtpmail")
(load-library "message")
(setq message-send-mail-function 'smtpmail-send-it)
(defun message-make-address ()
"Make the address of the user."
(concat "[EMAIL PROTECTED]" "" ))
(setq load-path
(nconc
'(
"d:/emacs/site-lisp/"
"d:/emacs/site-lisp/gnuserv"
; "d:/emacs/site-lisp/jde-2.2.9beta7/lisp"
"d:/dev/cvs/sunsite.dk/jde/lisp"
"d:/emacs/site-lisp/semantic"
"d:/emacs/site-lisp/speedbar"
"d:/emacs/site-lisp/elib"
"d:/emacs/site-lisp/eieio"
"d:/emacs/site-lisp/EDE"
"d:/emacs/site-lisp/w3/lisp"
"d:/emacs/site-lisp/calc"
"d:/emacs/site-lisp/w3-4.0pre.46/lisp"
"d:/emacs/site-lisp/bugtrack-1.3.1"
"d:/emacs/site-lisp/pcl-cvs-2.0b2"
;; Add paths to other add-on packages here.
)
load-path))
(defun make-backup-file-name (file)
(concat "~/.emacs_backup/" (file-name-nondirectory file)))
;;Printer customization
(message ".emacs: setup Printer")
(setq printer-name "//print-waterloo/pr-wat-04")
(setq ps-printer-name "//print-waterloo/pr-wat-04")
(require 'w32-print)
(setq my-system-found work-laptop1)))
(if (not my-system-found)
(error ".emacs: System not found in .emacs (%s)" (system-name))) ;;
yikes!
; end system-specific stuff
;; get what-env so we can customize for different environments.
;; from http://w3.trib.com/~ccurley/emacs.init.html
;; which appears to be from "Sams' Teach Yourself Emacs in 24 Hours"
(load "what-env")
;; start gnuserv stuff. Put it up front so you don't get into a timeout
;; problem, according to Cristian Ionescu-Idbohrn
;; <[EMAIL PROTECTED]>
(if (memq window-system '(win32 w32)) ; Windows 9x/NT/2K
(progn
(message ".emacs: starting gnuserv for %s" window-system)
(require 'gnuserv)
(gnuserv-start)
;;; open buffer in existing frame instead of creating new one...
(setq gnuserv-frame (selected-frame))
(message ".emacs: gnuserv started.")))
(setq ostype (if (not (getenv "OSTYPE")) "" (getenv "OSTYPE")))
(if (string-equal (substring ostype 0 (min 5 (length ostype))) "linux")
; Linux
(progn
(message ".emacs: starting gnuserv for %s" ostype)
(message ".emacs: do gnuserv")
(require 'gnuserv-compat)
(require 'gnuserv) ; C-x # -- done with gnuclient
buffer
(gnuserv-start)
(setq gnuserv-frame (selected-frame))))
;; end gnuserv stuff
(show-paren-mode t) ; always turn parentheses mode
on.
;; font-lock stuff
(message ".emacs: do font-lock")
(setq w32-enable-italics t) ; This must be done before font settings!
(defun my-recenter (&optional arg)
"Centre point in window and run font-lock-fontify-block"
(interactive "P")
(recenter arg)
(font-lock-fontify-block (window-height)))
(require 'font-lock)
(add-hook 'font-lock-mode-hook
'(lambda ()
(substitute-key-definition
'recenter 'my-recenter (current-global-map))))
(if (fboundp 'global-font-lock-mode)
(global-font-lock-mode t))
(setq font-lock-support-mode 'lazy-lock-mode)
(setq font-lock-maximum-decoration t)
(setq lazy-lock-defer-after-change t)
;;
;; Speedbar
;;
(message ".emacs: do speedbar")
(autoload 'speedbar "speedbar" "" t)
(add-hook 'speedbar-mode-hook
(lambda ()
(speedbar-add-supported-extension ".sql")
(speedbar-add-supported-extension ".sqc")
(speedbar-add-supported-extension ".sqlj")
))
;; begin vm mode goodies. So far, I haven't set up a separate .vm file
(message ".emacs: do VM")
(autoload 'vm "vm" "Start VM on your primary inbox." t)
(autoload 'vm-other-frame "vm" "Like `vm' but starts in another frame."
t)
(autoload 'vm-visit-folder "vm" "Start VM on an arbitrary folder." t)
(autoload 'vm-visit-virtual-folder "vm" "Visit a VM virtual folder." t)
(autoload 'vm-mode "vm" "Run VM major mode on a buffer" t)
(autoload 'vm-mail "vm" "Send a mail message using VM." t)
(autoload 'vm-submit-bug-report "vm" "Send a bug report about VM." t)
(setq vm-included-text-prefix "> ")
(setq mail-archive-file-name (expand-file-name "~/mail/Sent"))
(setq vm-fill-paragraphs-containing-long-lines 80)
;; always preview the whole message when selecting a mail in the
summary buffer
(setq vm-preview-lines t)
;; please delete them from the INBOX after they are in their new place
(setq vm-delete-after-archiving t)
; really move the messages when saved
(setq vm-move-message-physically t)
;; NO backups of the mail folders, mine are quite huge, due to the
;; mailing lists and I don't want to have a multi MB backup of a multi
MB folder
(add-hook 'vm-mode-hook
(lambda ()
(set (make-local-variable 'backup-inhibited) t)))
; end vm mode goodies.
;; Camel Case
;; from http://www.hotdispatch.com/palm/view-ip-requester?ID=14317280
;;
;; Rebound keys:
;; M-f M-right C-right camelCase-forward-word
;; M-b M-left C-left camelCase-backward-word
;; M-d M-delete C-delete camelCase-forward-kill-word
;; M-DEL M-backspace C-backspace camelCase-backward-kill-word
;; M-t camelCase-transpose-words
;; M-c camelCase-capitalize-word
;; M-u camelCase-upcase-word
;; M-l camelCase-downcase-word
;;
;; "M-x camelCase-mode" toggles mode.
;;
(autoload 'camelCase-mode "camelCase/camelCase-mode")
(add-hook 'java-mode-hook '(lambda () (camelCase-mode 1)))
(add-hook 'find-file-hooks '(lambda () (camelCase-mode 1)))
;;
;; begin bugtrack mode
(message ".emacs: do bugtrack")
(autoload 'bugtrack-init "bugtrack" "Start bugtrack")
;; end bugtrack
(message ".emacs: do misc display stuff")
; Don't display the time on W95. I have problems w/ this interfering
with
; my screen saver/monitor power control SW on w95. NT 4 seems to be
; OK. You need this to enable the appointment notification.
(if (not (string-equal what-env "Windows_95"))
(progn
(setq display-time-24hr-format t)
; (setq display-time-day-and-date t) ; display date/time in mode
line
(setq visible-bell t) ; frame flashes to represent a
bell.
(display-time)
))
(setq frame-title-format
'(multiple-frames "%b" ( user-login-name " -- %b" )))
(setq line-number-mode t) ; display line number in mode line
(setq column-number-mode t) ; display column number in mode
line
(setq query-replace-highlight t) ; search matches are highlighted
(put 'upcase-region 'disabled nil) ; Don't "are you sure?" me on this
cmd
(put 'downcase-region 'disabled nil) ; Don't "are you sure?" me on this
cmd
(dynamic-completion-mode) ; enable dynamic word-completion
(message ".emacs: setup visual attributes")
(setq frame-title-format "%b")
(set-background-color "black") ; to fix a bug in NT/Emacs
(set-foreground-color "white") ; to fix a bug in NT/Emacs
(set-cursor-color "Yellow")
;(setq binary-process-input t) ; ???
; disable backups to work around w95 bug.
(if (string-equal what-env "Windows_95")
(setq make-backup-files nil))
; Add time-stamp capabilities. See time-stamp.el for doc.
(message ".emacs: do time-stamp")
(add-hook 'write-file-hooks 'time-stamp)
;; A function to insert the time stamp at point.
(defun stamp ()
"Insert at point the dummy time stamp string to activate the time
stamp facility."
(interactive "*")
(insert "Timestamp: <>") ;insert the bare bones
(time-stamp) ;call the function to fill it
in
;where we put it.
)
(setq time-stamp-line-limit 16)
;; enable narrowing w/out a prompt
(put 'narrow-to-region 'disabled nil)
(if (or (string-equal what-env "Windows_95")
(string-equal what-env "Windows_NT"))
(progn
; Compilation setup:
; Visual C++ Debug:
; (setq compile-command '("nmake -f .mak" . 10))
; Visual C++ Release:
; (setq compile-command '("nmake -f .mak CFG=\"MyProject - Win32
Release\"" . 10))
; Htmlpp
(setq compile-command '("htmlpp .txt" . 8))
(setq compilation-scroll-output t)
)
)
;;
;; ispell
;;
(message ".emacs: do ispell")
(setq text-mode-hook '(lambda ()
(local-set-key "\M-\t" 'ispell-complete-word)))
(setq tex-mode-hook '(lambda ()
(local-set-key "\M-\t" 'ispell-complete-word)))
(setq latex-mode-hook '(lambda ()
(local-set-key "\M-\t"
'ispell-complete-word)))
(setq html-helper-mode-hook '(lambda ()
(local-set-key "\M-\t"
'ispell-complete-word)))
(setq ispell-enable-tex-parser t)
;; spell check as we go along.... Eats processor cycles for lunch,
though.
;(if (memq window-system '(win32 w32 x))
; (add-hook 'text-mode-hook
; (function
; (lambda ()(flyspell-mode))))
; )
;; End spell check
;; Word Count tool, per [EMAIL PROTECTED]
(message ".emacs: do word-count")
(if (not ( or (string-equal system-name "server" )
(string-equal system-name "server.localdomain" )))
(progn
(defun sds-word-count (start end)
;; replacement for count-lines-region
"Count lines/words/characters from START to END"
(interactive "r")
(save-excursion
(save-restriction
(narrow-to-region start end)
(goto-char (min start end))
(message "Region (%d to %d) has: lines: %d; words: %d;
characters: %d."
start end (count-lines start end)
(string-to-number (how-many "\\<")) (- end
start)))))
(define-key esc-map "=" 'sds-word-count)
))
;; woman (Man page reader) stuff:
(message ".emacs: do woman")
(autoload 'woman "woman"
"Decode and browse a UN*X man page." t)
(autoload 'woman-find-file "woman"
"Find, decode and browse a specific UN*X man-page file." t)
(autoload 'woman-dired-find-file "woman"
"In dired, run the WoMan man-page browser on this file." t)
(add-hook 'dired-mode-hook
(function
(lambda ()
(define-key dired-mode-map "W" 'woman-dired-find-file))))
(let (help-menu manuals)
(if (setq help-menu (lookup-key global-map [menu-bar help-menu]))
(if (setq manuals (lookup-key help-menu [manuals]))
(define-key-after
manuals [woman] '("Read Man Page (WoMan)..." . woman) t)
(define-key-after
help-menu [woman] '("WoMan..." . woman) 'man))))
(defgroup woman nil
"Browse UNIX manual pages `wo (without) man'."
:tag "WoMan" :group 'help :load "woman")
;; Use colo(u)r instead of bold & underscore.
(setq woman-always-colour-faces t)
;; Fill up the full width of the frame when laying out the page.
(setq woman-fill-frame t)
;; End Woman Mode Stuff
;; Abbreviations stuff:
(message ".emacs: do abbrev-mode")
(setq-default abbrev-mode t)
(cond ((file-exists-p "~/.abbrev_defs")
(read-abbrev-file "~/.abbrev_defs")))
(setq save-abbrevs t)
;; Window shifting. C-x-o lets us go forward a window (or several).
This
;; one lets us go back one or more windows. From Glickstein.
(defun other-window-backward (&optional n)
"Select previous Nth window."
(interactive "P")
(other-window (- (prefix-numeric-value n))))
;; end window shifting.
;; begin browse-url mode
(message ".emacs: do browse-url")
(setq browse-url-save-file t)
;;To bind the browse-url commands to keys with the `C-c u' prefix:
(add-hook 'dired-mode-hook
(lambda ()
(local-set-key "\C-cuf" 'browse-url-of-dired-file)))
(if (boundp 'browse-url-browser-function)
(global-set-key "\C-cuu" browse-url-browser-function)
(eval-after-load
"browse-url"
'(global-set-key "\C-cuu" browse-url-browser-function)))
;; To display a URL by shift-clicking on it, put this in your ~/.emacs
;; file:
(global-set-key [S-mouse-2] 'browse-url-at-mouse)
;; (Note that using Shift-mouse-1 is not desirable because
;; that event has a standard meaning in Emacs.)
(autoload 'browse-url "browse-url" "browse-url loaded!" t)
;; end browse-url mode
; Insert the date, the time, and the date and time at point. Insert the
; date 31 days hence at point (eventually...). Useful for keeping
; records. These are based on Glickstein.
(message ".emacs: do insert-date")
(defvar insert-time-format "%T"
"*Format for \\[insert-time] (c.f. 'format-time-string' for how to
format).")
(defvar insert-date-format "%Y %m %d"
"*Format for \\[insert-date] (c.f. 'format-time-string' for how to
format).")
(defun insert-time ()
"Insert the current time according to the variable
\"insert-time-format\"."
(interactive "*")
(insert (format-time-string insert-time-format
(current-time))))
(defun insert-date ()
"Insert the current date according to the variable
\"insert-date-format\"."
(interactive "*")
(insert (format-time-string insert-date-format
(current-time))))
(defun insert-time-and-date ()
"Insert the current date according to the variable
\"insert-date-format\", then a space, then the current time according
to the variable \"insert-time-format\"."
(interactive "*")
(progn
(insert-date)
(insert " ")
(insert-time)))
;(defun insert-month-date ()
; "Insert the date 31 days from now according to the variable
\"insert-date-format\"."
; (interactive "*")
; (insert (format-time-string insert-date-format
; (current-time))))
(message ".emacs: do my-ebuf-stuff")
(defun my-ebuf-stuff ()
"My own Electric Buffer Menu stuff. Currently binds some convenience
keys."
(define-key electric-buffer-menu-mode-map [up] 'previous-line)
(define-key electric-buffer-menu-mode-map [down] 'next-line)
(define-key electric-buffer-menu-mode-map [next] 'scroll-up)
(define-key electric-buffer-menu-mode-map [previous] 'scroll-down)
(define-key electric-buffer-menu-mode-map [left] 'scroll-right)
(define-key electric-buffer-menu-mode-map [right] 'scroll-left))
(add-hook 'electric-buffer-menu-mode-hook 'my-ebuf-stuff)
;;;************************************************************
;;; Set the default font and frame size for all frames. See the two
;;; related functions in comments below.
;;;************************************************************
;; These font-related goodies came from Chris McMahan
;; <[EMAIL PROTECTED]>, except that I converted the font selection
;; box stuff into a function and assigned it a key.
(message ".emacs: do frame-alist stuff")
(if (memq window-system '(x))
(progn
(message ".emacs: setting default frame alist %s"
window-system)
(setq default-frame-alist
(append default-frame-alist
'((top . 5) (left . -95)
(width . 81) (height . 59)
(cursor-type . box)
(cursor-color . "orange")
(foreground-color . "white")
(background-color . "black")
)))
;; Set the default font and frame size for the initial frame.
(message ".emacs: setting initial frame alist")
(setq initial-frame-alist
'(
(top . 5) (left . -95)
(width . 81) (height . 59)
(cursor-type . box)
(cursor-color . "orange")
(foreground-color . "white")
(background-color . "black")
))))
(if (memq window-system '(win32 w32))
(progn
(message ".emacs: setting default frame alist %s"
window-system)
(setq default-frame-alist
(append default-frame-alist
'(
(top . 1) (left . 90)
(width . 81) (height . 48)
(cursor-type . box)
(cursor-color . "orange")
(foreground-color . "white")
(background-color . "black")
; (font . "-*-Lucida
Console-normal-r-*-*-13-97-*-*-c-*-*-ansi-")
(font . "-*-Lucida
Console-normal-r-*-*-15-97-*-*-c-*-*-ansi-")
)))
;; Set the default font and frame size for the initial frame.
(message ".emacs: setting initial frame alist")
(setq initial-frame-alist
'(
(top . 1) (left . 90)
(width . 81) (height . 48)
(cursor-type . box)
(cursor-color . "orange")
(foreground-color . "white")
(background-color . "black")
; (font . "-*-Lucida
Console-normal-r-*-*-13-97-*-*-c-*-*-ansi-")
(font . "-*-Lucida
Console-normal-r-*-*-15-97-*-*-c-*-*-ansi-")
))))
(if (memq window-system '(x win32 w32))
(progn
(message ".emacs: do blinking-cursor")
(require 'blinking-cursor)
; (setq blinking-cursor-blink-frequency 10)
(setq blinking-cursor-colors ["Yellow" "Blue"])
(blinking-cursor-mode 1)))
;This commmand will call up the font dialog box and then insert at
point
;the x-style name of the selected font. The font selection dialog box
will
;pop up. Select the desired font, and the font name will appear
;immediately at point, complete with quotes, available for your cutting
;and pasting pleasure!
;Note that the variable names are different for versions 19 & 20, so we
;have separate tests for each.
(if (eq window-system 'w32) ; emacs 20 & up
(progn
(message ".emacs: do x-style-font")
(defun insert-x-style-font()
"Insert a string in the X format which describes a font the
user can select from the Windows font selector."
(interactive)
(insert (prin1-to-string (w32-select-font))))
))
; bind it to C-c C-f
;(if (eq window-system 'win32)
; (global-set-key "\C-c\C-f" 'insert-x-style-font))
;;;Insert following expression in the *scratch* buffer: Execute 'M-x
;;;eval-buffer' and this will list all available fonts. All fonts that
;;;have a letter 'm' or a 'c' in the fourth field from the right, are
;;;m(onospaced) c(haracter) fonts
;
;(insert (prin1-to-string (x-list-fonts "*")))
;; end of font goodies from Chris McMahan <[EMAIL PROTECTED]>
(message ".emacs: do blank-mode")
(autoload 'blank-mode "blank-mode"
"Toggle blank visualization." t)
(autoload 'blank-mode-customize "blank-mode"
"Customize blank visualization." t)
(message ".emacs: do htmlize")
(if (memq window-system '(x w32 win32))
(require 'htmlize))
;; Always have minibuffer the appropriate size. Useful for long file
;; names, etc. Courtesy of "Dr Francis J. Wright"
<[EMAIL PROTECTED]>
(resize-minibuffer-mode)
;; Set dynamic abbreviations to case rude.
(setq dabbrev-case-fold-search nil)
(message ".emacs: do whitespace")
;; add tool to strip trailing whitespace.
(require 'whitespace)
(autoload 'nuke-trailing-whitespace "whitespace" nil t)
(add-hook 'mail-send-hook 'nuke-trailing-whitespace)
(add-hook 'write-file-hooks 'nuke-trailing-whitespace)
(message ".emacs: do shell stuff")
(autoload 'shell-toggle "shell-toggle"
"Toggles between the *shell* buffer and whatever buffer you are
editing." t)
(autoload 'shell-toggle-cd "shell-toggle"
"Pops up a shell-buffer and insert a \"cd <file-dir>\" command." t)
(if (memq window-system '(win32 w32)) ; Windows NT/95
(progn
;; GLF - got this code from
http://www.cygwin.com/faq/faq_toc.html
;; NT-emacs assumes a Windows command shell, which you change
;; here.
;;
(setq process-coding-system-alist '(("bash" . undecided-unix)))
(setq w32-quote-process-args ?\")
(setq shell-file-name "bash")
(setenv "SHELL" shell-file-name)
(setq explicit-shell-file-name shell-file-name)
;;
;; This removes unsightly ^M characters that would otherwise
;; appear in the output of java applications.
;;
(add-hook 'comint-output-filter-functions
'comint-strip-ctrl-m)
))
;;{{{ recentf customization
(message ".emacs: do recentf")
(require 'recentf)
(recentf-mode)
;; Change the file in which recentf saves information from
;; ~/.recentf to something else
(setq recentf-save-file "~/.recentf")
;; Set the maximum number of items saved to 10
(setq recentf-max-saved-items 10)
;; Change the menu title from the default "Open Recent" to
;; something else
(setq recentf-menu-title "Recent Files")
;; Set the max items on the menu to 5
(setq recentf-max-menu-items 10)
;;}}} recentf customization
;;Custom menu items
(message ".emacs: add custom menu items")
(define-key global-map
[menu-bar files open-dot-emacs]
'("Open .emacs" . open-dot-emacs))
(defun open-dot-emacs ()
"opening-dot-emacs"
(interactive) ;this makes the function a command too
(find-file "~/.emacs") ;point this to the location of your .emacs
)
;; end custom menu items
(message ".emacs: do calc")
;; begin calc setup...
(if (string-equal what-env "Windows_NT")
(progn
(setq load-path (append load-path (list
"c:/gnu/emacs-20.4/site-lisp/calc-2.00")))
(autoload 'calc-dispatch "calc" "Calculator Options" t)
(autoload 'full-calc "calc" "Full-screen Calculator"
t)
(autoload 'full-calc-keypad "calc" "Full-screen X
Calculator" t)
(autoload 'calc-eval "calc" "Use Calculator from
Lisp")
(autoload 'defmath "calc" nil t t)
(autoload 'calc "calc" "Calculator Mode" t)
(autoload 'quick-calc "calc" "Quick Calculator" t)
(autoload 'calc-keypad "calc" "X windows Calculator"
t)
(autoload 'calc-embedded "calc" "Use Calc from any
buffer" t)
(autoload 'calc-embedded-activate "calc" "Activate =>'s in
buffer" t)
(autoload 'calc-grab-region "calc" "Grab region of Calc
data" t)
(autoload 'calc-grab-rectangle "calc" "Grab rectangle of data"
t)
(global-set-key "\e#" 'calc-dispatch)
)
)
;; end calc setup...
;;;(message ".emacs: do calendar")
;;;; Calendar stuff is common to every emacs version but we don't run
this
;;;; on the server:
;;;(if (memq window-system '(x win32 w32))
;;; (progn
;;; (setq diary-file "~/.diary")
;;; (calendar) ; fire up the calendar
display.
;;; (mark-calendar-holidays)
;;; (mark-diary-entries)
;;; ;; (other-window 1) ; switch this frame to the main
window;
;;;
;;; ;; Add the appointment generator to the diary hook, set a
vector for
;;; ;; the number of days in advance to show appointments, and
turn the
;;; ;; diary mode on.
;;; (setq number-of-diary-entries [2 3 3 3 3 5 2])
;;; (add-hook 'diary-hook 'appt-make-list)
;;; (add-hook 'diary-display-hook 'fancy-diary-display)
;;; ;; If this is non-nil, Emacs rings the terminal bell for
appointment
;;; ;; reminders. The default is t.
;;; (setq appt-audible nil)
;;; (diary)
;;; ; end calendar/diary stuff
;;; ))
;;;
;;; Programming
;;;
;;
;; C/C++/Java mode modifications
;;
(message ".emacs: C/C++ mode(s)")
(defun glf-c-mode-hook ()
;; This will make sure tabs are used in code.
;; MKS's style is "indent 8; tabs 8"
;; instead, GLF uses "indent 4; tabs 4"
(setq c-basic-offset 4)
(setq tab-width '4)
(setq indent-tabs-mode t)
(c-set-offset 'case-label '+)
(c-set-offset 'substatement-open 0)
)
(add-hook 'c-mode-hook 'glf-c-mode-hook)
(add-hook 'cc-mode-hook 'glf-c-mode-hook)
(add-hook 'c++-mode-hook 'glf-c-mode-hook)
(message ".emacs: do ctypes")
(require 'ctypes)
(ctypes-auto-parse-mode 1)
(message ".emacs: do cwarn")
(require 'cwarn)
(global-cwarn-mode 1)
;;
;; Java
;;
(message ".emacs: do java mode(s)")
(require 'jde)
(defun glf-java-mode-hook ()
(setq c-basic-offset 4)
;; this will make sure spaces are used instead of tabs
;; Java's style is "indent 4; tabs 8"
(setq indent-tabs-mode t)
(c-set-offset 'case-label '+)
)
;(add-hook 'java-mode-hook 'glf-java-mode-hook) ;; GLF: probably don't
need this
(add-hook 'jde-mode-hook 'glf-java-mode-hook)
;;
;;Perl mode
;;
(message ".emacs: do Perl mode")
(autoload 'perl-mode "cperl-mode" "alternate mode for editing Perl
programs" t)
(setq cperl-indent-level 4)
;; begin html-helper-mode goodies
;;
(message ".emacs: do html-helper-mode")
(autoload 'html-helper-mode "html-helper-mode" "Yay HTML" t)
;; My own defintion of html extensions to recognize html files. The
match
;; is case-rude, as follows: period ("\.") followed by an optional s
;; ("s?"), a required htm, and an optional l ("l?"). The l must be
;; last. ("\\>"). Nelson ended his regex with a $, which means "end of
;; line". I decided to be conservative and just match the end of the
;; word. Case sensitivity is not required on Windows NT, but is on
Linux.
(setq html-helper-do-write-file-hooks t)
(setq html-helper-build-new-buffer t)
(setq html-helper-address-string
(concat "<a href=\"mailto:"; user-mail-address "\">"
user-full-name "</a>"))
(setq html-helper-use-expert-menu t)
;; Turn off prompting.
(setq tempo-interactive nil)
(add-hook 'text-mode 'turn-on-auto-fill)
(add-hook 'html-helper-mode 'turn-on-auto-fill)
; add css support to html-helper-mode
(add-hook 'html-helper-load-hook
(function (lambda () (load "css.elc"))))
; GLF: customize template for new HTML buffer
(setq html-helper-new-buffer-template
'(html-helper-htmldtd-version
"<HTML>\n<HEAD>\n"
"<TITLE>" p "</TITLE>\n</HEAD>\n\n"
"<BODY BGCOLOR=\"#ffffff\">\n" "<H1>" p "</H1>\n\n" p
"\n\n<HR>\n<DIV ALIGN=\"center\">\n"
" <ADDRESS>" html-helper-address-string "</ADDRESS>\n"
" <EM>\n <SMALL>\n --\n "
html-helper-timestamp-start html-helper-timestamp-end
"\n --\n </SMALL>\n </EM>\n"
"\n</DIV>\n</BODY>\n</HTML>\n"))
; GLF: add customized timestamp support
(defun glf-html-helper-insert-timestamp ()
"Greg's timestamp insertion function for html-helper-mode."
(let
(
(time (current-time-string))
;; this sets time zone to "EST" instead of "Eastern Standard
Time"
(tz (glf-short-current-time-zone))
)
(insert "Last modified: "
(substring time 0 20)
tz
" "
(substring time -4)
" ")))
(add-hook 'html-helper-load-hook
(function (lambda ()
(setq html-helper-timestamp-hook
'glf-html-helper-insert-timestamp)
)))
;; end html-helper-mode goodies
;; Cascading Style Sheets mode
(message ".emacs: do css-mode")
(autoload 'css-mode "css-mode")
;;
;;Javascript mode
;;
;;(message ".emacs: do Javascript mode")
;;(autoload 'js "js-mode" "javascript mode" t)
;;
;; Html Tidy
;;
;; based on Pete Gelbman's tip referenced on Html Tidy page
;; at http://www.w3.org/People/Raggett/tidy/
(setq shell-command-default-error-buffer "tidy-errors") ; define an
error buffer
(defun tidy-region ()
"Run Tidy HTML parser on current region."
(interactive)
(let ((start (mark))
(end (point))
(command "tidy --wrap 0 --logical-emphasis true --markup no"))
(shell-command-on-region start end command t t
shell-command-default-error-buffer)))
(defun tidy-buffer ()
"Run Tidy HTML parser on current region."
(interactive)
(let ((start (point-min))
(end (point-max))
(command "tidy -upper --wrap 72 --logical-emphasis yes --indent
auto"))
(shell-command-on-region start end command t t
shell-command-default-error-buffer)))
;; end Html Tidy
;;
;; file-extension-to-mode bindings
;;
(message "setup file binding")
(setq auto-mode-alist
(append
'(
( "\\.docbook$" . sgml-mode )
( "\\.sgml$" . sgml-mode )
( "\\.dsl$" . scheme-mode )
( "\\.py$" . python-mode )
; ( "\\.js$" . js-mode )
( "\.s?html?s?$" . html-helper-mode )
( "\.css$" . css-mode )
( "\\.sqlj$" . jde-mode )
( "\\.sqlj$" . jde-mode )
( "\\.sqc$" . c++-mode )
( "\.c[px+]*$" . c++-mode )
( "\.h[px+]*$" . c++-mode )
( "\.idl\\>" . c++-mode )
( "\.tl[hbi]\\>" . c++-mode )
("\\.\\([pP][Llm]\\|al\\)$" . perl-mode)
) auto-mode-alist))
;;;
;;; Version Control
;;;
;;
;; Perforce P4
;;
(if (string-equal my-system-found work-laptop1)
(progn
(message ".emacs: do p4")
(require 'p4)
(p4-set-p4-executable "d:/Program Files/Perforce/p4.exe")))
;;;
;;; Custom
;;;
(message ".emacs: do custom-set-variables")
(custom-set-variables
'(w32-print-gs-device-dpi (quote 300))
'(recentf-max-menu-items 20)
'(jde-compile-option-debug (quote ("all" (t nil nil))))
'(explicit-shell-file-name shell-file-name t)
'(w32-print-enable-control-p-map nil)
'(tags-table-list (quote ("~/TAGS" "./TAGS" "./tags")) t)
'(w32-print-zap-spool-file t)
'(w32-print-enable-keymappings nil)
'(w32-print-psnup-enabled t)
'(w32-print-psnup-spool-file "d:/tmp/psnupspool.ps")
'(explicit-sh-args (quote ("-login" "-i")) t)
'(w32-print-gs-view-path "d:/progra~1/gs/ghostgum/gsview")
'(w32-print-ps-right-hdr (list "/pagenumberstring load" (quote
time-stamp-mon-dd-yyyy)))
'(w32-print-psnup-path "d:/bin")
'(completions-file-versions-kept 5)
'(shell-file-name "bash")
'(tags-loop-revert-buffers t)
'(w32-print-psnup-margin "0in")
'(w32-print-use-faces nil)
'(w32-print-buffer-header-frame t)
'(w32-print-ps-spool-file "d:/tmp/psspool.ps")
'(w32-print-gs-destination "//print-waterloo/pr-wat-04")
'(backward-delete-char-untabify-method nil)
'(w32-print-enable-menumappings nil)
'(w32-print-gs-version "6.50")
'(w32-print-ps-destination "//print-waterloo/pr-wat-04")
'(jde-jdk-doc-url "")
'(recentf-max-saved-items 25)
'(w32-print-psnup-command "D:/bin/psnup.exe")
'(w32-print-gs-view-command
"d:/progra~1/gs/ghostgum/gsview/gsview32.exe")
'(sort-fold-case t)
'(comint-buffer-maximum-size 10240)
'(tempo-interactive t)
'(next-line-add-newlines nil)
'(w32-print-gs-path "d:/progra~1/gs/gs5.10")
'(w32-print-gs-lib
"d:/progra~1/gs/gs6.50;d:/progra~1/gs/gs6.50/fonts")
'(w32-print-ps-code-font-size 8.0)
'(jde-jdk-registry (quote (("1.1" . "d:\\jdk\\1.1.8") ("1.2" .
"d:\\jdk\\1.2.2") ("1.3" . "d:\\jdk\\1.3"))))
'(w32-print-gs-command "d:/progra~1/gs/gs6.50/bin/gswin32c.exe"))
(custom-set-faces
'(vhdl-font-lock-enumvalue-face ((((class color) (background dark))
(:foreground "BurlyWood"))))
'(jde-java-font-lock-number-face ((((class color) (background dark))
(:foreground "LightSalmon"))))
'(blank-space-face ((t (:underline t :foreground "yellow"))))
'(vhdl-font-lock-attribute-face ((((class color) (background dark))
(:foreground "LightSteelBlue"))))
'(vhdl-font-lock-translate-off-face ((((class color) (background
dark)) (:background "DimGray"))))
'(font-lock-comment-face ((((class color) (background dark))
(:foreground "OrangeRed"))))
'(vhdl-font-lock-directive-face ((((class color) (background dark))
(:foreground "Aquamarine"))))
'(font-lock-string-face ((((class color) (background dark))
(:foreground "LightSalmon"))))
'(blank-tab-face ((t (:underline t :foreground "purple"))))
'(font-lock-keyword-face ((((class color) (background dark))
(:foreground "Cyan"))))
'(font-lock-warning-face ((((class color) (background dark)) (:bold t
:foreground "Pink"))))
'(font-lock-constant-face ((((class color) (background dark))
(:foreground "AquaMarine"))))
'(jde-java-font-lock-link-face ((t (:italic nil :underline t
:foreground "cyan3"))))
'(font-lock-type-face ((((class color) (background dark)) (:foreground
"PaleGreen"))))
'(vhdl-font-lock-function-face ((((class color) (background dark))
(:foreground "Orchid1"))))
'(vhdl-font-lock-reserved-words-face ((((class color) (background
dark)) (:bold t :foreground "Yellow"))))
'(modeline ((t (:foreground "white" :background "Blue"))))
'(font-lock-variable-name-face ((((class color) (background dark))
(:foreground "LightGoldenrod"))))
'(vhdl-font-lock-prompt-face ((((class color) (background dark))
(:bold t :foreground "Pink"))))
'(font-lock-function-name-face ((((class color) (background dark))
(:foreground "LightSkyBlue"))))
'(font-lock-builtin-face ((((class color) (background dark))
(:foreground "LightSteelBlue")))))
(message ".emacs: do misc settings")
(toggle-uniquify-buffer-names)
(iswitchb-default-keybindings)
(require 'ibs)
(put 'set-goal-column 'disabled t)
(autoload 'shell-command "shell-command" "" t)
(setq inhibit-startup-message t)
;; Here is some "Are you sure you want to quit?" code from the NT/Emacs
page
;;
(message ".emacs: do kill-emacs-query-function")
(setq kill-emacs-query-functions
(cons (lambda () (y-or-n-p "Are you sure you want to quit?
"))
kill-emacs-query-functions))
;;; Line to top of window;
;;; replace three keystroke sequence C-u 0 C-l
(defun line-to-top-of-window ()
"Move the line point is on to top of window."
(interactive)
(recenter 0))
;;;
;;; SetNu -- Set Line Numbers mode
;;;
;(require 'setnu) ;converted to autoload
(autoload 'setnu-mode "setnu" "show line numbers mode" t )
;;;
;;; BUildFile FInder
;;;
;;; - see buffi-build key binding below
;;;
(require 'buffi)
;;;
;;; Misc. key mappings
;;;
(message ".emacs: global key bindings")
(global-set-key "\C-x\C-b" 'electric-buffer-list)
(global-set-key "\C-xt" 'tidy-buffer)
(global-set-key "\C-x\M-t" 'tidy-region)
(global-set-key "\C-cu." 'browse-url-at-point)
(global-set-key "\C-cub" 'browse-url-of-buffer)
(global-set-key "\C-c\C-zr" 'browse-url-of-region)
(global-set-key "\C-c\C-zu" 'browse-url)
(global-set-key "\C-cuf" 'browse-url-of-file)
(global-set-key "\C-x\O" 'other-window-backward)
(global-set-key [M-f1] 'shell-toggle)
(global-set-key [C-f1] 'shell-toggle-cd)
(global-set-key [M-f4] 'save-buffers-kill-emacs) ; Windows
keystrokes...
(global-set-key [f3] 'insert-date)
(global-set-key [S-f3] 'insert-time-and-date)
(global-set-key [M-f3] 'setnu-mode)
(global-set-key [f4] 'insert-time-and-date)
(global-set-key [f5] 'flyspell-mode)
(global-set-key [f6] 'speedbar-get-focus)
(global-set-key [M-f7] 'woman-find-file)
;;(global-set-key [f7] 'compile) ; standard IDE compile key
(global-set-key [f7] 'buffi-build) ; use BUFFI !!
(global-set-key [f8] 'blank-mode)
(global-set-key [f9] 'line-to-top-of-window)
(global-set-key [f10] 'call-last-kbd-macro)
(global-set-key [f11] 'goto-line)
(global-set-key [f12] 'query-replace-regexp)
(global-set-key [C-tab] 'ibs-select)
(global-set-key [M-space] 'dabbrev-expand)
;;;
;;; My misc. elisp functions
;;;
(message ".emacs: defining GLF functions")
(defun glf-get-initials-from-string(arg-str)
"Returns a string which contains only the first character of each
word in
the given string."
(interactive "Get initials from the string: ")
(progn
(let
(
(str-list (split-string arg-str))
(ret-str "")
)
(while (car str-list)
(setq ret-str (concat ret-str (substring (car str-list) 0 1)))
(setq str-list (cdr str-list)))
(concat ret-str)
)
))
(defun glf-short-current-time-zone()
"Returns the current-time-zone's initials (e.g. EST instead of
Eastern Standard Time)"
(interactive)
(progn
(let (
(retval (glf-get-initials-from-string (nth 1
(current-time-zone))))
)
(when (interactive-p)
(message (concat "Current time zone is: " retval)))
(concat retval))
))
(message ".emacs: done.")
;; End .emacs
=====end inserted .emacs file
=====
Greg Fenton
[EMAIL PROTECTED]
__________________________________________________
Do You Yahoo!?
Send FREE video emails in Yahoo! Mail!
http://promo.yahoo.com/videomail/
