Dear Paul...
When I load .java files, I frequently get the message at the bottom
"Rescanning classes..." (without all the hash marks) which for some
source files takes a while to complete. I was wonder if I could turn
this off? Attached is the appropriate info for JDE & emacs versions
along with the .emacs file.
Thanks...Jim
JDE_ELIB_VERSION=1.0
JDE_EIEIO=0.16
JDE_VERSION=2.2.7beta11
JDE_SPEEDBAR_VERSION=0.13a
JDE_SEMANTIC_VERSION=1.3.3
GNU Emacs 20.7.1 (sparc-sun-solaris2.5.1, X toolkit) of Fri Jun 23 2000 on ....
;;;
;;; Jim Snyder's .emacs file
;;;
;;; 01/15/2001
;;;
(message "Loading ~/.emacs...")
;;(server-start)
(require 'jde)
;;(require 'jmaker)
(require 'senator)
;;
;; DEFINE CODING STANDARDS
;;
(defun JAVA ()
;; my customizations for all of c-mode, c++-mode, objc-mode, java-mode
(setq-default c-basic-offset 2)
;; this will make sure spaces are used instead of tabs
(setq indent-tabs-mode nil)
(c-set-offset 'class-open '0)
(c-set-offset 'class-close '0)
(c-set-offset 'inher-intro '+)
(c-set-offset 'inher-cont '0)
(c-set-offset 'topmost-intro '0)
(c-set-offset 'knr-argdecl-intro '0)
(c-set-offset 'knr-argdecl '0)
(c-set-offset 'defun-open '0)
(c-set-offset 'defun-block-intro '+)
(c-set-offset 'substatement-open '0)
(c-set-offset 'statement-block-intro '+)
(c-set-offset 'case-label '+)
(c-set-offset 'statement-case-open '+)
(c-set-offset 'statement-cont '+)
(c-set-offset 'c '0)
(c-set-offset 'inline-open '0)
(c-set-offset 'substatement '0)
)
(add-hook 'c-mode-common-hook 'JAVA)
;;
;; mail setup
;;
(setq mail-yank-prefix " >")
(add-hook 'mail-setup-hook 'mail-abbrevs-setup)
;;
;; set up Line Mode
;;
(display-time)
(setq line-number-mode t)
(setq column-number-mode t)
(setq line-number-display-limit 200000)
;;
;; tell emacs to scroll 1 line at a time
;;
(setq scroll-step 1)
;;
;; Finds the matching parenthesis/brackets/curly braces
;;
(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)))))
;;
;; C style commenting of current line
;;
(defun c-comment-current-line ()
(interactive)
(let ((comment-start "/* ")
(comment-end " */")
(bol (save-excursion (beginning-of-line) (point)))
(eol (save-excursion (end-of-line) (point))))
(comment-region bol eol)))
;;
;; Allows multiple shells: shell<1>, shell<2>, etc.
;;
(defun new-fshell ()
(interactive)
(fshell '(4)))
(setq html-helper-use-JSP-this-buffer t)
(defun gotoJSMode ()
(interactive)
(html-script-narrow-to-javascript))
(defun gotoHTMLHelper ()
(interactive)
(narrow-to-page)
(html-helper-mode-run)
(font-lock-fontify-buffer))
(defun serverBuffer ()
(interactive)
(rename-buffer "---SERVER---"))
(defun clientBuffer ()
(interactive)
(rename-buffer "---CLIENT---"))
;;
;; SET UP FUNCTION KEYS FOR (SORT OF) 1 KEY ACCESS
;;
(global-set-key '[f1] 'jde-compile)
(global-set-key '[M-f1] 'compile)
(global-set-key '[C-f1] 'kill-compilation)
;;;jks(global-set-key '[f2] "\C-x`") ; traverse through error list after
compiling
;;;(global-set-key '[f2] "\C-c C-v C-z")
(global-set-key '[C-f3] 'cpp-comment-current-line)
(global-set-key '[f3] 'comment-out-region)
(global-set-key '[f4] 'match-paren)
;; jks (global-set-key '[f5] 'jde-db)
(global-set-key '[f5] 'jdok-generate-javadoc-template)
;;(global-set-key '[f5] 'gdb)
(global-set-key '[C-f5] 'jde-run)
(global-set-key '[C-f6] 'shell)
(global-set-key '[f6] 'new-fshell)
(global-set-key '[f7] 'ediff-buffers)
(global-set-key '[C-f7] 'font-lock-fontify-buffer)
;;(global-set-key '[f8] 'comment-out-region)
(global-set-key '[f8] 'serverBuffer)
(global-set-key '[C-f8] 'clientBuffer)
(global-set-key '[f9] 'undo)
(global-set-key '[f10] 'goto-line)
(global-set-key '[C-f10] 'what-line)
(global-set-key '[f11] 'enlarge-window)
(global-set-key '[C-f11] 'gotoJSMode)
(global-set-key '[C-SunF36] 'gotoJSMode)
(global-set-key '[C-f12] 'gotoHTMLHelper)
(global-set-key '[C-SunF37] 'gotoHTMLHelper)
(global-set-key '[f12] 'enlarge-window-horizontally)
(global-set-key '[SunF36] 'enlarge-window)
(global-set-key '[SunF37] 'enlarge-window-horizontally)
(global-set-key [C-left] 'scroll-right) ; left arrow
(global-set-key [C-right] 'scroll-left) ; right arrow
(global-set-key [mouse-3] "\C-l")
;;(global-set-key [M-f7] 'font-lock-fontify-buffer)
(global-set-key [C-tab] "\C-xo") ; tab between frames
(global-set-key (kbd "C-c e") 'erase-buffer)
(global-set-key (kbd "M-n") 'senator-next-token)
(global-set-key (kbd "M-p") 'senator-previous-token)
;;
;; load appropriate .el files
;;
(load "international/mule-cmds.el") ;; needed for fluke error when starting fshell.el
(load "${HOME}/site_lisp/fshell.el")
;; jks (load "${HOME}/site_lisp/strip.el")
(load "${HOME}/site_lisp/igrep.el")
;;
;; hook for removing trailing blanks from files
;;
;; jks (require 'strip)
;;
;; Comments out a region using comment.el
;;
(load "${HOME}/site_lisp/comment.el")
(autoload 'comment-out-region "comment" nil t)
(global-set-key "\C-cq" 'comment-out-region)
;;
;; Information for igrep
;;
(autoload (function igrep) "igrep"
"*Run `grep' to match EXPRESSION in FILES..." t)
(autoload (function egrep) "igrep"
"*Run `egrep'..." t)
(autoload (function fgrep) "igrep"
"*Run `fgrep'..." t)
(autoload (function igrep-recursively) "igrep"
"*Run `grep' recursively..." t)
(autoload (function egrep-recursively) "igrep"
"*Run `egrep' recursively..." t)
(autoload (function fgrep-recursively) "igrep"
"*Run `fgrep' recursively..." t)
;;
;; Moves the mouse cursor out of the way for me.
;;
;;(cond (window-system
;; (require 'avoid)
;; (mouse-avoidance-mode 'cat-and-mouse)))
;;;
;;; insert function header
;;;
;;;(defun insert-function-header ()
;;; "Insert a predetermined function header."
;;; (interactive)
;;; (insert-file-contents "~\docs\func_header.txt"))
;;;(global-set-key '[f2] 'insert-function-header)
;;
;; misc. setup
;;
(setq compile-command "gnumake") ;;"makeit")
(setq version-control t)
(setq blink-matching-paren t)
(setq kept-old-versions 20)
(setq kept-new-versions 20)
(setq delete-old-versions t)
;;
;; new stuff for emacs 20.2
;;
(setq compilation-window-height 15)
(setq c-comment-continuation-stars "**")
(setq require-final-newline t)
(setq tags-table-list '("~/.TAGS/TAGS"))
(add-hook 'java-mode-hook
(function
(lambda ()
(setq case-fold-search t))))
(setq auto-fill-mode t)
(setq fill-column 80)
;;;
;;; insert function header
;;;
;;;(defun insert-function-header ()
;;; "Insert a predetermined function header."
;;; (interactive)
;;; (insert-file-contents "~/jsnyder/docs/method.java"))
;;;(global-set-key '[f2] 'insert-function-header)
;;(defun my-center-and-highlight()
;; "Centers where cursor is and relights buffer"
;; (font-lock-fontify-buffer))
;;(global-set-key [mouse-3] 'my-center-and-highlight)
;;;
;;; JDE
;;;
;;;;
;;;;
;; 6.22.00 (require 'jde)
(define-key-after (lookup-key global-map [menu-bar tools])
[speedbar] '("Speedbar" . speedbar-frame-mode) [calendar])
(custom-set-variables
'(jde-run-option-properties nil)
'(jde-compile-option-command-line-args "")
'(jde-auto-parse-enable nil)
'(jde-gen-cflow-case (quote ("(if (jde-parse-comment-or-quoted-p)" "'(l \"case\")"
"'(l > \"case\")" ")")))
'(jde-auto-parse-buffer-interval 0)
'(ange-ftp-auto-save 1)
'(jde-compile-option-debug (quote ("all" (t nil nil))))
'(jde-run-option-verbose (quote (t t t)))
'(jde-gen-cflow-switch (quote ("(if (jde-parse-comment-or-quoted-p)" "'(l
\"switch\")" "'(l > \"switch\")" ")")))
'(jde-run-option-heap-size (quote ((1 . "megabytes") (256 . "megabytes"))))
'(jde-gen-cflow-while (quote ("(if (jde-parse-comment-or-quoted-p)" "'(l \"while\")"
"'(l > \"while\")" ")")))
'(jde-gen-cflow-if-else (quote ("(if (jde-parse-comment-or-quoted-p)" "'(l \"ife\")"
"'(l > \"if(\" (p \"if-clause: \" clause) \") \"" "\"{\" > n> r n" "\"} // end of if
(\" (s clause) \")\" > n>" "> \"else \"" "\"{\" > n> r n" "\"}\"> n)" ")")))
'(which-func-mode-global t nil (which-func))
'(jde-compile-option-vm-args (quote ("-mx20000000")))
'(jde-gen-cflow-if (quote ("(if (jde-parse-comment-or-quoted-p)" "'(l \"if\")" "'(l >
\"if\")" ")")))
'(jde-gen-cflow-for (quote ("(if (jde-parse-comment-or-quoted-p)" "'(l \"for\")" "'(l
> \"for\")" ")")))
'(speedbar-use-images nil)
'(which-func-modes t)
'(ange-ftp-make-backup-files t)
'(jde-db-source-directories (quote ("/home/jsnyder/www/bmg/dev"
"/cots/jdk/jdk1.2.2/jre/lib/rt.jar" "/cots/jsdk/jsdk2.1/servlet.jar"
"/cots/jsdk/jsdk2.1/server.jar" "/home/jsnyder/.scratch")))
'(c-comment-only-line-offset (quote (0 . 0)))
'(jde-db-debugger (quote ("JDEbug" "jdb" . "Executable")))
'(jdok-describe-constructor "* Constructor")
'(jde-global-classpath (quote ("${BIZNAV_HOME}" "${JSDK_ROOT}/server.jar"
"${JSDK_ROOT}/servlet.jar" "${HOME}/www/sybase/jConnect.jar"
"${JDK_ROOT}/jdk1.2.2/jre/lib/rt.jar" "/home/malcolm/java/capsapi_classes.zip"
"${KLGROUP_JARS_COMPILE}" "${MAPXTREME_COMPILE}"
"/ora/01/oracle/product/8.1.6/jdbc/lib/classes12.zip" "." "${MY_KLGROUP_EXAMPLES}")))
'(jde-gen-cflow-main (quote ("(if (jde-parse-comment-or-quoted-p)" "'(l \"main\")"
"'(l > \"public static void main (String[] args) \"" "\"{\" > n> r n" "\"}\"> n)"
")")))
'(jde-auto-parse-max-buffer-size -1)
'(jde-enable-abbrev-mode t)
'(jde-bug-jpda-directory "/home/jsnyder/jpda1.0/lib/sparc")
'(jde-run-option-java-profile (quote (nil . "./java.prof")))
'(jde-compile-finish-hook (quote (jde-compile-finish-refresh-speedbar
jde-compile-finish-flush-completion-cache jde-compile-finish-refresh-speedbar)))
'(jdok-describe-method "* %s")
'(vc-make-backup-files t)
'(jde-mode-abbreviations (quote (("ab" . "abstract") ("bo" . "boolean") ("br" .
"break") ("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") ("edln" .
"System.err.println(\"") ("dln" . "System.out.println(\"DJKS:") ("ln" .
"System.out.println(") ("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") ("timeit" . "long startTime = System.currentTimeMillis();
long stopTime = System.currentTimeMillis();
System.out.println(\"DJKS:TOTAL_TIME: \"+(stopTime-startTime)+\"(ms)\");
") )))
'(jde-mode-line-format (quote ("-" 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" ")%]--"
(jde-which-method-mode ("" jde-which-method-format "--")) (line-number-mode "L%l--")
(column-number-mode "C%c--") (-3 . "%p") "-%-")))
'(jde-gen-cflow-else (quote ("(if (jde-parse-comment-or-quoted-p)" "'(l \"else\")"
"'(l > \"else\")" ")"))))
(custom-set-faces)
;;;
;;;
;;;
;;;(load "$HOME/.ctscripts.el")
;;;(load "$HOME/.headerTemplates.el")
;;;(add-hook 'comint-output-filter-functions
;;; 'comint-truncate-buffer)
;;;(setq comint-buffer-maximum-size 50000)
;;
;; hack mode for .properties files for color highlighting
;;
(load "${HOME}/site_lisp/ckie-properties-mode.el")
(setq auto-mode-alist
(append '(("\\.properties" . ckie-properties-mode)
("\\.properties.misc" . ckie-properties-mode)
("\\.properties-PORTS" . ckie-properties-mode)
("\\.java-ORIG" . jde-mode)
("\\-PreparedStatement" . jde-mode)
("\\.html$" . html-helper-mode)
("\\.jsp$" . html-helper-mode)
("\\.js$" . html-helper-mode)
) auto-mode-alist))
;; ("\\.jsp" . html-mode)
(require 'jdok)
(setq html-helper-use-expert-menu '1)
(setq frame-title-format "%b %l:%c %p")
;; jks don't like (hscroll-global-mode)
(put 'erase-buffer 'disabled nil)
;;; jks (defun indent-buffer ()
;;; jks "davep: Apply indentation to whole buffer."
;;; jks (interactive)
;;; jks (indent-region (point-min) (point-max) nil))
;;; jks (defun indent-buffer-and-untabify ()
;;; jks "davep: Apply indentation to whole buffer and then untabify."
;;; jks (interactive)
;;; jks (indent-buffer)
;;; jks (untabify (point-min) (point-max)))
;;; jks (global-set-key '[f2] 'indent-buffer-and-untabify)
;;(setq load-path
;; (nconc '(
;; "site_lisp/html-helper-mode"
;; )
;; load-path))
;;(load "${HOME}/site_lisp/html-helper-mode.elc")
(autoload 'html-helper-mode "html-helper-mode" "Yay HTML" t)
;;(setq auto-mode-alist (cons '(("\\.html$" . html-helper-mode)
;; ("\\.jsp$" . html-helper-mode)
;; ;; ("\\.js$" . html-helper-mode))
;; auto-mode-alist))
;;(require 'mmm-mode)
;;(require 'mmm-auto)
(message "Done Loading ~/.emacs...")
(put 'narrow-to-page 'disabled nil)
