hello,
i use multi-mode with jde and html to edit jsp files. this works fairly well.
however, since i upgraded to jde 226, i experience a problem.
for some jsp files, the 'index building' that displays a progress bar in the
minibuffer area goes into
an eternal loop, it just rebuilds this index perpetually, ctrl-g does not work and i
must kill my
emacs.
it is very easy to recreate the behaiour, just go into the scratch buffer and do m-x
jde mode, and you will se
the bug.
i have installed all the latest packages and so on, i believe.
list-load-path-shadows only lists the inbuilt speedbar as being shadowed by the new
speedbar.
i include a bug environment report below, including my crufty .emacs.
Emacs : GNU Emacs 20.7.1 (i386-redhat-linux-gnu, X toolkit)
of Wed Oct 11 2000 on porky.devel.redhat.com
Package: JDE version 2.2.6.1
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-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)
("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 "-C /home/httpd/html/ classes"
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 nil
jde-compile-option-verbose nil
jde-db-option-heap-size '((1 . "megabytes") (16 . "megabytes"))
jde-bug-debugger-host-address "motoko.home"
jde-make-working-directory ""
jde-bug-breakpoint-marker-colors '("red" . "yellow")
jde-javadoc-gen-use nil
jde-gen-buffer-boilerplate nil
jde-bug-raise-frame-p t
jde-db-option-application-args nil
jde-javadoc-gen-nonavbar nil
jde-javadoc-gen-nohelp nil
jde-bug-vm-includes-jpda-p t
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 \" (user-full-name) 'n"
"\" * @version\" 'n" "\" */\" 'n>" "'n>" "\"public
class \"" "(file-name-sans-extension (file-name-nondirectory buffer-file-name))" "\"
extends JFrame {\" 'n> 'n>"
"\"class Canvas extends JPanel {\" 'n> 'n>"
"\"public Canvas () {\" 'n>" "\"setSize(getPreferredSize());\" 'n>"
"\"Canvas.this.setBackground(Color.white);\" 'n>" "\"}\" 'n> 'n>"
"\"public Dimension getPreferredSize() {\" 'n>"
"\"return new Dimension(600, 600);\" 'n>" "\"}\" 'n> 'n>" "\"public void
paintComponent(Graphics g) {\" '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> 'n>" "\"public \""
"(file-name-sans-extension (file-name-nondirectory
buffer-file-name))" "\"() {\" 'n>" "\"super(\\\"\" (P \"Enter app title: \")
\"\\\");\" 'n>" "\"setSize(300, 300);\" 'n>"
"\"addWindowListener(new WindowAdapter() {\" 'n>"
"\"public void windowClosing(WindowEvent e) {System.exit(0);}\" 'n>" "\"public void
windowOpened(WindowEvent e) {}});\" 'n>"
"\"setJMenuBar(createMenu());\" 'n>"
"\"getContentPane().add(new JScrollPane(new Canvas()));\" 'n>" "\"}\" 'n>" "'n>"
"\"public static void main(String[] args) {\" '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>" "'p 'n>" "\"}\" 'n> 'n>"
"\"protected JMenuBar createMenu() {\" 'n>" "\"JMenuBar mb = new JMenuBar();\" 'n>"
"\"JMenu menu = new JMenu(\\\"File\\\");\" 'n>"
"\"menu.add(new AbstractAction(\\\"Exit\\\") {\"
'n>" "\"public void actionPerformed(ActionEvent e) {\" 'n>" "\"System.exit(0);\" 'n>"
"\"}\" 'n>" "\"});\" 'n>"
"\"mb.add(menu);\" 'n>" "\"return mb;\" 'n>" "\"}\"
'n> 'n>" "\"} // \"" "(file-name-sans-extension (file-name-nondirectory
buffer-file-name))" "'n>")
jde-bug-key-bindings '(("[? ? ?]" . jde-bug-step-over) ("[? ? ?]" .
jde-bug-step-into) ("[? ? ?]" . jde-bug-step-out) ("[? ? ?]" . jde-bug-continue)
("[? ? ?]" . jde-bug-set-breakpoint))
jde-compile-finish-hook '((lambda (buf msg) (if (and (frame-live-p speedbar-frame)
(frame-visible-p speedbar-frame)) (speedbar-refresh))) (lambda (buf msg)
(jde-complete-flush-classinfo-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 '("'&" "\"System.out.println(\" (P \"Print out: \") \");\" 'n>")
jde-enable-abbrev-mode t
bsh-vm-args nil
jde-auto-parse-max-buffer-size 50000
jde-gen-cflow-main '("(if (jde-parse-comment-or-quoted-p)" "'(l \"main\")" "'(l '>
\"public static void main (String[] args) \"" "(if jde-gen-k&r " "()" "'>'n)"
"\"{\"'>'n'>'r'n" "\"} // end of main ()\"'>'n'>)"
")")
jde-javadoc-exception-tag-template '("* @exception " type " if an error occurs")
jde-global-classpath '("/opt/IBMJava2-13/jre/lib/rt.jar" "/usr/local/lib/java/"
"/home/httpd/html/messages/WEB-INF/classes/"
"/home/httpd/html/directory/WEB-INF/classes/"
"/home/httpd/html/officeweb/WEB-INF/classes/"
"/home/httpd/html/timereport/WEB-INF/classes/" "/opt/jakarta-tomcat/lib/PoolMan.jar"
"/opt/jakarta-tomcat/lib/")
jde-gen-window-listener-template '("'& (P \"Window name: \")"
"\".addWindowListener(new WindowAdapter() {\" 'n>" "\"public void
windowActivated(WindowEvent e) {}\" 'n>"
"\"public void windowClosed(WindowEvent e) {}\"
'n>" "\"public void windowClosing(WindowEvent e) {System.exit(0);}\" 'n>"
"\"public void windowDeactivated(WindowEvent e)
{}\" 'n>" "\"public void windowDeiconified(WindowEvent e) {}\" 'n>" "\"public void
windowIconified(WindowEvent e) {}\" 'n>"
"\"public void windowOpened(WindowEvent e) {}});\"
'n>")
jde-run-working-directory ""
jde-gen-property-change-support '("'&" "\"protected PropertyChangeSupport pcs = new
PropertyChangeSupport(this);\" '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) {\" '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) {\" '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) {\" '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) {\" '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) {\" '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) {\" '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) {\" '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) {\" '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) {\" 'n>"
"\"return pcs.hasListeners(propertyName);\" 'n>
\"}\" 'n> 'n>")
jde-javadoc-describe-interface-template '("* Describe interface " (jde-javadoc-code
name) " here.")
jde-imenu-include-signature t
jde-db-marker-regexp "^Breakpoint hit: .*(\\([^$]*\\).*:\\([0-9]*\\))"
jde-gen-mouse-motion-listener-template '("'& (P \"Component name: \")"
"\".addMouseMotionListener(new MouseMotionAdapter() {\" 'n>" "\"public void
mouseDragged(MouseEvent e) {}\" 'n>"
"\"public void mouseMoved(MouseEvent e)
{}});\" 'n>")
jde-key-bindings '(("" . jde-compile) ("" . jde-run) ("" . jde-debug) (""
. jde-build) ("" . jde-run-menu-run-applet) ("" . jde-db-menu-debug-applet)
("\n" . bsh)
("" . speedbar-frame-mode) ("" .
jde-wiz-implement-interface) ("" . jde-wiz-find-and-import) ("" .
jde-browse-jdk-doc) ("" . jde-save-project)
("\f" . jde-gen-println) ("" . jde-help-class) ("" .
jde-show-class-source) ("" . jde-wiz-update-class-list))
jde-gen-cflow-for-i '("(if (jde-parse-comment-or-quoted-p)" "'(l \"fori\")" "'(l '>
\"for (int \" (p \"variable: \" var) \" = 0; \"" "(s var)" "\" < \"(p \"upper bound:
\" ub)\"; \" (s var) \"++) \""
"(if jde-gen-k&r " "()" "'>'n)" "\"{\"'>'n'>'r'n" "\"} // end
of for (int \" (s var) \" = 0; \"" "(s var) \" < \" (s ub) \"; \" (s var)
\"++)\"'>'n'>)" ")")
jde-run-option-classpath nil
jde-javadoc-gen-detail-switch '("-protected")
jde-bug-sio-connect-delay 1
jde-javadoc-param-tag-template '("* @param " name " " (jde-javadoc-a type) " "
(jde-javadoc-code type) " value")
jde-compile-option-verbose-path nil
jde-javadoc-display-doc t
jde-imenu-modifier-abbrev-alist '(("public" . 43) ("protected" . 177) ("private" .
172) ("static" . 2215) ("transient" . 35) ("volatile" . 126) ("abstract" . 170)
("final" . 182) ("native" . 36)
("synchronized" . 64) ("strictfp" . 37))
jde-db-debugger '("JDEbug" "jdb" . "Executable")
jde-jdk-doc-url "http://www.javasoft.com/products/jdk/1.1/docs/index.html"
jde-gen-cflow-enable t
jde-compiler "/opt/IBMJava2-13/bin/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 \" (user-full-name) 'n" "\" * @version\" 'n" "\" */\" 'n>" "'n>"
"\"public class \""
"(file-name-sans-extension (file-name-nondirectory
buffer-file-name))" "\" \" (jde-gen-get-super-class) \" {\" 'n> 'n>" "\"public \""
"(file-name-sans-extension (file-name-nondirectory
buffer-file-name))" "\"() {\" 'n>" "'p 'n>" "\"}\" 'n>" "'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-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-javadoc-gen-doc-title ""
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) 'n"
"\"/**\" 'n" "\" * \"" "(file-name-nondirectory buffer-file-name) 'n" "\" *\" 'n" "\"
*\" 'n"
"\" * Created: \" (current-time-string) 'n" "\" *\"
'n" "\" * @author \" (user-full-name) 'n" "\" * @version\" 'n" "\" */\" 'n>" "'n>"
"\"public class \""
"(file-name-sans-extension (file-name-nondirectory
buffer-file-name))" "\" {\" 'n> 'n>" "\"public \"" "(file-name-sans-extension
(file-name-nondirectory buffer-file-name))"
"\"() {\" 'n>" "'n>" "\"}\" 'n>" "'n>" "\"public
static void main(String[] args) {\" 'n>" "'p 'n>" "\"}\" '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 '("'& (P \"Component name: \")"
"\".addMouseListener(new MouseAdapter() {\" 'n>" "\"public void
mouseClicked(MouseEvent e) {}\" 'n>"
"\"public void mouseEntered(MouseEvent e) {}\" 'n>"
"\"public void mouseExited(MouseEvent e) {}\" 'n>" "\"public void
mousePressed(MouseEvent e) {}\" 'n>"
"\"public void mouseReleased(MouseEvent e) {}});\"
'n>")
jde-run-option-application-args nil
jde-bug-vm-executable '("java")
jde-db-set-initial-breakpoint t
jde-bug-debugger-command-timeout 10
jde-db-option-stack-size '((128 . "kilobytes") (400 . "kilobytes"))
jde-db-option-properties nil
jde-db-source-directories '("/opt/jakarta-tomcat/src/"
"/home/httpd/html/messages/WEB-INF/classes/")
jde-run-read-app-args nil
jde-gen-to-string-method-template '("'&" "\"public String toString() {\" 'n>"
"\"return super.toString();\" 'n>" "\"}\" 'n>")
jde-quote-classpath t
jmaker-hook-jde-menu t
jde-bug-window-message nil
jde-build-use-make t
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 "/opt/IBMJava2-13/"
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\"))" "(jde-wiz-update-implements-clause
\"EntityBean\")"
"'> \"public void ejbActivate() throws RemoteException
{\"'n> \"}\"'n\n'n" "'> \"public void ejbPassivate() throws RemoteException {\"'n>
\"}\"'n\n'n"
"'> \"public void ejbLoad() throws RemoteException
{\"'n>\"}\"'n 'n" "'> \"public void ejbStore() throws RemoteException {\"'n>\"}\"'n 'n"
"'> \"public void ejbRemove() throws RemoteException
{\"'n>\"}\"'n 'n" "'> \"public void setEntityContext(EntityContext ctx)
throws\nRemoteException {\"" "'n>\"}\"'n 'n"
"'> \"public void unsetEntityContext() throws
RemoteException {\"'n>\n\"}\"'n> 'n")
jde-javadoc-describe-constructor-template '("* Creates a new " (jde-javadoc-code
name) " instance.")
jde-bug-server-shmem-name '(t . "JDEbug")
jde-db-startup-commands nil
jde-javadoc-gen-docletpath nil
jde-javadoc-gen-split-index nil
jde-compile-option-deprecation nil
jde-import-group-of-rules '(("^javax?\\."))
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-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 '("'n>" "(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) \" get\" (jde-gen-init-cap (jde-gen-lookup-named 'name))"
"\"() {return \" (s name) \";}\" '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) {this.\" (s name) \" = v;}\"
'n>")
jde-bug-saved-breakpoints nil
jde-compile-option-sourcepath nil
jde-gen-cflow-if '("(if (jde-parse-comment-or-quoted-p)" "'(l \"if\")" "'(l '> \"if
(\" (p \"if-clause: \" clause) \") \"" "(if jde-gen-k&r " "()" "'>'n)"
"\"{\"'>'n'>'r'n"
"\"} // end of if (\" (s clause) \")\"'>'n'>)" ")")
jde-db-option-java-profile '(nil . "./java.prof")
jde-javadoc-gen-author t
jde-compile-option-depend-switch '("-Xdepend")
jde-setnu-mode-enable nil
jde-run-applet-doc ""
jde-compile-option-vm-args nil
jde-javadoc-gen-overview ""
jde-javadoc-gen-notree nil
jde-run-option-garbage-collection '(t t)
jde-db-mode-hook nil
jde-javadoc-command-path "javadoc"
jde-db-option-heap-profile '(nil "./java.hprof" 5 20 "Allocation objects")
jde-import-group-function 'jde-import-group-of
bsh-eval-timeout 20
jde-db-read-vm-args nil
jde-bug-debug nil
jde-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-imenu-include-modifiers nil
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-which-method-abbrev-symbol "~"
jde-db-option-vm-args nil
jde-run-application-class "mp3conv.Mp3conv"
jde-javadoc-gen-doclet ""
jde-import-auto-sort nil
jde-run-option-verbose '(nil nil nil)
jde-project-file-name "prj.el"
jde-compile-option-debug '("selected" (t nil nil))
jde-bug-jre-home ""
jde-import-sorted-groups nil
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-import-excluded-packages '("bsh.*")
jde-run-read-vm-args nil
jde-help-docsets nil
jde-gen-inner-class-template '("'& \"class \" (P \"Class name: \" class)" "(P
\"Superclass: \" super t)" "(let ((parent (jde-gen-lookup-named 'super)))" "(if (not
(string= parent \"\"))"
"(concat \" extends \" parent))) \" {\" 'n>" "\"public
\" (s class) \"() {\" 'n> \"}\" 'n> \"}\" 'n>")
jde-auto-parse-buffer-interval 180
jde-run-option-verify '(nil t)
jde-import-reverse-sort-group nil
jde-compile-option-optimize nil
jde-gen-cflow-case '("(if (jde-parse-comment-or-quoted-p)" "'(l \"case\")" "'(l 'n
\"case \" (p \"value: \") \":\"'>'n'>'p'n" "\"break;\"'>'n'>'p)" ")")
jde-compile-option-depend nil
jde-javadoc-describe-class-template '("* Describe class " (jde-javadoc-code name) "
here.")
jde-javadoc-gen-serialwarn nil
jde-gen-action-listener-template '("'& (P \"Component name: \")"
"\".addActionListener(new ActionListener() {\" 'n>" "\"public void
actionPerformed(ActionEvent e) {\" 'n>" "\"}});\" 'n>")
jde-auto-parse-enable t
jde-compile-option-command-line-args ""
jde-gen-buffer-templates '(("Class" . jde-gen-class) ("Console" . jde-gen-console)
("Swing App" . jde-gen-jfc-app))
jde-project-context-switching-enabled-p t
jde-javadoc-gen-args nil
jde-run-option-stack-size '((128 . "kilobytes") (400 . "kilobytes"))
jde-run-option-properties nil
)
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
Reading directory /home/httpd/html/messages/WEB-INF/classes/officeweb/messages/...done
Loading /home/httpd/html/prj.el (source)...
Loading /home/httpd/html/prj.el (source)...done
Global Font Lock mode enabled.
Creating customization buffer...
Creating customization buttons...
Creating customization items...
Creating group...
Creating group members... 75%
Creating group magic...
Creating group state...
Creating group... done
Creating customization items ...100%done
Creating customization setup...
Creating customization buffer...done
Making completion list... [3 times]
Loading apropos...
Loading apropos...done
Making completion list...
Loading shadow...
Loading shadow...done
Checking 10 files in /usr/local/lib/emacs/site-lisp/speedbar-0.13a...
Checking 26 files in /usr/local/lib/emacs/site-lisp/semantic-1.3.2...
Checking 18 files in /usr/local/lib/emacs/site-lisp/eieio-0.15...
Checking 28 files in /usr/local/lib/emacs/site-lisp/elib-1.0...
Checking 121 files in /usr/local/lib/emacs/site-lisp...
Checking 27 files in /usr/local/lib/emacs/site-lisp/jde-2.2.6/lisp...
Checking 2 files in /usr/local/lib/emacs/site-lisp/shellex...
Checking 121 files in /usr/local/lib/emacs/site-lisp/w3-4.0pre.23/lisp...
Checking 11 files in /usr/share/emacs/site-lisp...
Checking 8 files in /usr/share/emacs/site-lisp/psgml...
Checking 1 files in /usr/share/emacs/20.7/leim...
Checking 418 files in /usr/share/emacs/20.7/lisp...
Checking 50 files in /usr/share/emacs/20.7/lisp/textmodes...
Checking 92 files in /usr/share/emacs/20.7/lisp/progmodes...
Checking 45 files in /usr/share/emacs/20.7/lisp/play...
Checking 74 files in /usr/share/emacs/20.7/lisp/mail...
Checking 58 files in /usr/share/emacs/20.7/lisp/language...
Checking 54 files in /usr/share/emacs/20.7/lisp/international...
Checking 133 files in /usr/share/emacs/20.7/lisp/gnus...
Checking 48 files in /usr/share/emacs/20.7/lisp/emulation...
Checking 88 files in /usr/share/emacs/20.7/lisp/emacs-lisp...
Checking 40 files in /usr/share/emacs/20.7/lisp/calendar...
Ignoring redundant directory /usr/share/emacs/site-lisp/psgml
Preparing problem report...
Loading sendmail...
Loading sendmail...done
Formatting bug report buffer...
Formatting bug report buffer.........................
Mark set
End Insert *Messages* buffer
Process environment:
GNU_SECURE=/home/joakim/.gnusecure
_=/usr/bin/emacs
GNOME_DESKTOP_ICON=/usr/share/pixmaps/emacs.png
PATH=/opt/IBMJava2-13/bin/:/opt/IBMJava2-13/bin/:.:/usr/kerberos/bin:/usr/local/bin:/bin:/usr/bin:/usr/X11R6/bin:/usr/local/bin:/opt/IBMJava2-13/bin/:/usr/lib/jikes:/home/joakim/bin
SSH_ASKPASS=/usr/libexec/openssh/gnome-ssh-askpass
TERM=linux
HOME=/home/joakim
HISTSIZE=1000
OSTYPE=linux-gnu
CVSROOT=/usr/local/cvsroot
HOSTTYPE=i386
USERNAME=
SHELL=/bin/bash
SESSION_MANAGER=local/motoko.home:/tmp/.ICE-unix/940
SHLVL=3
LOGNAME=joakim
DISPLAY=:0
LANG=en_US
BASH_ENV=/home/joakim/.bashrc
INPUTRC=/etc/inputrc
MAIL=/var/spool/mail/joakim
MACHTYPE=i386-redhat-linux-gnu
LS_COLORS=no=00:fi=00:di=01;34:ln=01;36:pi=40;33:so=01;35:bd=40;33;01:cd=40;33;01:or=01;05;37;41:mi=01;05;37;41:ex=01;32:*.cmd=01;32:*.exe=01;32:*.com=01;32:*.btm=01;32:*.bat=01;32:*.sh=01;32:*.csh=01;32:*.tar=01;31:*.tgz=01;31:*.arj=01;31:*.taz=01;31:*.lzh=01;31:*.zip=01;31:*.z=01;31:*.Z=01;31:*.gz=01;31:*.bz2=01;31:*.bz=01;31:*.tz=01;31:*.rpm=01;31:*.cpio=01;31:*.jpg=01;35:*.gif=01;35:*.bmp=01;35:*.xbm=01;35:*.xpm=01;35:*.png=01;35:*.tif=01;35:
USER=joakim
KDEDIR=/usr
XPVM_ROOT=/usr/share/pvm3/xpvm
LESSOPEN=|/usr/bin/lesspipe.sh %s
QTDIR=/usr/lib/qt-2.2.0
HOSTNAME=motoko.home
PWD=/home/joakim
The contents of the .emacs file was
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; joakim verona's .emacs
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(setq is-pc (string-equal window-system "w32"))
; set to true if this is a win32 machine
; this was originaly "not eq x", but that doesnt work on a console
(defun my-setfont ()(interactive)(set-default-font (w32-select-font)))
;(using-unix-filesystems t); no crlf translation AT ALL, which is bad. see
untranslate.el instead
(standard-display-european 1) ; to display swedish chars properly
(put 'upcase-region 'disabled nil) ;hmmm.
(put 'eval-expression 'disabled nil)
(setq dired-chmod-program "chmod") ;otherwise defaults to chmode. chmod is in the
cygnus gnu pport
(global-set-key [C-S-M] 'query-replace-regexp)
(global-set-key [C-c C-g] 'goto-line)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;setkeys for windows alikeness
(global-set-key [home] 'beginning-of-line)
(global-set-key [C-home] 'beginning-of-buffer)
(global-set-key [end] 'end-of-line)
(global-set-key [C-end] 'end-of-buffer)
(global-set-key [S-up] (lambda () (interactive) (scroll-down 1)))
(global-set-key [S-down] (lambda () (interactive) (scroll-up 1)))
(global-set-key [S-right] (lambda () (interactive) (scroll-left 1)))
(global-set-key [S-left] (lambda () (interactive) (scroll-right 1)))
(global-set-key [C-S-right] 'scroll-left)
(global-set-key [C-S-left] 'scroll-right)
(global-set-key [M-up] 'scroll-to-top-of-window)
(global-set-key [M-down] 'scroll-to-bottom-of-window)
(defun scroll-to-top-of-window ()
"scroll window so that current line ends up at the top"
(interactive)
(recenter 0))
(defun scroll-to-bottom-of-window ()
"scroll window so that current line ends up at the bottom"
(interactive)
(recenter -1))
(if is-pc
(progn
(defun w32-maximize-window ()
(interactive)
(w32-send-sys-command 61488)
)
(defun w32-minimize-window ()
(interactive)
(w32-send-sys-command 61472)
)
(defun w32-restore-window ()
(interactive)
(w32-send-sys-command 61728)
)
(defun w32-menubar ()
(interactive)
(w32-send-sys-command 61696)
)
(defun w32-screensaver ()
(interactive)
(w32-send-sys-command 61760)
)
)
)
;; -- Support for a quick switch between Emacs buffers.
;; This allows c-tab and c-s-tab switching
;; Author: Igor Boukanov <[EMAIL PROTECTED]>
; (require 'pc-bufsw)
;(pc-bufsw::bind-keys [C-tab] [C-S-iso-lefttab])
;try david ponces mode instead
;(require 'swbuff)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; autoresize of minibuffer
(setq resize-minibuffer-mode t)
(resize-minibuffer-mode 1)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;,
; appearance of emacs
; frame title
(setq frame-title-format
'( "%b " user-real-login-name "@" system-name))
; modeline colors
(set-face-background 'modeline "green")
(set-face-foreground 'modeline "black")
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;for dired
(add-hook 'dired-mode-hook '(lambda () (require 'dired-sort)))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;autosaves in a special dir. works???
(setq auto-save-hash-p t)
(setq auto-save-directory (expand-file-name "~/autosave/"))
;(setq auto-save-directory
; (expand-file-name "d:/emacs/autosave/"))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;,
;paren mode
(show-paren-mode)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;the load path
;I would like this to be more general, so I could use the same file on unix and on nt
(if is-pc
(setq my-sitelisp-path "c:/usr/local/lib/emacs/site-lisp/")
(setq my-sitelisp-path "/usr/local/lib/emacs/site-lisp/")
)
(if (string-lessp emacs-version "20.2.94")
(setq load-path
(nconc
(list "c:/lib/emacs/site-lisp_202/"
)
load-path
)
)
)
(setq load-path
(nconc
(list my-sitelisp-path
(concat my-sitelisp-path "jde-2.2.6/lisp/")
;(concat my-sitelisp-path "cc-mode-5.20/")
(concat my-sitelisp-path "shellex/")
(concat my-sitelisp-path "w3-4.0pre.23/lisp")
)
load-path
)
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;info path
(if is-pc
(setq Info-directory-list
(nconc '(
"c:/apps/shared/editors/emacs-20.3.1/info"
"c:/usr/local/lib/emacs/info/"
"c:/usr/local/lib/emacs/cygwininfo/"
"c:/usr/local/lib/emacs/info/elisp-manual-19-2.4.2"
;"c:/APPS/shared/cygwin32/b19/info/"
"c:/usr/local/lib/emacs/site-lisp/w3-4.0pre.23/texi"
)
load-path))
(setq Info-directory-list
(nconc '(
"/usr/local/lib/emacs/info/"
"/usr/local/lib/emacs/info/elisp-manual-19-2.4.2"
)
Info-default-directory-list))
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; frame looks
(if is-pc
(setq default-frame-alist
'(
;(top . 0) (left . 200)
;(width . 121) (height . 43)
(vertical-scroll-bars . right);to set the scrollbars to the right
(cursor-color . "blue")
(cursor-type . box)
(foreground-color . "black")
(background-color . "white")
(font . "-*-Courier New-normal-r-*-*-12-90-*-*-c-*-*-ansi-" )
))
(setq default-frame-alist
'(
; (top . 8) (left . 200)
; (width . 121) (height . 43)
(vertical-scroll-bars . right);to set the scrollbars to the right
(cursor-color . "blue")
(cursor-type . box)
(foreground-color . "black")
(background-color . "white")
))
)
;(setq initial-frame-alist '((top . 80) (left . 30)))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;for font locking
;;ensure font locking for various modes
(setq win32-enable-italics t) ; This must be done before font settings!
(setq w32-enable-italics t) ; for win32
;(set-face-font 'italic "-*-Courier New-normal-i-*-*-11-82-c-*-*-ansi-")
;(set-face-font 'bold-italic "-*-Courier New-bold-i-*-*-11-82-c-*-*-ansi-")
(setq Info-fontify 1)
(global-font-lock-mode t)
;;stuff to make fontification neater
;;;set font attributes
;hmm complains about font-lock-comment-face
;(make-face-italic 'font-lock-comment-face)
;(modify-face 'font-lock-comment-face "LightGreen" nil nil nil t nil)
(setq font-lock-maximum-decoration t)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;html helper
(require 'html-helper-mode)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;make textfiles be outline. is that good?
(setq auto-mode-alist
(cons '("\\.txt\\'" . outline-mode) auto-mode-alist))
(setq auto-mode-alist
(cons '("\\.html\\'" . html-helper-mode) auto-mode-alist))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;problem with ini file editing
;(setq file-name-buffer-file-type-alist '(("\\.bat$" . nil) (".*" . t)))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;for windows shellex 1.5
;I didnt like the shellex ^x^f binding, so i redefined the hook
(require 'dired)
(if is-pc
(progn
(define-key dired-mode-map "r" 'shellex-on-file)
;(define-key dired-mode-map "j"
'shellex-dired-on-objects)
(setq shellex-no-dired-hook t)
;(setq shellex-no-browse-url-hook t);no
browse-url patching(test)
(require 'shellex)
)
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;for css mode
(autoload 'css-mode "css-mode")
(setq auto-mode-alist
(cons '("\\.css\\'" . css-mode) auto-mode-alist))
;
(require 'derived)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;for archive mode
(setq archive-zip-use-pkzip nil)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;to auto decompress files
(load "jka-compr")
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;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)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;asp files and jsp should be edited with html mode
(setq auto-mode-alist (append auto-mode-alist '(("\\.asp\\'" . asp-html-helper-mode))))
; ("\\.jsp\\'" . jsp-html-helper-mode)
;;jsp/html multi-mode
(autoload 'multi-mode
"multi-mode"
"Allowing multiple major modes in a buffer."
t)
(defun jsp-multi-mode () (interactive)
(multi-mode 1
'jsp-html-helper-mode
'("<%" jde-mode)
'("%>" jsp-html-helper-mode)))
(setq auto-mode-alist
(cons '("\\.jsp$" . jsp-multi-mode)
auto-mode-alist))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;; Shell stuff
(add-hook 'shell-mode-hook
'(lambda ()
(require 'ansi-display)
(setq comint-output-filter-functions
(append '(comint-ansi-display)
comint-output-filter-functions))))
; for bash
(if is-pc (progn
(setenv "PID" nil) ; for cygwin b19
(setq shell-file-name
"c:/apps/shared/cygwin32/H-i386-cygwin32/bin/bash.exe")
(setq explicit-shell-file-name shell-file-name)
(setq shell-command-switch "-c")
(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-process-echoes t)
(setq comint-eol-on-send t)
(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))
; needed for proper bash-quoting in subshells,
according to andrew innes
(setq w32-quote-process-args ?\")
; to get shell working in 20.3.1 under w95!!
;(setq process-coding-system-alist
; '(("cmdproxy" . (raw-text-dos .
raw-text-dos))))
;for cmd.exe
;(add-hook 'shell-mode-hook
; '(lambda () (setq
comint-completion-addsuffix '("\\" . "")))
; t)
;to make resync-dirs work. default command is
dirs, which is nonexistent
;should probably be improved
;(setq shell-dirstack-query "cd")
;;common
(setenv "SHELL" shell-file-name)
(add-hook 'comint-output-filter-functions 'shell-strip-ctrl-m nil t)
))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;for find-at-point
(require 'ffap) ; load the package
(ffap-bindings) ; do default key bindings
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;for gnuserv
;(if is-pc (progn
(setenv "GNU_SECURE" "/home/joakim/.gnusecure")
(require 'gnuserv)
(gnuserv-start)
(setq gnuserv-frame (selected-frame))
; ))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;custom (used by autorevert)
;(load "custom") ;
(load "wid-edit")
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;for autorevert
(autoload 'auto-revert-mode "autorevert" nil t)
(autoload 'turn-on-auto-revert-mode "autorevert" nil nil)
(autoload 'global-auto-revert-mode "autorevert" nil t)
;; Usage:
;;
;; Go to the appropriate buffer and press:
;; M-x auto-revert-mode RET
;;
;; To activate Global Auto-Revert Mode, press:
;; M-x global-auto-revert-mode RET
;;
;; To activate Global Auto-Revert Mode every time Emacs is started the
;; following line could be added to your ~/.emacs:
(global-auto-revert-mode 1)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;to display time in modeline
(display-time)
(setq display-time-day-and-date t)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; for visual basic mode
;(autoload 'basic-mode "basic-mode" "Basic mode." t)
;(setq auto-mode-alist (append '(("\\.\\(frm\\|bas\\|cls\\)$" .
; basic-mode)) auto-mode-alist))
(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))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;for printing
;;;;;From: Pascal Obry <[EMAIL PROTECTED]>
;;;;; ################################################## NT - PS-Print
;;;(require 'ps-print)
;;;(setq ps-paper-type 'ps-a4)
;;;(setq ps-lpr-command "print")
;;;(setq ps-lpr-switches '("/D:\\\\PLUTON\\HP4SIMX")) ; the printer name
;;;(setq ps-lpr-buffer "c:\\temp\\psspool.ps") ; a tmp spool file
;;;(defun nt-ps-print-buffer-with-faces ()
;;; (interactive)
;;; (ps-print-buffer-with-faces ps-lpr-buffer)
;;; (shell-command
;;; (apply 'concat (append (list ps-lpr-command " ")
;;; ps-lpr-switches
;;; (list " " ps-lpr-buffer))))
;;;)
;;;(define-key global-map "\C-cp" 'nt-ps-print-buffer-with-faces)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;for lpr printing. relies on special pr program
;;;;residing at: http://atnetsend.ne.mediaone.net/~paquette/WinProgramming.html
;;;(setq lpr-command "pr")
;;;(setq lpr-add-switches nil)
;;;(setq lpr-switches '("-f" "-p55" "-P\\\\wmsto1si1324\\ra_ekutb" "-s"))
(if is-pc (progn
;for print-NT.el, pasted from there
(setq lpr-command "print")
(setq lpr-destination '("/D:\\\\WMSTO1SI1324\\Ra_ekutb")) ;; for normal
printer
(setq ps-lpr-destination '("/D:\\\\WMSTO1SI1324\\Ra_ekutb")) ;; for
postscript printer
(setq ps-print-use-faces t)
(setq ps-print-use-gs nil) ; t - use ghostscript, nil - do not
;(setq gs-print-command "c:\\gs\\gswin32.exe")
;(setq gs-print-switches '("-q -sDEVICE=ljet4
-r600 -dNOPAUSE"))
;(setq gs-view-command
"c:\\gs\\gsview\\gsview32.exe")
;(setq ps-paper-type 'ps-a4) ; the type of
paper (if needed)
(require 'print-nt)
))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; some gnus setup
(setq gnus-nntp-server "news.sbbs.se")
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;compilation mode
(define-key global-map [f6] 'next-error)
(define-key global-map [f7] 'compile)
;(add-hook 'compilation-output-filter-functions 'shell-strip-ctrl-m nil t)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;for editing ini files bat files, etc
;; always enable both sets of generic modes
(setq generic-define-mswindows-modes t)
(setq generic-define-unix-modes t)
(require 'generic-mode)
(require 'generic-extras)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;ispell - the amazing free speller
(if is-pc
(setq ispell-program-name "c:/ispell/bin/ispell.exe")
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;w3 - the amazing browser
(require 'w3-auto)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;cd to home
(if is-pc
(cd "/roles/verona/")
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; toggle case function kindly provided by Paul Kincunnan
(defun toggle-case ()
(interactive)
(let (change-case
(case-fold-search nil))
(cond
((looking-at "[a-z]")
(setq change-case 'upcase-region))
((looking-at "[A-Z]")
(setq change-case 'downcase-region)))
(if change-case
(apply change-case
(list
(match-beginning 0)
(+ (match-beginning 0) 1))))))
(global-set-key [f9] 'toggle-case)
;my neato auto-abbrev stuff
(load "~/roles/verona/auto-abbrev.el")
;now maximize the window
;(w32-maximize-window)
;allow sendevents (for voicecontrol i think)
(if (string-equal window-system "x") (setq x-allow-sendevents t) )
;my jikes interfaceing
(defun jikes-send-return () (interactive "") (process-send-string (get-process
"compilation") "\\n"))
;my toy gqmpeg interface
(defun gqmpeg-add-file ()
(interactive)
(let*
( (start (+ 2 (line-beginning-position)))
(end (line-end-position))
(line (concat "/mnt/alita_mp3/" (buffer-substring start end)))
)
(message line)
(start-process "gqmpeg" nil "/usr/local/bin/gqmpeg" "-pladd" line)
)
)
(global-set-key [f8] 'gqmpeg-add-file)
;;; Support for the elisp library elib.
(setq load-path (append (list "/usr/local/lib/emacs/site-lisp/elib-1.0")
load-path))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;eieo
(add-to-list 'load-path "/usr/local/lib/emacs/site-lisp/eieio-0.15")
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;semantic stuff
(add-to-list 'load-path "/usr/local/lib/emacs/site-lisp/semantic-1.3.2") ; so Emacs
can find semantic
; change to actual install area.
(require 'semantic-c) ; for C code integration
(require 'semantic-el) ; for Emacs Lisp code integration
(require 'semantic-make) ; for Makefile integration
(require 'semantic-imenu) ; if you use imenu or wich-function
(add-hook 'speedbar-load-hook (lambda () (require 'semantic-sb)))
; for speedbar integration
(autoload 'semantic-bnf-mode "semantic-bnf" "Mode for Bovine Normal Form." t)
(add-to-list 'auto-mode-alist '("\\.bnf$" . semantic-bnf-mode))
; for editing .bnf parser files.
(autoload 'semantic-minor-mode "semantic-mode" "Mode managing semantic parsing." t)
; for semantic-minor-mode
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;speedbar
(define-key global-map [f4] 'speedbar-get-focus)
(add-to-list 'load-path "/usr/local/lib/emacs/site-lisp/speedbar-0.13a")
(autoload 'speedbar-frame-mode "speedbar" "Popup a speedbar frame" t)
(autoload 'speedbar-get-focus "speedbar" "Jump to speedbar frame" t)
;; Texinfo fancy chapter tags
(add-hook 'texinfo-mode-hook (lambda () (require 'sb-texinfo)))
;For any verison of emacs on a linux RPM based system:
(autoload 'rpm "sb-rpm" "Rpm package listing in speedbar.")
;For any version of emacs where w3 is installed:
;; w3 link listings
(autoload 'w3-speedbar-buttons "sb-w3" "s3 specific speedbar button generator.")
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;stuff for java editing
; (setq jde-web-browser "netscape")
; (setq jde-doc-dir "c:/jdk1.1/docs/")
; (jde-db-set-source-paths "c:/jdk1.1/src/;c:/myjava/src/")
;hacks to get jde to work with the nt-emacs 20 beta
;probably rather unwise
;(setq x-pointer-top-left-arrow 0)
;(setq x-pointer-hand2 0)
;a function renamed between 20.2 and 20.93
; define an alias if running in a later version...
(if (not (string-lessp emacs-version "20.2"))
(defalias 'easy-menu-create-keymaps 'easy-menu-create-menu)
)
(require 'jmaker)
(require 'jde)
; for javadoc browsing
;use (javahelp-build) tob build index
(setq max-lisp-eval-depth '50000)
(setq max-specpdl-size '50000)
(load "browse-url")
(load "javahelp")
(setq javahelp-directories '("/usr/local/lib/java/jdk1.1.7/docs/api/"))
(setq javahelp-temp-dir "/tmp/")
(global-set-key [f12] 'javahelp-search)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;jave
;try to provide imenu support
(defun latex-make-imenu-expression ()
"make a vb imenu regexp. See `imenu-generic-expression'."
'((nil "\\s-*\\(\\([F\\|f]unction\\)\\|\\([S\\|s]ub\\)\\)\\s-+\\([a-zA-Z0-9_]+\\)"
4)("Types" "^\\s-*[T|t]ype\\s-+\\([a-zA-Z0-9_]+\\)" 1)))
;jave. provide imenu
(setq imenu-generic-expression (latex-make-imenu-expression))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;for desktop mode(retrieving the emacs state last saved)
;(desktop-load-default)
;(desktop-read)
(custom-set-variables
'(browse-url-browser-function (quote browse-url-netscape))
'(tex-dvi-view-command "xdvi" t)
'(html-helper-mode-global-JSP-not-ASP t nil (html-helper-mode))
'(jde-help-docsets (quote (("javadoc" "/usr/local/lib/java/jdk1.3/docs/api/" nil))))
'(compilation-scroll-output t)
'(speedbar-activity-change-focus-flag t)
'(which-func-mode-global t nil (which-func))
'(compilation-ask-about-save nil)
'(which-func-modes (quote (emacs-lisp-mode c-mode c++-mode perl-mode makefile-mode
sh-mode)))
'(w3-do-incremental-display t)
'(comint-input-ignoredups t)
'(w3-debug-html (quote style))
'(ange-ftp-default-user "ftp")
'(font-lock-support-mode (quote lazy-lock-mode))
'(speedbar-frame-parameters (quote ((width . 50) (scroll-bar-width . 10)
(border-width . 0) (menu-bar-lines . 0) (unsplittable . t) (top . 0) (left . 0)
(minibuffer))))
'(compilation-search-path (quote ("~/qtrans/build/src"
"~/roles/verona/GraphPanel/src/" nil)))
'(frame-background-mode (quote light))
'(jde-enable-abbrev-mode t)
'(ange-ftp-default-password "[EMAIL PROTECTED]")
'(show-paren-ring-bell-on-mismatch t)
'(gnus-nntpserver-file "/lib/nntpserver")
'(dabbrev-case-replace nil)
'(blink-matching-paren-on-screen t)
'(display-time-24hr-format t)
'(dabbrev-case-fold-search t)
'(speedbar-supported-extension-expressions (quote
(".[CcHh]\\(\\+\\+\\|pp\\|c\\|h\\)?" ".tex\\(i\\(nfo\\)?\\)?" ".el" ".emacs" ".l"
".lsp" ".p" ".java" ".f90" ".ada" ".pl" ".tcl" ".m" "Makefile\\(\\.in\\)?" ".bas"
".cls" ".frm" ".ini" ".txt")))
'(speedbar-show-unknown-files t))
(custom-set-faces
'(font-lock-keyword-face ((t (:foreground "CornFlowerBlue"))))
'(font-lock-warning-face ((t (:bold t :foreground "Salmon"))))
'(font-lock-constant-face ((t (:foreground "MediumAquamarine"))))
'(font-lock-type-face ((t (:foreground "MediumSeaGreen"))))
'(font-lock-variable-name-face ((t (:foreground "Goldenrod"))))
'(font-lock-function-name-face ((t (:foreground "Blue")))))
(put 'downcase-region 'disabled nil)
=====end inserted .emacs file
--
Joakim Verona
[EMAIL PROTECTED]
http://www.verona.se/
