mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-02-05 20:43:08 +00:00
Code Issues Releases Activity

* font-lock.el (c-font-lock-keywords-2): Only fontify a label if it is

Browse Source 
on the line by itself.
        (java-font-lock-keywords-2): Likewise.  Don't fontify a class name if
        it is not in a declarative context.
This commit is contained in:
Simon Marshall 1999-03-23 15:31:44 +00:00
parent f30b349973
commit 4d80b2cc0f
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
lisp/font-lock.el
View File

@ -2311,7 +2311,7 @@ See also `c-font-lock-extra-types'.")
;; Anders Lindgren <andersl@andersl.com> points out that it is quicker to
;; use MATCH-ANCHORED to effectively anchor the regexp on the left.
;; This must come after the one for keywords and targets.
'(":" ("^[ \t]*\\(\\sw+\\)[ \t]*:"
'(":" ("^[ \t]*\\(\\sw+\\)[ \t]*:[ \t]*$"
(beginning-of-line) (end-of-line)
(1 font-lock-constant-face)))
)))
@ -2777,8 +2777,8 @@ See also `java-font-lock-extra-types'.")
"Gaudy level highlighting for Java mode.
See also `java-font-lock-extra-types'.")
;; Regexps written with help from Fred White <fwhite@bbn.com> and
;; Anders Lindgren <andersl@andersl.com>.
;; Regexps written with help from Fred White <fwhite@bbn.com>,
;; Anders Lindgren <andersl@andersl.com> and Carl Manning <caroma@ai.mit.edu>.
(let* ((java-keywords
(eval-when-compile
(regexp-opt
@ -2816,7 +2816,7 @@ See also `java-font-lock-extra-types'.")
;;
;; Fontify class names.
'("\\<\\(class\\)\\>[ \t]*\\(\\sw+\\)?"
(1 font-lock-type-face) (2 font-lock-function-name-face nil t))
(1 font-lock-keyword-face) (2 font-lock-type-face nil t))
;;
;; Fontify package names in import directives.
'("\\<\\(import\\|package\\)\\>[ \t]*\\(\\sw+\\)?"
@ -2832,8 +2832,8 @@ See also `java-font-lock-extra-types'.")
;;
;; Fontify class names.
`(eval .
(cons (concat "\\<\\(" (,@ java-type-names) "\\)\\>")
'font-lock-type-face))
(cons (concat "\\<\\(" (,@ java-type-names) "\\)\\>[^.]")
'(1 font-lock-type-face)))
;;
;; Fontify all builtin keywords (except below).
(concat "\\<\\(" java-keywords "\\|" java-type-specs "\\)\\>")
@ -2842,7 +2842,7 @@ See also `java-font-lock-extra-types'.")
(list "\\<\\(break\\|case\\|continue\\|goto\\)\\>[ \t]*\\(-?\\sw+\\)?"
'(1 font-lock-keyword-face) '(2 font-lock-constant-face nil t))
;; This must come after the one for keywords and targets.
'(":" ("^[ \t]*\\(\\sw+\\)[ \t]*:"
'(":" ("^[ \t]*\\(\\sw+\\)[ \t]*:[ \t]*$"
(beginning-of-line) (end-of-line)
(1 font-lock-constant-face)))
;;