Dear Paul...
host platform: GNU Emacs 20.7.1 (sparc-sun-solaris2.5.1, X toolkit) of
Fri Jun 23 2000
JDE version: 2.1.7
Emacs version: 20.7
complete contents of your .emacs file: ATTACHED
When I load particular files in our development environment, all of the
time certain files take a very long time to load because of some type of
parsing that JDE maybe doing after the "Fontifying CKBNConstants.java...
(regexps.............)" message occurs and before the file is actually
displayed. It goes though some count from 0% to 100%. After the 100%,
the file is displayed. I can't attach the file (propietary) but the file
is about 1500 lines lone and is a simple class that initializes
constants that we use in other java files (so it's rather a linear 1500
lines). There are other files that take along time to bringup that are
actually more of a typical java class: may methods, inner classes, etc.
A couple of question:
- I want to know what this feature is actually doing and can/do I
benefit from it?
- Can I turn it off?.
BTW, please reply to [EMAIL PROTECTED] as I don't belong to any JDE
mailing lists.
Thanks...Jim
My .emacs is attached and here is an excert from the *Messages* buffer:
Loading ~/.emacs...
Loading cus-face...
Loading cus-face...done
Loading regexp-opt...
Loading regexp-opt...done
Loading backquote...
Loading backquote...done
Loading wid-browse...
Loading wid-browse...done
Loading cl-extra...
Loading cl-extra...done
Loading cl-macs...
Loading cl-macs...done
Bootstrapping objects...
Bootstrapping objects...done
Loading time...
Loading time...done
Loading timer...
Loading timer...done
Loading international/mule-cmds.el (source)...
Loading international/mule-cmds.el (source)...done
Loading /home/jsnyder/site_lisp/fshell.el (source)...
Loading /home/jsnyder/site_lisp/fshell.el (source)...done
Loading /home/jsnyder/site_lisp/igrep.el (source)...
Loading /home/jsnyder/site_lisp/igrep.el (source)...done
Loading /home/jsnyder/site_lisp/comment.el (source)...
Loading /home/jsnyder/site_lisp/comment.el (source)...done
Done Loading ~/.emacs...
For information about the GNU Project and its goals, type C-h C-p.
Note: file is write protected
Loading cl-seq...
Loading cl-seq...done
Setting JDE variables to startup values...
Fontifying CKBNConstants.java...
Fontifying CKBNConstants.java... (regexps.............)
Setting JDE variables to startup values...
CKBNConstants.java... done
GNU Emacs 20.7.1 (sparc-sun-solaris2.5.1, X toolkit) of Fri Jun 23 2000
on tonkawa
--
________________________
Jim Snyder
Senior Software Engineer
Copper Key Technologies
402 High Point Dr., #201
Cocoa, FL. 32926
www.copperkey.com
321.635.9070 x135
;;;
;;; Jim Snyder's .emacs file
;;;
;;; 06/27/97
;;;
(message "Loading ~/.emacs...")
;;(server-start)
(require 'jde)
;;(require 'jmaker)
;;
;; 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 20000000)
;;
;; 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)))
;;
;; 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 '[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 '[f9] 'undo)
(global-set-key '[f10] 'goto-line)
(global-set-key '[C-f10] 'what-line)
(global-set-key '[f11] 'enlarge-window)
(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
;;
;; 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-gen-cflow-case (quote ("(if (jde-parse-comment-or-quoted-p)" "'(l \"case\")"
"'(l > \"case\")" ")")))
'(ange-ftp-auto-save 1)
'(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-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-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\")" ")")))
'(which-func-modes t)
'(ange-ftp-make-backup-files t)
'(c-comment-only-line-offset (quote (0 . 0)))
'(jde-gen-class-buffer-template (quote ("(funcall jde-gen-boilerplate-function) 'n"
"\"// ***********************************************************************\" 'n"
"\"// (c) Copyright Copper Key Technologies, Inc. 2000.\" 'n" "\"// All rights
reserved.\" 'n" "\"//\" 'n" "\"//
***********************************************************************\" 'n" "\"//\"
'n" "\"// NOTICE: Copper Key Technologies, Inc. proprietary rights are included\" 'n"
"\"// in this source code. Recipient and/or user, by accepting this\" 'n"
"\"// source code, agrees that neither this source code nor any part\" 'n"
"\"// thereof shall be reproduced, copied, adapted, distributed,\" 'n" "\"//
used, displayed or transferred to any party, or used or\" 'n" "\"//
disclosed to others for development, consulting, or any other\" 'n" "\"//
purpose except as specifically authorized in writing by\" 'n" "\"//\" 'n" "\"//
Copper Key Technologies, Inc.\" 'n" "\"//
***********************************************************************\" 'n" "\"\"
'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>")))
'(jdok-describe-constructor "* Constructor")
'(jde-global-classpath (quote ("${JSDK_ROOT}/server.jar" "${JSDK_ROOT}/servlet.jar"
"${BIZNAV_HOME}" "${HOME}/www/sybase/jConnect.jar"
"${JDK_ROOT}/jdk1.2.2/jre/lib/rt.jar"
"${HOME}/www/StudioJ_swing1.1/Blend.J2_0/jars/design/jfc/Blend.jar"
"${HOME}/www/StudioJ_swing1.1/Chart.J2_2/jars/ChartRuntimeJFC.jar"
"${HOME}/www/StudioJ_swing1.1/Grid.J2_0/jars/design/jfc/grid2_0.jar"
"/home/malcolm/java/capsapi_classes.zip" "${JCLASS_HOME}/lib/jcchart401K.jar"
"${JCLASS_HOME}/lib/jcdatasource401K.jar" "${JCLASS_HOME}/lib/jchigrid401K.jar"
"${JCLASS_HOME}/lib/jctable401K.jar" "${JCLASS_HOME}/lib/jcjarmaster401K.jar"
"${JCLASS_HOME}/lib/jcfield401K.jar" "${JCLASS_HOME}/lib/jcswingsuite401K.jar"
"/cots/mapxtreme/server/mxtj20.jar" "/cots/mapxtreme/server/devsup20.jar"
"/cots/mapxtreme/server/dpext20.jar" "/cots/mapxtreme/server/mxloc20.jar"
"/cots/mapxtreme/server/raster20.jar" "${HOME}/KLGroup" ".")))
'(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-enable-abbrev-mode t)
'(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") ("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") ("cke" .
"com.copperkey.util.CKException cke =\n\tnew
com.copperkey.util.CKException(\"DJKS:Bogus_EXCEPTION\");\n\tcke.printStackTrace();"))))
'(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")
(require 'jdok)
(setq frame-title-format "%b %l:%c %p")
;; jks don't like (hscroll-global-mode)
(message "Done Loading ~/.emacs...")
