;ELC ;;; Compiled by leavens@CMC3251632-A on Thu Sep 04 21:39:17 2003 ;;; from file d:/emacs/andersl-java-font-lock.el ;;; in Emacs version 21.3.1 ;;; with bytecomp version 2.85.4.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`andersl-java-font-lock.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; #@51 Default font lock keywords for the Java language. (defvar java-font-lock-keywords nil (#$ . 620)) #@43 Font lock keywords for the Java language. (defvar java-font-lock-keywords-1 nil (#$ . 724)) #@56 Font lock, additional support for types and variables. (defvar java-font-lock-keywords-2 nil (#$ . 822)) #@49 Font lock, additional support for javadoc tags. (defvar java-font-lock-keywords-3 nil (#$ . 933)) #@39 Regexp which matches primitive types. (defvar java-primitive-type-regexp "\\<\\(b\\(oolean\\|yte\\)\\|char\\|double\\|float\\|int\\|long\\|short\\|void\\)\\>" (#$ . 1037)) #@65 Number of pairs of parentheses in `java-primitive-type-regexp'. (defvar java-primitive-type-regexp-count 2 (#$ . 1215)) #@106 Regexp which matches names of classes or interfaces. The name is assumed to begin with a capital letter. (defvar java-class-type-regexp nil (#$ . 1342)) (byte-code "\301B\302\301!\204\f\303\303\207" [current-load-list java-class-type-regexp-count boundp nil] 2) #@40 Regexp which matches Java identifiers. (defvar java-identifier-regexp nil (#$ . 1614)) (byte-code "\301B\306\301!\204\f\307\310\311\312\313 \314 \n\315\260\316\313\f\314 \n\315\260@\316A+\317\320BC\321\322DC\323D\324\325\326 P\327D\330 P\331\332 \333Q\307\211\334FE\335 P\336\337 P\340\307\341FE\342 P\343\344 P\345\307\346FE\347C\350@\351\260B\352\\\353DDD\354 \351RE\352\\\355DD@\354 \351RA\352\\\355DD\356\357 \360Q\361\362\363FD\364 P\365D\366\257F\367FD\370\371E@\354\372Q\373\374 \375Q\376\377\201J\201K\257\201LFD\"G\367G\201M\201N P\201ODD\"HFI*\307\207" [current-load-list java-identifier-regexp-count digit letter capital-letter java-identifier-regexp boundp nil "A-Z\300-\326\330-\337" "a-zA-Z_$\300-\326\330-\366\370-\377" "0-9" "\\<\\([" "][" "]*\\)\\>" 1 "\\<\\(abstract\\|const\\|final\\|native\\|p\\(r\\(ivate\\|otected\\)\\|ublic\\)\\|s\\(tatic\\|ynchronized\\)\\|transient\\|volatile\\)\\>" 4 "\\<\\(b\\(reak\\|yvalue\\)\\|c\\(a\\(se\\|tch\\)\\|lass\\|ontinue\\)\\|do\\|e\\(lse\\|xtends\\)\\|f\\(inally\\|or\\)\\|i\\(f\\|mp\\(lements\\|ort\\)\\|n\\(stanceof\\|terface\\)\\)\\|new\\|package\\|return\\|switch\\|t\\(hrows?\\|ry\\)\\|while\\)\\>" (1 font-lock-keyword-face) (1 font-lock-type-face) ("\\<\\(this\\|super\\)\\>" (1 font-lock-reference-face)) ("\\<\\(false\\|null\\|true\\)\\>" (1 font-lock-reference-face)) "\\\\s *" (1 font-lock-function-name-face) "\\<\\(package\\|import\\)\\>\\ s*" (2 font-lock-reference-face) "\\=\\.\\(" "\\)" (1 (if (eq (char-after (match-end 0)) 46) 'font-lock-reference-face 'font-lock-type-face)) "\\<\\(extends\\|instanceof\\|new\\)\\>\\ s*" (2 (if (eq (char-after (match-end 0)) 46) 'font-lock-reference-face 'font-lock-type-face)) "\\=\\." (goto-char (match-end 0)) (1 (if (eq (char-after (match-end 0)) 46) 'font-lock-reference-face 'font-lock-type-face)) "\\<\\(implements\\|throws\\)\\>\\ s*" (2 (if (eq (char-after (match-end 0)) 46) 'font-lock-reference-face 'font-lock-type-face)) "\\=\\(\\.\\|\\s *\\(,\\)\\s *\\)" (goto-char (match-end 0)) (3 (if (eq (char-after (match-end 0)) 46) 'font-lock-reference-face 'font-lock-type-face)) "^\\s *\\(" "\\s *\\)*" "\\s *(" 2 (condition-case nil (save-excursion (goto-char (scan-sexps (- (match-end 0) 1) 1)) (and (looking-at "\\s *\\($\\|\\\\|{\\)") 'font-lock-function-name-face)) (error 'font-lock-function-name-face)) "\\s *\\(\\[\\s *\\]\\s *\\)*" font-lock-function-name-face ":" "^\\s *" "\\s *:" (beginning-of-line) (end-of-line) (1 font-lock-reference-face) "\\<\\(break\\|continue\\)\\>\\s *" (2 font-lock-reference-face) ("\\\\s *\\(.*\\):" (1 font-lock-reference-face)) append (1 font-lock-type-face) (font-lock-match-java-style-declaration-item-and-skip-to-next (goto-char (match-end 0)) (goto-char (match-end 0)) (1 font-lock-variable-name-face)) "\\(\\<\\|$\\|)\\s *\\([(\"]\\|\\<\\)\\)" (1 (save-match-data (save-excursion (goto-char (match-beginning (+ 2 java-class-type-regexp-count))) (and (not (looking-at "\\")) 'font-lock-type-face)))) "\\=" "\\." (progn (goto-char (match-beginning 0)) (while (or (eq (preceding-char) 46) (eq (char-syntax (preceding-char)) 119)) (backward-char))) (goto-char (match-end 0)) java-class-type-regexp java-class-type-regexp-count java-modifier-regexp-count java-modifier-regexp java-primitive-type-regexp java-primitive-type-regexp-count java-font-lock-keywords-1 java-font-lock-keywords-2 java-font-lock-keywords-3 java-font-lock-keywords (1 font-lock-reference-face) (0 nil) (font-lock-match-java-style-declaration-item-and-skip-to-next (goto-char (match-end 1)) (goto-char (match-end 0)) (1 font-lock-variable-name-face)) ("\\(@\\(author\\|exception\\|param\\|return\\|see\\|version\\)\\)" (1 font-lock-reference-face t)) "@\\(param\\)\\s *" (2 font-lock-variable-name-face t)] 16) #@45 Match, and skip over, variable definitions. (defalias 'font-lock-match-java-style-declaration-item-and-skip-to-next #[(limit) "\304\305!\203\n\306\225b\210\304!\205@\307 \310\216\311\n\312\224\312\225{\"*?\205@\307 \313\216\212\312\224b\210\304 \314P!+?\205@\307 \315\216\316\317\320\217*\207" [java-identifier-regexp save-match-data-internal java-primitive-type-regexp java-class-type-regexp looking-at "\\s *\\(\\[\\s *\\]\\s *\\)*" 0 match-data ((set-match-data save-match-data-internal)) string-match 1 ((set-match-data save-match-data-internal)) "\\s *\\(\\[\\s *\\]\\s *\\)*\\<" ((set-match-data save-match-data-internal)) nil (byte-code "\214e}\210\301\225b\210\302\303!\204\304`\305\"\206db\210\202 \306\225b)\207" [limit 0 looking-at "\\s *\\(\\(,\\)\\|;\\|$\\)" scan-sexps 1 2] 3) ((error t))] 4 (#$ . 5446)]) (byte-code "\301\302!\210\303\236\204\303\304BB\305\306!\207" [font-lock-defaults-alist require font-lock java-mode ((java-font-lock-keywords java-font-lock-keywords-1 java-font-lock-keywords-2 java-font-lock-keywords-3) nil nil ((95 . "w") (36 . "w")) nil (font-lock-mark-block-function . mark-defun)) provide andersl-java-font-lock] 2)