I hope that I am doing the correct steps here. I hate sending
big long emails if the output isn't needed, but only Paul can
tell if it is needed or not, so I will send it along. Please let
me know if I am not following the correct etiquette.
I don't believe I have a bug, but I am using the submit problem
report which outputs "details of your bug report here".
Please enter the details of your bug report here
This function seems to expect the semantic-overlay-start alias to
overlay-start function.
When I try to create a javadoc comment section., I get
Symbol's function definition is void: semantic-overlay-start
I found this semantic-overlay-start alias in the semantic-1.3
which isn't supported by jde 2.2.5.
I assume something quite obvious is in the documentation that I
am missing?
Emacs : GNU Emacs 20.7.1 (i386-*-nt4.0.1381)
of Tue Jun 13 2000 on buffy
Package: JDE version 2.2.5
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-which-method-format '("[" jde-which-method-current "]")
jde-run-classic-mode-vm nil
jde-javadoc-gen-nodeprecatedlist nil
jde-which-method-max-length 20
jde-imenu-include-classdef t
jde-javadoc-gen-link-online nil
jde-jcb-show-class-file-extension t
jde-gen-code-templates '(("Get Set Pair" . jde-gen-get-set) ("toString method" .
jde-gen-to-string-method)
("Action Listener" . jde-gen-action-listener) ("Window
Listener" . jde-gen-window-listener)
("Mouse Listener" . jde-gen-mouse-listener)
("Mouse Motion Listener" . jde-gen-mouse-motion-listener)
("Inner Class" . jde-gen-inner-class)
("println" . jde-gen-println) ("beep" . jde-gen-beep)
("property change support" . jde-gen-property-change-support)
("EJB Entity Bean" . jde-gen-entity-bean) ("EJB Session
Bean" . jde-gen-session-bean))
jde-gen-cflow-else '("(if (jde-parse-comment-or-quoted-p)" "'(l \"else\")" "'(l '>
\"else \"" "(if jde-gen-k&r " "()"
"'>'n)" "\"{\"'>'n'>'r'n" "\"} // end of else\"'>'n'>)" ")")
jde-make-args ""
jde-javadoc-gen-destination-directory "JavaDoc"
jde-mode-line-format '("-" mode-line-mule-info mode-line-modified
mode-line-frame-identification
mode-line-buffer-identification " " global-mode-string "
%[(" mode-name mode-line-process
minor-mode-alist "%n" ")%]--" (line-number-mode "L%l--")
(column-number-mode "C%c--") (-3 . "%p")
(jde-which-method-mode ("--" jde-which-method-format "--"))
"-%-")
jde-mode-abbreviations '(("ab" . "abstract") ("bo" . "boolean") ("br" . "break")
("by" . "byte") ("byv" . "byvalue")
("cas" . "cast") ("ca" . "catch") ("ch" . "char") ("cl" .
"class") ("co" . "const")
("con" . "continue") ("de" . "default") ("dou" . "double")
("el" . "else") ("ex" . "extends")
("fa" . "false") ("fi" . "final") ("fin" . "finally") ("fl"
. "float") ("fo" . "for")
("fu" . "future") ("ge" . "generic") ("go" . "goto") ("impl"
. "implements") ("impo" . "import")
("ins" . "instanceof") ("in" . "int") ("inte" . "interface")
("lo" . "long") ("na" . "native")
("ne" . "new") ("nu" . "null") ("pa" . "package") ("pri" .
"private") ("pro" . "protected")
("pu" . "public") ("re" . "return") ("sh" . "short") ("st" .
"static") ("su" . "super")
("sw" . "switch") ("sy" . "synchronized") ("th" . "this")
("thr" . "throw") ("throw" . "throws")
("tra" . "transient") ("tr" . "true") ("vo" . "void") ("vol"
. "volatile") ("wh" . "while"))
jde-imenu-enable t
jde-jcb-show-method-argument-types t
jde-compile-option-verbose nil
jde-db-option-heap-size '((1 . "megabytes") (16 . "megabytes"))
jde-bug-debugger-host-address "GBOYER_L00"
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-jcb-window-sync t
jde-javadoc-gen-nonavbar nil
jde-javadoc-gen-nohelp nil
jde-jcb-class-in-packages-buffer-face '(foreground-color . "green")
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 AbstractAction(\\\"Exit\\\") \""
"(if jde-gen-k&r " "()" "'>'n)"
"\"{\"'>'n" "\"public void
actionPerformed(ActionEvent e) \"" "(if jde-gen-k&r " "()"
"'>'n)" "\"{\"'>'n" "\"System.exit(0);\" '>'n"
"\"}\" '>'n" "\"});\" '>'n"
"\"mb.add(menu);\" '>'n" "\"return mb;\" '>'n"
"\"}\"'>'n " "\"} // \"'>"
"(file-name-sans-extension (file-name-nondirectory
buffer-file-name))" "'>'n")
jde-bug-key-bindings '(("[? ? ?]" . jde-bug-step-over) ("[? ? ?]" .
jde-bug-step-into)
("[? ? ?]" . jde-bug-step-into-all) ("[? ? ?]" .
jde-bug-step-out)
("[? ? ?]" . jde-bug-continue) ("[? ? ?]" .
jde-bug-toggle-breakpoint))
jde-compile-finish-hook '(jde-compile-finish-refresh-speedbar
jde-compile-finish-flush-completion-cache)
jde-compile-option-nowarn nil
jde-setnu-mode-threshold 20000
jde-run-java-vm-w "javaw"
jde-compile-option-encoding nil
jde-run-option-java-profile '(nil . "./java.prof")
bsh-startup-timeout 10
jde-bug-jpda-directory ""
jde-read-compile-args nil
jde-run-java-vm "java"
jde-db-option-verbose '(nil nil nil)
jde-which-method-class-min-length 4
jde-db-read-app-args 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 nil
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-jcb-show-method-return-type nil
jde-global-classpath nil
jde-jcb-class-file-regexp ".*\\.\\(java\\|el\\|c\\|cc\\|h\\|hh\\|txt\\|html\\)$"
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-jcb-show-classes-in-packages-buffer nil
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 that takes Object values.\" '>'n" "\"*
No event is fired if old and new are equal and non-null.\" '>'n" "\"*\" '>'n \"*
@param propertyName The programmatic name of the property that was changed\" '>'n"
"\"* @param oldValue The old value of the property\" '>'n" "\"* @param newValue The
new value of the property.\" '>'n \"*/\" '>'n" "\"public void
firePropertyChange(String propertyName, int oldValue, int newValue) \"" "(if
jde-gen-k&r " "()" "'>'n)" "\"{\"'>'n" "'> \"pcs.firePropertyChange(propertyName,
oldValue, newValue);\" '>'n \"}\" '>'n '>'n" "\"/**\" '>'n\"* Reports a bound property
update to any registered listeners. \" '>'n" "\"* No event is fired if old and new are
equal and non-null.\" '>'n" "\"* This is merely a convenience wrapper around the more
general\" '>'n" "\"* firePropertyChange method that takes Object values.\" '>'n" "\"*
No event is fired if old and new are equal and non-null.\" '>'n" "\"*\" '>'n \"*
@param propertyName The programmatic name of the 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 "^.*: thread=.*, \\(\\(.*[.]\\)*\\)\\([^$]*\\)\\($.*\\)*[.].+(),
line=\\([0-9]*\\),"
jde-gen-mouse-motion-listener-template '("(end-of-line) '& (P \"Component name: \")"
"\".addMouseMotionListener(new
MouseMotionAdapter() \"" "(if jde-gen-k&r " "()"
"'>'n)" "\"{\"'>" "'>'n \"public void
mouseDragged(MouseEvent e) \""
"(if jde-gen-k&r " "()" "'>'n)" "\"{\"'>'n"
"\"}\"'>"
"'>'n \"public void mouseMoved(MouseEvent e)
\"" "(if jde-gen-k&r " "()" "'>'n)"
"\"{\"'>'n" "\"}\"'>" "'>'n \"});\"'>'n'>")
jde-key-bindings '(("[? ? ?]" . jde-run-menu-run-applet) ("[? ? ?]" . jde-build)
("[? ? ?]" . jde-compile) ("[? ? ?]" . jde-debug)
("[? ? ?]" . jde-wiz-implement-interface) ("[? ? ?j]" .
jde-javadoc-generate-javadoc-template)
("[? ? ? ]" . bsh) ("[? ? ?\f]" . jde-gen-println) ("[? ?
?]" . jde-browse-jdk-doc)
("[? ? ?]" . jde-save-project) ("[? ? ?]" .
jde-wiz-update-class-list)
("[? ? ?]" . jde-run) ("[? ? ?]" . speedbar-frame-mode)
("[? ? ?]" . jde-db-menu-debug-applet) ("[? ? ?]" .
jde-help-symbol)
("[? ? ?]" . jde-show-class-source) ("[? ? ?]" .
jde-wiz-find-and-import)
("[(control c) (control v) (control ?.)]" .
jde-complete-at-point-menu)
("[(control c) (control v) ?.]" . jde-complete-at-point))
jde-jcb-source-path nil
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-javadoc-display-doc t
jde-db-debugger '("jdb" "" . "Executable")
jde-jdk-doc-url "http://www.javasoft.com/products/jdk/1.1/docs/index.html"
jde-gen-cflow-enable t
jde-compiler "javac"
jde-javadoc-gen-verbose nil
jde-javadoc-describe-method-template '("* Describe " (jde-javadoc-code name) " method
here.")
jde-gen-class-buffer-template '("(funcall jde-gen-boilerplate-function) '>'n"
"\"/**\" '>'n" "\" * \""
"(file-name-nondirectory buffer-file-name) '>'n" "\"
*\" '>'n" "\" *\" '>'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-entering-java-buffer-hook '(jde-reload-project-file
jde-which-method-update-on-entering-buffer)
jde-jcb-excluded-packages-regexp ".*CVS.*"
jde-javadoc-gen-doc-title ""
jde-javadoc-gen-header ""
jde-run-option-vm-args nil
jde-javadoc-gen-window-title ""
jde-compile-option-directory ""
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-auto-sort-imports nil
jde-bug-debugger-command-timeout 10
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) '&" "\"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-which-method-mode t
jde-gen-k&r t
jde-javadoc-gen-bottom ""
jde-javadoc-gen-footer ""
jde-db-option-classpath nil
jde-gen-cflow-for '("(if (jde-parse-comment-or-quoted-p)" "'(l \"for\")"
"'(l '> \"for (\" (p \"for-clause: \" clause) \") \"" "(if
jde-gen-k&r " "()" "'>'n)" "\"{\"'>'n'>'r'n"
"\"} // end of for (\" (s clause) \")\"'>'n'>)" ")")
jde-jcb-use-dedicated-windows t
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"
"'>'\"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-jcb-package-indent 2
jde-db-mode-hook nil
jde-javadoc-command-path "javadoc"
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-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-auto-parse-buffer-interval 10
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-jcb-truncate-lines t
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-auto-parse-enable t
jde-compile-option-command-line-args ""
jde-jcb-sort-methods t
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
Commands: d, s, x, u; f, o, 1, 2, m, v; ~, %; q to quit; ? for help.
Mark set [3 times]
Fontifying semantic-imenu.el...
Fontifying semantic-imenu.el... (regexps............)
Mark saved where search started
No tags containing semantic-overlay-start
Making completion list... [2 times]
No tags containing semantic-overlay-start
Fontifying semantic-mode.el...
Fontifying semantic-mode.el... (regexps............)
Mark saved where search started
Fontifying semantic-util.el...
Fontifying semantic-util.el... (regexps............)
Auto-saving...
I-search: semantic-overlay
Mark saved where search started
Fontifying semantic.el...
Fontifying semantic.el... (regexps............)
Mark saved where search started
Commands: d, s, x, u; f, o, 1, 2, m, v; ~, %; q to quit; ? for help. [2 times]
Mark set
Mark saved where search started
Fontifying cl-macs.el...
Fontifying cl-macs.el... (regexps............)
Mark set
Quit
Mark set
Commands: d, s, x, u; f, o, 1, 2, m, v; ~, %; q to quit; ? for help.
Auto-saving...
Auto-saving...done
Loading dabbrev...
Loading dabbrev...done
Commands: d, s, x, u; f, o, 1, 2, m, v; ~, %; q to quit; ? for help.
Reading directory c:/emacs/site-lisp/packages/semantic/...
Reading directory c:/emacs/site-lisp/packages/semantic/...done
Omitting...
Omitted 1 line.
Fontifying semantic...
Fontifying semantic... (regexps.......)
Omitted 1 line.
Mark set
Quit
Mark set [3 times]
Auto-saving...
Auto-saving...done
Commands: d, s, x, u; f, o, 1, 2, m, v; ~, %; q to quit; ? for help.
Preparing problem report...
Formatting bug report buffer...
Formatting bug report buffer..................................
Mark set
End Insert *Messages* buffer
Process environment:
MAILHOST=mail01.primix.com
TERM=cmd
EMACSDOC=C:/emacs/emacs-20.7/etc
EMACSLOCKDIR=C:/emacs/emacs-20.7/lock
EMACSPATH=C:/emacs/emacs-20.7/bin
EMACSDATA=C:/emacs/emacs-20.7/etc
SHELL=C:/emacs/emacs-20.7/bin/cmdproxy.exe
EMACSLOADPATH=C:/emacs/emacs-20.7/site-lisp;C:/emacs/emacs-20.7/lisp;C:/emacs/emacs-20.7/leim
TMPDIR=C:\TEMP
windir=C:\WINNT
WIN32DMIPATH=C:\DMINT40\Win32
USERPROFILE=C:\WINNT\Profiles\gboyer
USERNAME=gboyer
USERDOMAIN=OWAV
TMP=C:\TEMP
TEST7HOME=C:\Program Files\Rational\Rational Test 7
TEMP=C:\TEMP
SystemRoot=C:\WINNT
SystemDrive=C:
PROCESSOR_REVISION=0801
PROCESSOR_LEVEL=6
PROCESSOR_IDENTIFIER=x86 Family 6 Model 8 Stepping 1, GenuineIntel
PROCESSOR_ARCHITECTURE=x86
PATHEXT=.COM;.EXE;.BAT;.CMD;.VBS;.JS
PATH=c:/emacs/bin;c:/cygwin/bin;c:/emacs/emacs-20.7/bin;.;C:/cygwin/bin;c:/emacs/emacs-20.7/bin;C:/MSSQL7/BINN;c:/java/jdk/jdk1.2.2/bin;c:/WINNT/system32;c:/WINNT
Os2LibPath=C:\WINNT\system32\os2\dll;
OS=Windows_NT
NUMBER_OF_PROCESSORS=1
LOGONSERVER=\\OW56
LIB=C:\Program Files\Mts\Lib
INCLUDE=C:\Program Files\Mts\Include
HOMEPATH=\
HOMEDRIVE=C:
HOME=c:\emacs\home
emacs_dir=C:/emacs/emacs-20.7
CVSROOT=c:\emacs\home
COMSPEC=C:\WINNT\system32\cmd.exe
COMPUTERNAME=GBOYER_L00
CLASSPATH=.;c:\java\jdk\jdk1.2.2\bin;C:\java\saffron\saffron.jar;C\java\saffron\osaffron.jar;C:\java\saffron\dsaffron.jar
;Path=C:\WINNT\system32;C:\WINNT
The contents of the .emacs file was
(setq debug-on-error t)
;;{{{ Paths
;; THIS IS WHERE I TRY TO HELP EVERYBODY OUT IN GETTING SET UP TO
;; USE EMACS.
;; You should be able to leave this section alone.
;; We don't want to mess up any other variables that might be
;; used. emacs-* could very easily be used to initialize emacs
;; so I chose to prepend all initialization variables with
;; site-emacs*
(setq site-emacs-dir "c:/emacs")
(setq site-emacs-version-dir (concat site-emacs-dir "/emacs-20.7"))
(setq site-emacs-lisp-dir (concat site-emacs-dir "/site-lisp"))
(setq site-emacs-packages-dir (concat site-emacs-dir "/site-lisp/packages"))
(setq site-emacs-lisp-dir (concat site-emacs-dir "/site-lisp/el"))
(setq site-cygwin-dir "c:/cygwin")
;; This variable came set by the current emacs version. If we
;; move to another version, need to set this to the other
;; version. Why? So that we can reset the load-path variable
;; based on different paths.
;;
;; Why did we make a function out of this. So that we could
;; reset the load-path-* variables whenever we needed to test
;; this area of code
(defun set-load-path ()
(setq load-path (list
(concat site-emacs-version-dir "/site-lisp")
(concat site-emacs-version-dir "/lisp")
(concat site-emacs-version-dir "/lisp/textmodes")
(concat site-emacs-version-dir "/lisp/progmodes")
(concat site-emacs-version-dir "/lisp/play")
(concat site-emacs-version-dir "/lisp/mail")
(concat site-emacs-version-dir "/lisp/language")
(concat site-emacs-version-dir "/lisp/international")
(concat site-emacs-version-dir "/lisp/gnus")
(concat site-emacs-version-dir "/lisp/emulation")
(concat site-emacs-version-dir "/lisp/emacs-lisp")
(concat site-emacs-version-dir "/lisp/calendar")
(concat site-emacs-version-dir "/leim"))))
(defun cons-load-path (dir)
(if (file-directory-p (concat dir "/lisp"))
(setq load-path (cons (concat dir "/lisp") load-path))
(setq load-path (cons dir load-path))))
(defun cons-load-path-packages (distribution version)
; (interactive "sDirectory: ")
(cons-load-path (concat site-emacs-packages-dir "/" distribution "/" distribution
"-" version)))
(set-load-path) ;load-path
(cons-load-path "~/")
(cons-load-path (concat site-emacs-packages-dir "/el"))
(cons-load-path (concat site-emacs-packages-dir "/el/web"))
(cons-load-path-packages "gnus" "5.8.7")
(cons-load-path-packages "w3" "4.0pre.23")
(cons-load-path-packages "psgml" "1.2.1")
(cons-load-path-packages "bbdb" "2.00.06")
(cons-load-path-packages "eieio" "0.12")
(cons-load-path-packages "jde" "2.2.5")
(cons-load-path-packages "semantic" "1.2.1")
(cons-load-path-packages "speedbar" "0.12")
(cons-load-path-packages "elib" "1.0")
(cons-load-path-packages "jde-completion" "0.1")
(cons-load-path-packages "jde-jcb" "0.04")
(cons-load-path-packages "jacob" "26.89")
(setq load-path (cons (concat site-emacs-packages-dir "/sqlmodes") load-path))
(setq load-path (cons site-emacs-lisp-dir load-path))
(setq user-home
(concat (getenv "WINDIR") "/profiles/" (user-login-name) "/"))
;; This is where the info for all the addon packages should be stored.
(setq Info-default-directory-list
(cons (concat site-emacs-dir "/doc/info") Info-default-directory-list))
;; This is the directory for primix specific documentation
(setq Info-default-directory-list
(cons (concat site-emacs-dir "/doc/info/primix") Info-default-directory-list))
;; This gives us info from cygwin, gcc, cpp, g77
(setq Info-default-directory-list
(cons (concat site-cygwin-dir "/info") Info-default-directory-list))
(setq site-exec-path
(list
; The bin for all the compiled executables from packages.
; Let this override the other bins.
(concat site-emacs-dir "/bin")
; Bin from the cygwin executables
(concat site-cygwin-dir "/bin")
; Bin for emacs itself.
(concat site-emacs-version-dir "/bin")
))
;; This is to set up the local-exec-path as a variable to be defined in the local
section
;; The exec-path is used to override the path variable set in your environment through
the system
;; interface.
(setq local-exec-path (append site-exec-path))
;;{{{ EDIT THIS, Local exec-path
;; Here is where you define the path variable.
;; This will override the PATH variable set within windows for this emacs session
(setq local-exec-path
(list
"."
"C:/cygwin/bin"
"c:/emacs/emacs-20.7/bin"
"C:/MSSQL7/BINN"
"c:/java/jdk/jdk1.2.2/bin"
"c:/WINNT/system32"
"c:/WINNT"))
;; This appends the addon paths to your own path variables.
(setq exec-path (append site-exec-path local-exec-path))
(setenv "PATH" (mapconcat 'identity exec-path path-separator))
;;}}}
;;}}}
;;{{{ Look and Feel
;;{{{ Faces
(interactive)
(if window-system
(progn
(set-background-color "cornsilk")
(set-foreground-color "black")
(set-cursor-color "magenta")))
(custom-set-faces
'(w3-style-face-00013 ((t (:foreground "navy blue"))) t)
'(w3-style-face-00000 ((t (:foreground "navy blue"))) t)
'(gnus-header-name-face ((((class color) (background dark)) (:foreground "cyan"))))
'(font-lock-comment-face ((t (:foreground "dark green"))))
'(message-header-to-face ((t (:bold t :foreground "DarkGoldenrod4"))))
'(font-lock-string-face ((t (:bold t :foreground "orange3"))))
'(info-xref ((t (:bold t :foreground "dark blue"))))
'(gnus-header-content-face ((((class color) (background dark)) (:italic t :foreground
"antique white"))))
'(font-lock-keyword-face ((t (:foreground "dark blue"))))
'(font-lock-warning-face ((t (:bold t :foreground "#ff0000"))))
'(font-lock-constant-face ((t (:foreground "dark red"))))
'(info-menu-5 ((t (:bold nil :underline t :foreground "blue"))))
'(font-lock-type-face ((t (:foreground "dark cyan"))))
'(message-header-name-face ((t (:foreground "medium blue"))))
'(highlight ((t (:background "medium sea green"))))
'(info-node ((t (:bold t :italic t :foreground "red"))))
'(message-header-cc-face ((t (:foreground "purple"))))
'(message-header-subject-face ((t (:bold t :foreground "dark turquoise"))))
'(font-lock-variable-name-face ((t (:foreground "dark blue"))))
'(font-lock-function-name-face ((t (:foreground "red"))))
'(message-header-newsgroups-face ((t (:bold t :italic t :foreground "navy"))))
'(message-separator-face ((t (:foreground "snow4"))))
'(message-header-other-face ((t (:foreground "dark red"))))
'(font-lock-builtin-face ((t (:bold t :foreground "navy"))))
'(message-cited-text-face ((t (:foreground "DeepPink1")))))
; Play around with this. It highlights a selected region, search
; text from C-s C-w, subsequent occurrences of the search text,
; and probably other things I now take for granted.
(set-face-foreground 'highlight "black")
(set-face-background 'highlight "green")
(set-face-foreground 'region "black")
(set-face-background 'region "red")
(set-face-foreground 'secondary-selection nil)
(set-face-background 'secondary-selection nil)
(setq-default search-highlight t)
(copy-face 'highlight 'isearch)
(setq-default query-replace-highlight t)
(require 'ishl)
(ishl-mode t)
;(setq-default ishl-cleanup nil)
(setq info-fontify t)
(require 'cl)
(eval-when-compile
(if (string-match "XEmacs" emacs-version)
(byte-compiler-options
(warnings (- unresolved))))
(defvar font-lock-auto-fontify)
(defvar global-font-lock-mode))
(global-font-lock-mode)
(defun get-face ()
"Find the font lock face under the point."
(interactive)
(let ((pos (point))
(face nil))
(setq face (get-text-property pos 'face))
(message "%s" face)
face)
)
;;;======================================================================
;;; function to paste the font dialog selection into the buffer
;;;======================================================================
; This commmand will call up the font dialog box and then insert at point
; the x-style name of the selected font.
(defun get-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)))
)
;;}}}
;;{{{ Frames
;;======================================================================
;; Set the frame's title. %b is the name of the buffer. %+ indicates the
;; state of the buffer: * if modified, % if read only, or - otherwise. Two
;; of them to emulate the mode line. %f for the file name.
;;======================================================================
(setq frame-title-format "Emacs: %b %+%+ %f")
(setq icon-title-format "Emacs - %b")
(setq default-frame-alist '((height . 58) (width . 90)
(cursor-color . "red")
(top . 61) (left . 65)
(font . "-*-Courier New-normal-r-*-*-13-*-*-*-c-*")
))
(put 'narrow-to-region 'disabled nil)
(put 'set-goal-column 'disabled nil)
(desktop-load-default)
(desktop-read)
;;}}}
;;{{{ Closing Emacs
;; I actually type sloppily enough that I hit C-xC-c by accident.
;; Add Emacs close confirmation
;; NOTE: Rerunning your .emacs will append another exit query. This
;; is both annoying and confusing but I'm too lazy to fix it.
(setq kill-emacs-query-functions
(cons (lambda () (yes-or-no-p "Really kill Emacs? "))
kill-emacs-query-functions))
;;}}}
;;{{{ Scrolling
; Automatically scroll horizontally when the point moves off the left
; or right edge of the window
(hscroll-global-mode)
;; add hscroll-mode to all the other modes' hooks
;(add-hook 'text-mode-hook 'hscroll-mode)
(add-hook 'shell-mode-hook 'hscroll-mode)
(add-hook 'sqlplus-mode-hook 'hscroll-mode)
;; Make sure all buffers have horizontal scrolling.
(require 'auto-show)
(setq-default auto-show-mode t)
(auto-show-mode 1)
; (add-hook 'post-command-hook 'hscroll-point-visible)
;;}}}
;;{{{ ^M's
;;======================================================================
;; How do I prevent ctrl-m's from being printed in the shell? If
;; you are getting ctrl-m's printed in the shell buffer, try
;; adding the following to your startup file:
;;======================================================================
(add-hook 'comint-output-filter-functions 'shell-strip-ctrl-m nil t)
;; Get rid of ^M in shell buffer
;;
(setq binary-process-input t)
(font-lock-add-keywords nil '(("^M" . font-lock-warning-face)))
;;======================================================================
;; Functions to convert the line endings. Uses the eol-conversion
;; package by Francis Wright <[EMAIL PROTECTED]>
;;======================================================================
(require 'eol-conversion)
(defun d2u ()
(interactive)
(if (y-or-n-p "Convert DOS to Unix format?")
(set-buffer-eol-conversion 'unix)
(message "format unchanged")
))
(defun u2d ()
(interactive)
(if (y-or-n-p "Convert Unix to DOS format?")
(set-buffer-eol-conversion 'dos)
(message "format unchanged")
))
;;; set the directory separator character
(setq eol-mnemonic-dos "\\")
(setq eol-mnemonic-unix "/")
(setq eol-mnemonic-mac ":")
(setq eol-mnemonic-undecided "?")
;;======================================================================
;; Uses [f7] to cycle through EOL Conventions Came an email from
;; Francis Litterio [[EMAIL PROTECTED]] Subject:For
;; your consideration ...
;;======================================================================
(defun my-cycle-eol-conventions ()
"Cycles through three EOL conventions (DOS, Unix, and Mac) for the
current buffer without altering the character set coding."
(interactive)
(let* ((sysname (prin1-to-string buffer-file-coding-system))
(offset (string-match "\\(dos\\|unix\\|mac\\)$" sysname))
(prefix (substring sysname 0 offset))
(suffix (substring sysname offset))
(newname (concat prefix
(cond ((string= "unix" suffix) "mac")
((string= "mac" suffix) "dos")
((string= "dos" suffix) "unix")
(t (error "Unrecognized coding system: %s"
sysname))))))
(setq buffer-file-coding-system (intern newname))
(message "New coding system is %s" newname)))
;; if you encounter a file with ^M or ... at the end of every line,
;; this means a worng copy by samba or floppy disk of the DOS file to UNIX.
;; get rid of them by pressing [F5].
(defun cut-ctrlM ()
"Cut all visible ^M."
(interactive)
(beginning-of-buffer)
(while (search-forward "\r" nil t)
(replace-match "" nil t))
(not-modified)
(beginning-of-buffer))
(global-set-key [f5] 'cut-ctrlM) ; cut all ^M.
(defun eof-noreturn ()
"The point of noreturn is to get rid of extra carriage returns (^M) in
whole buffer"
(interactive)
(save-excursion
(goto-char (point-min))
(while (search-forward "\C-m" nil t)
(replace-match "" nil t))
)
)
;;}}}
;;}}}
;;{{{ Integration Specific
;;{{{ Emacs/Windows integration
;;{{{ Gnusserv
(require 'gnuserv)
(gnuserv-start)
;;--------------------------------------------------------------------------------
;; Have the associated file startup in the existing emacs session.
;
(setq gnuserv-frame (selected-frame))
;;}}}
;;{{{ Foriegn
;;;======================================================================
;;; shellex
;;;======================================================================
;;; load the shellex package, which allows emacs to launch associated
;;; apps. Use the "j" key to launch the associated app. This also
;;; associates html files within VM and Gnus to launch the default
;;; browser.
;;;======================================================================
;;; disable the default dired behavior of w32-shellex
; (setq w32-shellex-no-dired-hook t)
; (require 'w32-shellex)
; ;;; point to the shellex.exe app to avoid having to put it in the path
; (setq w32-shellex-execute-helper SHELLEX)
; ;;; map the "j" key within dired to launch the associated app
; (eval-after-load "dired"
; '(define-key dired-mode-map "j" 'w32-shellex-dired-on-objects)
; )
; ;;======================================================================
; ;; Open up windows files based on extension
; ;;======================================================================
; (require 'cl)
(defvar gb-foreign-extensions
'(
"\\.\\.$"
"\\.$"
"\\.DOC$"
"\\.PPT$"
"\\.PNG$"
"\\.PCX$"
"\\.HLP$"
"\\.BMP$"
"\\.AVI$"
"\\.WAV$"
"\\.CHM$"
"\\.GZ$"
"\\.VSD$"
"\\.LNK$"
"\\.ZIP$"
"\\.ER1$"
"\\.HTM$"
"\\.GIF$"
"\\.JPG$"
"\\.TIF$"
"\\.EXE$"
"\\.XLS$"
"\\.PPS$"
"\\.MPG$"
"\\.PDF$")
"List of regexps matching names of files that will be opened
outside of EMACS")
(defadvice find-file (around gb-foreign activate)
(interactive "FFind file: ")
(let ((case-fold-search t))
(if (some #'(lambda (x)
(string-match x filename))
gb-foreign-extensions)
(if (file-exists-p filename)
; (message filename)
(w32-shell-execute "open"
(expand-file-name filename) nil 1)
(error "Can't create file `%s'" filename))
ad-do-it)))
;;}}}
;;}}}
;;{{{ Visiting
;;--------------------------------------------------------------------------------
;; This will force the true filename to always be used as the buffer name.
;; (There is a variable `find-file-visit-truename' which should have this
;; affect, but doesn't entirely. I'll make a note to fix that.)
;;--------------------------------------------------------------------------------
(defadvice create-file-buffer (before force-true-buffer-names activate)
"Force buffer names to be true to the filename."
(ad-set-arg 0 (file-truename (ad-get-arg 0))))
;;}}}
;;{{{ Saving
;; Have emacs prompt me for saving my abbrevs
(setq-default abbrev-mode t)
(setq save-abbrevs t)
(read-abbrev-file "~/.abbrev_defs")
(setq bookmark-save-flag t)
(setq backup-by-copying-when-mismatch t)
;;======================================================================
;;Roman Belenov posted this recently. I have it in my .emacs. I like
;;it because it reduces dependencies on code that is not part of the
;;standard distribution. Hope it helps...
;;
;;Dave Gallucci
;;
;; kill trailing whitespace
;; Thanks Roman Belenov <[EMAIL PROTECTED]>
;;======================================================================
(defun kill-whitespace ()
"Kill trailing whitespace"
(interactive)
(save-excursion
(progn
(goto-char (point-min))
(while (re-search-forward "[ \t]+$" nil t)
(replace-match "" nil nil)))))
(add-hook 'write-file-hooks 'kill-whitespace)
;;}}}
;;{{{ Filling
;;======================================================================
;; FILLING
;;======================================================================
;; Turn on Auto Fill mode automatically in Text mode and
;; related modes.
(add-hook 'text-mode-hook
'(lambda () (auto-fill-mode 1)))
;;}}}
;;{{{ Comments
(setq comment-multi-line nil)
(add-hook 'c-mode-hook 'comment-multi-line t)
;;}}}
;;{{{ printing
; (setq printer-name "//atlantis/hpdj500") ; network printer
; (setq ps-printer-name "//eros/ljps300") ; network printer
; (setq ps-print-color-p nil)
; (setq lpr-command "lpr")
; (setq printer-name "printer08 on DEVEL00")
; (setq lpr-switches '("-S" "ow56"))
; (setq lpr-headers-switches "-f")
; (setq print-region-function nil)
(defvar lpr-spool-dir "c:/TEMP/"
"*Location where temporary spool files are stored.")
(defun dg-custom-print-region (start end &rest args)
"*Print region using PrintFile32"
(interactive "r")
(setq lpr-spool-file (concat lpr-spool-dir (buffer-name)))
(write-region start end lpr-spool-file)
(shell-command
(apply 'concat site-emacs-packages-dir (list "/PrintFile/prfile32.exe /q /delete"
lpr-spool-file)
))
)
(defun dg-custom-print-buffer ()
"*Print buffer using PrintFile32"
(interactive)
(setq lpr-spool-file (concat lpr-spool-dir (buffer-name)))
(write-file lpr-spool-file)
(shell-command
(apply 'concat site-emacs-packages-dir (list "Printfile/prfile32.exe /q /delete"
lpr-spool-file)
))
)
; > I vaguely recall that there is a way to tell ps-print how to print
; > some faces. Since you don't want to use color, ps-print can only use
; > italic and bold and underline. So you might wish to tell ps-print
; > which of these attributes to use for what faces.
; >
; > Maybe none of the faces you use are printed underline or something
; > like this?
; ,----
; | (setq ps-build-face-reference t)
; | (setq ps-italic-faces '(font-lock-comment-face
; | font-lock-string-face
; | font-lock-variable-name-face))
; | (setq ps-bold-faces '(font-lock-keyword-face
; | font-lock-type-face
; | font-lock-function-name-face
; | font-lock-builtin-face
; | font-lock-variable-name-face))
; | (setq ps-print-color-p nil)
; `----
; These setting should do the trick. I�m sure you can adjust them to print the
; faces like you want them.
;;}}}
;;{{{ movement
;;======================================================================
;; Don't know about this one but it looks interesting.
;; Came from mailing list. Ken Jackson [[EMAIL PROTECTED]]
;; He said:
;; Other versions of this have appeared here, but none of the ones I tried
;; worked the way I wanted. This code does just what I
;;======================================================================
;; Make C-TAB and C-S-TAB cycle through buffers in the current window
(defun ken-next-buffer ()
(interactive)
(let ((choices (cdr (buffer-list))))
;; Skip hidden buffers like " *Minibuf-0*"
(while (equal t (compare-strings (buffer-name (car choices)) 0 2 " *" 0 2))
(setq choices (cdr choices)))
(bury-buffer (car (buffer-list)))
(switch-to-buffer (car choices))))
(defun ken-prev-buffer ()
(interactive)
(switch-to-buffer (car (nreverse (buffer-list))))
(while (equal t (compare-strings (buffer-name) 0 2 " *" 0 2))
(switch-to-buffer (car (nreverse (buffer-list))))))
;; 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))))
(defun pc-keys-home ()
"Go to beginning of line/window/buffer.
First hitting key goes to beginning of line, second in a row goes to
beginning of window, third in a row goes to beginning of buffer."
(interactive)
(let* ((keys (recent-keys))
(len (length keys))
(key1 (if (> len 0) (elt keys (- len 1)) nil))
(key2 (if (> len 1) (elt keys (- len 2)) nil))
(key3 (if (> len 2) (elt keys (- len 3)) nil))
(key-equal-1 (eq key1 key2))
(key-equal-2 (and key-equal-1 (eq key2 key3))))
(cond (key-equal-2 (if mark-active
(goto-char (point-min))
(beginning-of-buffer)))
(key-equal-1 (if mark-active () (push-mark))
(move-to-window-line 0))
(t (beginning-of-line)))))
(defun pc-keys-end ()
"Go to end of line/window/buffer.
First hitting key goes to end of line, second in a row goes to end
of window, third in a row goes to end of buffer."
(interactive)
(let* ((keys (recent-keys))
(len (length keys))
(key1 (if (> len 0) (elt keys (- len 1)) nil))
(key2 (if (> len 1) (elt keys (- len 2)) nil))
(key3 (if (> len 2) (elt keys (- len 3)) nil))
(key-equal-1 (eq key1 key2))
(key-equal-2 (and key-equal-1 (eq key2 key3))))
(cond (key-equal-2 (if mark-active
(goto-char (point-max))
(end-of-buffer)))
(key-equal-1 (if mark-active () (push-mark))
(move-to-window-line -1)
(end-of-line))
(t (end-of-line)))))
(provide 'pc-keys)
;;======================================================================
;; Came from emacs mailing list.
;;
;; This function bounces between matching parens and braces
;;======================================================================
(defun joc-bounce-sexp ()
"Will bounce between matching parens "[{(<" && ">)}]" just like % in vi"
(interactive)
(let ((prev-char (char-to-string (preceding-char)))
(next-char (char-to-string (following-char))))
(cond ((string-match "[[{(<]" next-char) (forward-sexp 1))
((string-match "[\]})>]" prev-char) (backward-sexp 1))
(t (error "%s" "Not on a paren, brace, or bracket")))))
;; ----- bounce back & forth between matching parens, braces or brackets -----
;;======================================================================
;; From [EMAIL PROTECTED]
;; This will jump to matching paren like VI.
;; Dave Gallucci
;;======================================================================
;; Go to the matching parenthesis if on parenthesis otherwise insert %.
(defun match-paren (arg)
"Go to the matching parenthesis if on parenthesis otherwise insert %."
(interactive "p")
(cond ((looking-at "\\s\(") (forward-list 1) (backward-char 1))
((looking-at "\\s\)") (forward-char 1) (backward-list 1))
(t (self-insert-command (or arg 1)))))
;;}}}
;;{{{ date
; 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.
(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))))
;;}}}
;;}}}
;;{{{ Standard libraries with Emacs
;;{{{ Completion
; Show completions in the minibuffer as you type
(icomplete-mode)
;; Always have minibuffer the appropriate size. Useful for long file
;; names, etc. Courtesy of "Dr Francis J. Wright" <[EMAIL PROTECTED]>
(resize-minibuffer-mode)
(setq resize-minibuffer-window-max-height 3)
;; implements a more powerful kind of completion
;; that can complete multiple words at a time.
;;
(load "complete")
;(partial-completion-mode t)
;;}}}
;;{{{ Dired
(defun dired-open-all-subdirs ()
"Open all subdirs, recursively, in the current dired buffer."
(interactive)
(let ((dir-name nil))
(while (re-search-forward "^[ \t]*d" (point-max) t)
(setq dir-name (dired-get-filename))
(if (not (eq (string-match "\\." dir-name) 0 ))
(dired-insert-subdir dir-name)
)))
)
(add-hook 'dired-load-hook
(function (lambda ()
(load "dired-x")
(setq dired-x-hands-off-my-keys nil)
(dired-x-bind-find-file)
)))
;; This one was the default. I wanted to see the '.' and '..' files
;;
;; (setq dired-omit-files "^\\.?#\\|^\\.$\\|^\\.\\.$")
(add-hook 'dired-mode-hook
(function (lambda ()
;; Set dired-x buffer-local variables here. For example:
(setq dired-omit-files-p t)
(setq dired-omit-files "^\\.\\.$")
)))
;; Got rid of the ".log" extension. I want to see these files. All the rest I kept
;; As Emacs had. I used the describe variable functionality, copied here and then
;; deleted the ".log". This is only relevant with DIRED-X.
(setq dired-omit-extensions (list ".amz" ".ffa" ".ffl" ".ffo" ".ffx" ".sys" ".o" "~"
".bin" ".bak" ".obj" ".map" ".a" ".ln" ".blg" ".bbl" ".elc" ".lof" ".glo" ".idx"
".lot" ".dvi" ".fmt" ".class" ".fas" ".lib" ".x86f" ".toc" ".aux" ".cp" ".fn" ".ky"
".pg" ".tp" ".vr" ".cps" ".fns" ".kys" ".pgs" ".tps" ".vrs" ".idx" ".lof" ".lot"
".glo" ".blg" ".bbl" ".cp" ".cps" ".fn" ".fns" ".ky" ".kys" ".pg" ".pgs" ".tp" ".tps"
".vr" ".vrs" ".elc"))
(add-hook 'dired-load-hook
(lambda () (require 'dired-sort-menu)))
(add-hook 'dired-load-hook
(lambda () (load-library "ls-lisp")))
;;}}}
;;}}}
;;{{{ Packages
;;{{{ Addon Key bindings
(global-set-key "\C-c\M-pb" 'dg-custom-print-buffer)
(global-set-key "\C-c\M-tpr" 'dg-custom-print-region)
(global-set-key "\C-c\M-wha" 'w3-hotlist-apropos)
(global-set-key "\C-c\M-whu" 'w3-use-hotlist)
(global-set-key "\C-c\M-whr" 'w3-hotlist-rename-entry)
(global-set-key "\C-c\M-whi" 'w3-hotlist-add-document)
(global-set-key "\C-c\M-whd" 'w3-hotlist-delete)
(global-set-key "\C-c\M-wf" 'w3-fetch)
;;}}}
;;{{{ Distributions
;;{{{ shell
;;======================================================================
;; Use bash as my shell
;; Came from FAQ
;;======================================================================
(defun my-shell-setup ()
"For bash (cygwin 18) under Emacs 20"
(setq comint-scroll-show-maximum-output 'this)
(setq comint-completion-addsuffix t)
(setq comint-eol-on-send t)
(setq w32-quote-process-args ?\")
(make-variable-buffer-local 'comint-completion-addsuffix))
(setq shell-mode-hook 'my-shell-setup)
(setq process-coding-system-alist (cons '("bash" . raw-text-unix)
process-coding-system-alist))
;; For the interactive shell
(setq explicit-shell-file-name "c:/cygwin/bin/bash.exe")
;; For subprocesses invoked via the shell (e.g., "shell -c command")
; (setq shell-file-name "c:/cygnus/cygwin-b20/usr/bin/bash.exe")
(setq shell-file-name "c:/cygwin/bin/bash.exe")
;; Have shell history ignore duplicates
;;
(setq comint-input-ignoredups t)
(setq shell-command-switch "-c")
(setq explicit-sh-args '("-login" "-i"))
(if (boundp 'w32-quote-process-args)
(setq w32-quote-process-args ?\")) ;; Include only for MS Windows.
;; Scrolling due to arrival of output tries to place the last line of text at the
;; bottom line of the window, so as to show as much useful text as possible
;;
(setq comint-show-maximum-output t)
;; This might help get rid of the ^M. It came from the NT users list.
;;
(setq default-process-coding-system '(undecided-dos . undecided-unix))
; Teach EMACS about cygwin mount points
(require 'cygwin-mount)
;;}}}
;;{{{ Gnus
(setq gnus-init-file' "~/.gnus")
(autoload 'trivial-cite "tc" t t)
(require 'bbdb)
(bbdb-initialize)
(add-hook 'gnus-startup-hook 'bbdb-insinuate-gnus)
(add-hook 'mail-setup-hook 'bbdb-insinuate-sendmail)
(bbdb-insinuate-message)
(bbdb-insinuate-w3)
;;}}}
;;{{{ mail
;;--------------------------------------------------------------------------------
;; Supercite
(autoload 'sc-cite-original "supercite" "Supercite 3.1" t)
(autoload 'sc-submit-bug-report "supercite" "Supercite 3.1" t)
(setq sc-citation-leader " ")
; These MUAs, distributed with Emacs and with Lucid Emacs, use Emacs's
; built-in yanking facility, which provides the citing hook variable
; `mail-citation-hook'. By default, this hook's value is `nil', but by
; adding the following to your `.emacs' file, you can tell these MUAs to
; use Supercite to perform the citing of the original message:
(defun pop3-read-passwd (prompt)
(if (not pop3-read-passwd)
(if (load "subr" t)
(setq pop3-read-passwd 'read-passwd)
(autoload 'ange-ftp-read-passwd "ange-ftp")
(setq pop3-read-passwd 'ange-ftp-read-passwd)))
(funcall pop3-read-passwd prompt))
;;}}}
;;{{{ W3
(require 'w3-auto)
(setq url-keep-history t)
(setq url-automatic-caching t)
(setq url-standalone-mode nil)
(setq browse-url-browser-function 'browse-url-default-windows-browser)
(setq w3-reuse-buffers 'yes)
(setq ssl-program-name "s_client")
(setq w3-default-stylesheet "~/w3.css")
;;}}}
;;{{{ Telnet
(require 'telnet)
(defun telnet (host)
"Open a network login connection to host named HOST (a string).
Communication with HOST is recorded in a buffer `*telnet-HOST*'.
Normally input is edited in Emacs and sent a line at a time."
(interactive "sOpen telnet connection to host: ")
(let* ((comint-delimiter-argument-list '(?\ ?\t))
(name (concat "telnet-" (comint-arguments host 0 nil) ))
(buffer (get-buffer (concat "*" name "*")))
process)
(cond ((string-equal system-type "windows-nt")
(setq telnet-new-line "\n")))
(if (and buffer (get-buffer-process buffer))
(pop-to-buffer (concat "*" name "*"))
(pop-to-buffer (make-comint name telnet-program nil host))
(setq process (get-buffer-process (current-buffer)))
(set-process-filter process 'telnet-initial-filter)
(accept-process-output process)
(telnet-mode)
(setq comint-input-sender 'telnet-simple-send)
(setq telnet-count telnet-initial-count))))
;;}}}
;;{{{ jde
(require 'jde)
(require 'jde-jcb)
(require 'jde-completion)
(require 'semantic-c)
(require 'semantic-el)
(require 'semantic-make)
; Hi. Since I'm using (and abusing) 'jde-wiz-find-and-import', I found
; my java files with lots of import sentences (no more *'s, i don't like
; them). The problem is the disorder of that sentences (I just type my
; keystroke for 'jde-wiz-find-and-import' in each of the "class not
; found" errors. So I wrote a small lisp function to sort alphabetically
; the import sentences:
;; Find class and import and then hit return
;; Bind this to mouse-2
(fset 'jde-wiz-find-and-import-return
[?\C-c ?\C-v ?\C-z return])
(add-hook 'jde-mode-hook '(lambda () (local-set-key [(mouse-3)]
'jde-wiz-find-and-import-return)))
(fset 'jde-luis-reconfigure
[?\C-s ?{ ?\C-m ?\C-b return ?\C-f return ?\C-s ?} ?\C-m ?\C-b return ?\C-e return])
;; Sets the basic indentation for Java source files
;; to two spaces.
(defun my-jde-mode-hook ()
(setq c-basic-offset 4))
(add-hook 'jde-mode-hook 'my-jde-mode-hook)
(defun jde-sort-imports()
(interactive)
"Sort the \"import\" sentences in a file"
(save-excursion
(beginning-of-buffer)
(search-forward-regexp "^import.*;")
(let ((inicio (match-beginning 0)))
(end-of-buffer)
(search-backward-regexp "^import.*;")
(let ((fin (match-end 0)))
(sort-lines nil inicio fin)))))
;;--------------------------------------------------------------------------------
;; Came from mailing list
;; Phillip Lord [[EMAIL PROTECTED]]
;;
;;;Modifications to jde-help...asks me before it shows...
; (defun jde-help-symbol ()
; "Displays help for the symbol at point. The symbol may reference an object, a
class,
; or a method or field. If the symbol references a class, this function displays the
; javadoc for the class. If the symbol references an object, this method
; displays the javadoc for the class of the object. If the symbol references a field or
; a method, this function displays the javadoc for the class of the object of which
; the field or method is a member. Eventually this function will be enhanced to
position
; the javadoc at the point where the method or field is documented."
; (interactive)
; (condition-case err
; (let* ((parse-result (jde-help-parse-symbol-at-point))
; (unqualified-name
; (read-from-minibuffer "Class: "
; (if parse-result (car parse-result)
; (thing-at-point 'symbol))))
; (class-names
; ;;expand the names into full names, or a list of names
; (bsh-eval-r
; (concat "jde.util.JdeUtilities.getQualifiedName(\"" unqualified-name
"\");")))
; (doc-files (mapcar 'jde-help-get-doc class-names)))
; ;;Check return value of QualifiedName
; (if (eq nil class-names)
; (error "Cannot find %s" unqualified-name))
; ;;Remove any annoying nils from the returned values
; (setq doc-files (delq nil doc-files))
; (if (eq nil doc-files)
; (error "Cannot find documentation for %s" unqualified-name))
; ;;If the list is only one long
; (if (eq 1 (length doc-files))
; ;;then show it
; (jde-help-show-document (car doc-files))
; ;;else let the user choose
; (jde-help-choose-document doc-files)))
; (error
; (message "%s" (error-message-string err)))))
;(remove-hook 'speedbar-load-hook '(lambda () (require 'semantic-sb)))
;(add-hook 'speedbar-load-hook (lambda () (require 'semantic-sb)))
(autoload 'semantic-bnf-mode "semantic-bnf" "Mode for Bovine Normal Form." t)
(add-to-list 'auto-mode-alist '("\\.bnf$" . semantic-bnf-mode))
;; Using jindent
;; http://home.wtal.de/software-solutions/jindent/
;; There is a jindent.el I should probably use instead of this
;; This is found in the el dir.
;
(defun jindent ()
"Pipes the buffer through Jindent"
(interactive)
(message "Jindenting buffer (http://www.jindent.de) ...")
(setq executing-kbd-macro t)
(filter-buffer "/usr/local/java/jdk1.2/bin/java -classpath \
~/lib/Jindent/Jindent.jar: Jindent -mute -p \
~/lib/Jindent/Holger.jin")
(setq executing-kbd-macro nil)
(message "Jindenting buffer (http://www.jindent.de) ... done")
)
(defun filter-buffer (command)
(shell-command-on-region (point-min) (point-max) \
command t t "*Messages*")
)
;;}}}
;;{{{ Speedbar
(speedbar-add-supported-extension ".mk")
(speedbar-add-supported-extension ".html")
(speedbar-add-supported-extension ".bnf")
(global-set-key [(f5)] 'speedbar-get-focus)
(setq speedbar-fetch-etags-parse-list (cons "\\.mk" speedbar-fetch-etags-parse-list))
;;}}}
;;}}}
;;{{{ El's
;;{{{ Calendar
;; BCC myself
(setq mail-self-blind t)
(display-time)
(add-hook 'diary-hook 'appt-make-list)
(diary 0)
(load-library "cal-desk-calendar")
(add-hook 'diary-display-hook 'sort-diary-entries)
(add-hook 'diary-display-hook 'fancy-schedule-display-desk-calendar t)
(load-library "cal-weather")
(setq diary-schedule-time-display-format "12:mm")
(setq diary-schedule-time-overflow-display-format "12:mm ap")
(setq diary-schedule-format-odd-end-time-with-hours t)
;;}}}
;;{{{ ToDo
(autoload 'todo-mode "todo-mode"
"Major mode for editing TODO lists." t)
(autoload 'todo-show "todo-mode"
"Show TODO items." t)
(autoload 'todo-insert-item "todo-mode"
"Add TODO item." t)
(global-set-key "\C-c\M-tt" 'todo-show)
(global-set-key "\C-c\M-tn" 'todo-insert-item)
(setq todo-insert-threshold 16)
;;}}}
;;{{{ Filladapt
(add-hook 'text-mode-hook
'(lambda ()
(define-key text-mode-map
"[tab]"
'indent-relative)
))
(add-hook 'text-mode-hook
'(lambda ()
(setq adaptive-fill-mode t)))
(add-hook 'message-mode-hook
'(lambda ()
(define-key message-mode-map
"[tab]"
'indent-relative)
))
(add-hook 'message-mode-hook
'(lambda ()
(setq adaptive-fill-mode t)))
;(add-hook 'text-mode-hook 'turn-on-filladapt-mode)
;(add-hook 'c-mode-hook 'turn-off-filladapt-mode)
;(add-hook 'java-mode-hook 'turn-off-filladapt-mode)
;;}}}
;;{{{ Folding
;(autoload 'folding-mode "folding" "Folding mode" t)
(setq folding-default-keys-function
'folding-bind-backward-compatible-keys)
(load "folding" 'nomessage 'noerror)
(folding-mode-add-find-file-hook)
(folding-add-to-marks-list 'sql-mode "--{{{ " "--}}} ")
(folding-add-to-marks-list 'plsql-mode "--{{{ " "--}}} ")
(folding-add-to-marks-list 'html-helper-mode "<!-- {{{ " "<!-- }}} -->" " -->" t)
(folding-add-to-marks-list 'jde-mode "// {{{ " "// }}}")
;;}}}
;;{{{ Markup Languages
;;======================================================================
;; Came from email, url in favorites.
;; To enable html and also support for JSP, PHP and JSP
;;======================================================================
(autoload 'html-helper-mode "html-helper-mode" "Yay HTML" t)
(autoload 'asp-html-helper-mode "html-helper-mode" "Yay ASP" t)
(autoload 'php-html-helper-mode "html-helper-mode" "Yay PHP" t)
(setq auto-mode-alist (cons '("\\.html?$" . html-mode) auto-mode-alist))
(setq auto-mode-alist (cons '("\\.html$" . html-helper-mode) auto-mode-alist))
(setq auto-mode-alist (cons '("\\.htm$" . html-helper-mode) auto-mode-alist))
(setq auto-mode-alist (cons '("\\.jsp$" . html-helper-mode) auto-mode-alist))
(setq auto-mode-alist (cons '("\\.asp$" . asp-html-helper-mode) auto-mode-alist))
(setq auto-mode-alist (cons '("\\.phtml$" . html-helper-mode) auto-mode-alist))
(autoload 'xml-mode "psgml" "Major mode to edit XML files." t)
(setq html-helper-print-indent-info t)
(setq html-helper-do-write-file-hooks t)
(setq html-helper-build-new-buffer t)
(setq tempo-interactive t)
(setq html-helper-do-write-file-hooks t)
(setq html-helper-build-new-buffer t)
(setq html-helper-address-string
"<a href=\"http://intranet/people/gboyer/gboyer.htm\">Galen Boyer
[EMAIL PROTECTED]</a>")
(autoload 'html-helper-imenu-setup "html-helper-imenu")
(add-hook 'html-helper-mode-hook 'html-helper-imenu-setup)
(add-hook 'html-helper-load-hook (function (lambda () (load
"jsp-html-helper-mode.el"))))
(autoload 'sgml-mode "psgml" "Major mode to edit SGML files." t)
(autoload 'xml-mode "psgml" "Major mode to edit XML files." t)
; > I load an .xml file in emacs and it does not get indented
; > correctly.
; I use the PSGML package for editing XML files. You need a DTD for
; your XML files, though.
; Some PSGML users appear to think that the indentation in PSGML does
; not work, until they put (setq sgml-indent-data t) in their ~/.emacs file.
(setq sgml-indent-data t)
(setq sgml-set-face t)
;;}}}
;;{{{ VB
;;; VB editing
; (autoload 'visual-basic-mode "visual-basic-mode" "Visual Basic mode." t)
; (setq auto-mode-alist (append '(("\\.\\(frm\\|bas\\|cls\\)$" .
; visual-basic-mode)) auto-mode-alist))
; (autoload 'vbp-mode "visual-basic-mode" "VBP mode." t)
; (setq auto-mode-alist (append '(("\\.\\(vbg\\|vbg\\)$" .
; vbp-mode)) auto-mode-alist))
; (setq visual-basic-ide-pathname "E:/Program Files/DevStudio/VB/VB5.EXE")
; (autoload 'vbp-mode "vbp-mode" "VBP mode." t)
; (setq auto-mode-alist (append '(("\\.vbp$" .
; vbp-mode)) auto-mode-alist))
; From: Juan Leon Lahoz Garcia <[EMAIL PROTECTED]>
; Subject: Function to sort import sentences
;;}}}
;;{{{ Eldoc
(load-library "eldoc")
(autoload 'turn-on-eldoc-mode "eldoc" nil t)
(add-hook 'emacs-lisp-mode-hook 'turn-on-eldoc-mode)
(add-hook 'lisp-interaction-mode-hook 'turn-on-eldoc-mode)
(add-hook 'ielm-mode-hook 'turn-on-eldoc-mode)
;;}}}
;;{{{ sql
;;{{{ sqlplus
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Set up the ability to run in sql and sqlplus mode
;;
(load-library "make-regexp")
(load-library "sql-mode")
(autoload 'pls-mode "pls-mode" "PL/SQL Editing Mode" t)
(autoload 'diana-mode "pls-mode" "DIANA for PL/SQL Browsing Mode" t)
(setq auto-mode-alist
(append '(("\\.pls$" . pls-mode)
("\\.sql$" . pls-mode)
("\\.pld$" . diana-mode)
) auto-mode-alist))
(load-library "plsql-mode")
(defun set-plsql-font ()
(custom-set-faces
'(font-lock-comment-face ((t (:foreground "dark green"))))
'(font-lock-string-face ((t (:bold t :foreground "orange3"))))
'(font-lock-keyword-face ((t (:foreground "dark red"))))
'(font-lock-warning-face ((t (:bold t :foreground "#ff0000"))))
'(font-lock-constant-face ((t (:foreground "dark red"))))
'(font-lock-type-face ((t (:foreground "dark cyan"))))
'(font-lock-variable-name-face ((t (:foreground "dark blue"))))
'(font-lock-function-name-face ((t (:foreground "red"))))
'(font-lock-builtin-face ((t (:bold t :foreground "navy"))))
'(highlight ((t (:background "medium sea green"))))))
(remove-hook 'plsql-mode-hook 'set-plsql-font)
(autoload 'sqlplus "sql-mode"
"Run an interactive SQL*plus session in a separate buffer." t)
(autoload 'sql-mode "sql-mode"
"Major mode for editing SQL*plus batch files." t)
(setq auto-mode-alist (cons '("\\.sql$" . sql-mode) auto-mode-alist))
;(setq sqlplus-username-password "sys/CHANGE_ON_INSTALL@inkasun")
;(setq sqlplus-username-password "inkadba/inkadba@inkasun")
(setq sqlplus-username-password "system/obryan")
;(setq sqlplus-username-password "system/manager@inkax")
;(setq sqlplus-username-password "system/manager@lab")
(setq last-output-start ";")
;;}}}
;;}}}
;;{{{ Artist
(autoload 'artist-mode "artist" "Enter artist-mode" t)
;;}}}
;;{{{ Word Count
;; Word Count tool, per [EMAIL PROTECTED]
(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)
))
;;}}}
;;{{{ Find Library
(autoload 'find-library "find-library" "find-library" t)
(autoload 'find-and-load-library "find-library" "find-library" t)
; (autoload 'df "df" nil t)
; (df "/home")
(require 'ffap)
(ffap-bindings)
(require 'ff-paths)
(global-set-key "\C-x\C-f" 'find-file-at-point)
;;}}}
;;{{{ Tint Instances
(require 'tint-instances)
(define-key global-map "\C-ctt" 'tint_all_instances_of_current_word)
(define-key global-map "\C-ctu" 'untint_all_instances_of_current_word)
;;}}}
;;{{{ Hideshow
(defun ttn-hs-hide-level-1 ()
(hs-hide-level 1)
(forward-sexp 1))
(setq hs-hide-all-non-comment-function 'ttn-hs-hide-level-1)
(add-hook 'jde-mode-hook '(lambda () (hs-minor-mode 1)))
;;}}}
(require 'message-x)
(require 'color-theme)
;(require 'dircolors)
;;{{{ Load Libraries
;(setq ange-ftp-ftp-program-args '("-p" "-i" "-n" "-g" "-v"))
;; This is the default. May want to have above though.
(setq ange-ftp-ftp-program-args '("-i" "-n" "-g" "-v"))
(load-library "gnuserv")
;; This is for gnus, but I don't want to load it everytime I rerun gnus
(load-library "message")
(load-library "delete-buffers")
(load-library "memory-usage")
(load-library "dired-sort-menu")
(load-library "fcs")
(load-library "ibuffer")
(defun my-ibuffer-visit-buffer ()
(interactive)
(let ((buf (ibuffer-current-buffer)))
(switch-to-buffer buf)
(when (eq major-mode 'ibuffer-mode)
(ibuffer-update nil t))))
(define-key ibuffer-mode-map (kbd "RET") 'my-ibuffer-visit-buffer)
(load-library "boxquote")
(load-library "calculator")
(load-library "recentf")
(load-library "mouseme")
(load-library "change-mode")
(load-library "scroll-in-place")
(load-library "ascii-display.el")
(load-library "winhist")
;(load-library "show-whitespace")
(load-library "stock-quote")
(load-library "dired-a")
(make-face 'change-face)
(set-face-background 'change-face "pale green")
(set-face-foreground 'change-face "blue")
(load-library "change-mode")
(setq global-change-mode t)
(setq change-mode-global-modes
'(java-mode c-mode emacs-lisp-mode text-mode fundamental-mode))
(setq stock-quote-data-functions 'stock-quote-MoneyQuickQuotes)
;(load-library "remember")
;(autoload 'remember "remember" nil t)
;(autoload 'remember-region "remember" nil t)
;;}}}
;;}}}
;;}}}
;;{{{ Various variables
(set-language-environment "Latin-1")
(setq transient-mark-mode t)
(setq truncate-lines t)
(setq-default resize-minibuffer-mode t)
(setq-default fill-column 65)
;; DON'T ADD LINES at the end of buffer when trying to scroll past end
(setq next-line-add-newlines nil)
(setq max-specpdl-size 100000)
(setq max-lisp-eval-depth 100000)
(setq revert-without-query (list ".log"))
(show-paren-mode 1)
(column-number-mode 1)
(setq w32-enable-italics t)
(put 'downcase-region 'disabled nil)
(put 'upcase-region 'disabled nil)
(setq-default line-number-display-limit 500000)
(setq selective-display-ellipses nil)
(setq enable-recursive-minibuffers t)
(setq insert-date-format "%Y/%m/%d")
;;}}}
;;{{{ Key Mappings
;;{{{ Random
(global-set-key "\C-xf" 'fill-region)
(global-set-key "\C-xt" 'toggle-truncate-lines)
(global-set-key "\C-xe" 'call-last-kbd-macro)
(global-set-key "\C-x\C-j" 'dired-jump)
(global-set-key "\C-xc" 'comment-region)
(global-set-key "\C-clc" 'calculator)
(global-set-key "\C-cbb" 'boxquote-region)
(global-set-key "\C-cbu" 'boxquote-unbox-region)
(global-set-key "\C-cbt" 'boxquote-title)
(global-set-key [C-backspace] 'backward-kill-word)
(global-set-key [(control =)] 'joc-bounce-sexp)
(global-set-key [M-f4] 'save-buffers-kill-emacs)
(global-set-key [S-mouse-2] 'mouse-me)
(define-key global-map [f7] 'my-cycle-eol-conventions)
(global-set-key "\C-x\M-r" 'rename-buffer)
(global-set-key "\C-z" nil)
;; These came from Kai
(global-set-key (kbd "RET") 'newline-and-indent)
(define-key text-mode-map (kbd "RET") 'newline)
(global-set-key [f1] '(lambda() (interactive) (jde-jcb-set-layout 5 t) ))
;;}}}
;;{{{ Cursor/Buffer movement
(global-set-key "\C-x\C-b" 'buffer-menu)
(global-set-key "\C-xp" 'other-window-backward)
(global-set-key [minibuffer-local-map up] 'previous-history-element)
(global-set-key [minibuffer-local-map down] 'next-history-element)
(global-set-key [C-tab] 'ken-next-buffer)
(global-set-key [C-S-tab] 'ken-prev-buffer)
(global-set-key [home] 'pc-keys-home)
(global-set-key [end] 'pc-keys-end)
(global-set-key "\M-B" 'winhist-backward)
(global-set-key "\M-F" 'winhist-forward)
;;}}}
;;{{{ Display of characters
;; Handle "smart" quotes and other typography symbols in Windows codepages
;(standard-display-ascii ?\200 "") ; not used
;(standard-display-ascii ?\201 "") ; not used
(standard-display-ascii ?\202 ",") ; left single low quote
(standard-display-ascii ?\203 "f") ; small f with hook
(standard-display-ascii ?\204 ",,") ; left double low quote
(standard-display-ascii ?\205 "...") ; ellipsis
(standard-display-ascii ?\206 "+") ; dagger
(standard-display-ascii ?\207 "++") ; double dagger
(standard-display-ascii ?\210 "^") ; circumflex accent
(standard-display-ascii ?\211 "%%") ; per mille
(standard-display-ascii ?\212 "S") ; S with caron
(standard-display-ascii ?\213 "<") ; left angle quote
(standard-display-ascii ?\214 "OE") ; OE ligature
;(standard-display-ascii ?\215 "") ; not used
;(standard-display-ascii ?\216 "") ; not used
;(standard-display-ascii ?\217 "") ; not used
;(standard-display-ascii ?\220 "") ; not used
(standard-display-ascii ?\221 "`") ; left single quote
(standard-display-ascii ?\222 "'") ; right single quote
(standard-display-ascii ?\223 "``") ; left double quote
(standard-display-ascii ?\224 "''") ; right double quote
(standard-display-ascii ?\225 "o") ; bullet
(standard-display-ascii ?\226 "--") ; en-dash
(standard-display-ascii ?\227 "---") ; em-dash
(standard-display-ascii ?\230 "~") ; small tilde
(standard-display-ascii ?\231 "(TM)") ; trademark
(standard-display-ascii ?\232 "s") ; s with caron
(standard-display-ascii ?\233 ">") ; right angle quote
(standard-display-ascii ?\234 "oe") ; oe ligature
;(standard-display-ascii ?\235 "") ; not used
;(standard-display-ascii ?\236 "") ; not used
(standard-display-ascii ?\237 "Y") ; Y with diaeresis
;;}}}
;;}}}
(setq tags-table-list
'("c:/java/projects/kidkids/kkiproto"))
(load-file "~/.customize")
=====end inserted .emacs file
--
Galen Boyer
New Orleans is sink'n man and I don't want to swim.
_________________________________________________________
Do You Yahoo!?
Get your free @yahoo.com address at http://mail.yahoo.com
