Commit 883212ce authored by Simon Marshall's avatar Simon Marshall
Browse files

Changed font-lock-reference-face to font-lock-constant-face.

parent b6908641
...@@ -106,7 +106,7 @@ for file A. ...@@ -106,7 +106,7 @@ for file A.
("^\\sw.........[0-9: ]*" ("^\\sw.........[0-9: ]*"
(0 font-lock-string-face) (0 font-lock-string-face)
("\\([^<]+\\)<\\([A-Za-z0-9_.-]+@[A-Za-z0-9_.-]+\\)>" nil nil ("\\([^<]+\\)<\\([A-Za-z0-9_.-]+@[A-Za-z0-9_.-]+\\)>" nil nil
(1 font-lock-reference-face) (1 font-lock-constant-face)
(2 font-lock-variable-name-face))) (2 font-lock-variable-name-face)))
;; ;;
;; File names. ;; File names.
......
...@@ -259,7 +259,7 @@ Subexpression 2 must end right before the \\n or \\r.") ...@@ -259,7 +259,7 @@ Subexpression 2 must end right before the \\n or \\r.")
;; ;;
;; Dired marks. ;; Dired marks.
(list dired-re-mark (list dired-re-mark
'(0 font-lock-reference-face) '(0 font-lock-constant-face)
'(".+" (dired-move-to-filename) nil (0 font-lock-warning-face))) '(".+" (dired-move-to-filename) nil (0 font-lock-warning-face)))
;; People who are paranoid about security would consider this more ;; People who are paranoid about security would consider this more
;; important than other things such as whether it is a directory. ;; important than other things such as whether it is a directory.
......
...@@ -1680,7 +1680,7 @@ This function returns non-nil if the text was replaced." ...@@ -1680,7 +1680,7 @@ This function returns non-nil if the text was replaced."
(defvar checkdoc-output-font-lock-keywords (defvar checkdoc-output-font-lock-keywords
'(("\\(\\w+\\.el\\):" 1 font-lock-function-name-face) '(("\\(\\w+\\.el\\):" 1 font-lock-function-name-face)
("style check: \\(\\w+\\)" 1 font-lock-comment-face) ("style check: \\(\\w+\\)" 1 font-lock-comment-face)
("^\\([0-9]+\\):" 1 font-lock-reference-face)) ("^\\([0-9]+\\):" 1 font-lock-constant-face))
"Keywords used to highlight a checkdoc diagnostic buffer.") "Keywords used to highlight a checkdoc diagnostic buffer.")
(defvar checkdoc-output-mode-map nil (defvar checkdoc-output-mode-map nil
......
...@@ -104,10 +104,10 @@ ...@@ -104,10 +104,10 @@
;; ;;
;; Words inside `' which tend to be symbol names. ;; Words inside `' which tend to be symbol names.
(list (concat "`\\(" sym-char sym-char "+\\)'") (list (concat "`\\(" sym-char sym-char "+\\)'")
1 'font-lock-reference-face t) 1 'font-lock-constant-face t)
;; ;;
;; CLisp `:' keywords as references. ;; CLisp `:' keywords as builtins.
(list (concat "\\<:" sym-char "+\\>") 0 'font-lock-reference-face t)))) (list (concat "\\<:" sym-char "+\\>") 0 'font-lock-builtin-face t))))
"Default expressions to highlight in Help mode.") "Default expressions to highlight in Help mode.")
(defun help-mode () (defun help-mode ()
......
...@@ -130,7 +130,9 @@ This variable is buffer-local.") ...@@ -130,7 +130,9 @@ This variable is buffer-local.")
(defvar ielm-font-lock-keywords (defvar ielm-font-lock-keywords
(list (list
(cons (concat "^" (regexp-quote ielm-prompt)) 'font-lock-keyword-face) (cons (concat "^" (regexp-quote ielm-prompt)) 'font-lock-keyword-face)
'("\\(^\\*\\*\\*[^*]+\\*\\*\\*\\)\\(.*$\\)" (1 font-lock-comment-face) (2 font-lock-reference-face))) '("\\(^\\*\\*\\*[^*]+\\*\\*\\*\\)\\(.*$\\)"
(1 font-lock-comment-face)
(2 font-lock-constant-face)))
"Additional expressions to highlight in ielm buffers.") "Additional expressions to highlight in ielm buffers.")
;;; Completion stuff ;;; Completion stuff
......
...@@ -286,7 +286,7 @@ by substituting the new message number into the existing list.") ...@@ -286,7 +286,7 @@ by substituting the new message number into the existing list.")
"\\(" cite-chars "[ \t]*\\)\\)+" "\\(" cite-chars "[ \t]*\\)\\)+"
"\\(.*\\)") "\\(.*\\)")
(beginning-of-line) (end-of-line) (beginning-of-line) (end-of-line)
(2 font-lock-reference-face nil t) (2 font-lock-constant-face nil t)
(4 font-lock-comment-face nil t))) (4 font-lock-comment-face nil t)))
'("^\\(X-[A-Za-z0-9-]+\\|In-reply-to\\|Date\\):.*$" '("^\\(X-[A-Za-z0-9-]+\\|In-reply-to\\|Date\\):.*$"
. font-lock-string-face)))) . font-lock-string-face))))
......
...@@ -239,7 +239,7 @@ actually occur.") ...@@ -239,7 +239,7 @@ actually occur.")
"\\(" cite-chars "[ \t]*\\)\\)+" "\\(" cite-chars "[ \t]*\\)\\)+"
"\\(.*\\)") "\\(.*\\)")
(beginning-of-line) (end-of-line) (beginning-of-line) (end-of-line)
(2 font-lock-reference-face nil t) (2 font-lock-constant-face nil t)
(4 font-lock-comment-face nil t))) (4 font-lock-comment-face nil t)))
'("^\\(X-[A-Za-z0-9-]+\\|In-reply-to\\):.*" '("^\\(X-[A-Za-z0-9-]+\\|In-reply-to\\):.*"
. font-lock-string-face)))) . font-lock-string-face))))
......
...@@ -116,7 +116,7 @@ the tail of the list.") ...@@ -116,7 +116,7 @@ the tail of the list.")
(defvar decipher-font-lock-keywords (defvar decipher-font-lock-keywords
'(("^:.*" . font-lock-keyword-face) '(("^:.*" . font-lock-keyword-face)
("^>.*" . font-lock-string-face) ("^>.*" . font-lock-string-face)
("^%!.*" . font-lock-reference-face) ("^%!.*" . font-lock-constant-face)
("^%.*" . font-lock-comment-face) ("^%.*" . font-lock-comment-face)
("\\`(\\([a-z]+\\) +\\([A-Z]+\\)" ("\\`(\\([a-z]+\\) +\\([A-Z]+\\)"
(1 font-lock-string-face) (1 font-lock-string-face)
...@@ -128,7 +128,7 @@ the tail of the list.") ...@@ -128,7 +128,7 @@ the tail of the list.")
Ciphertext uses `font-lock-keyword-face', plaintext uses Ciphertext uses `font-lock-keyword-face', plaintext uses
`font-lock-string-face', comments use `font-lock-comment-face', and `font-lock-string-face', comments use `font-lock-comment-face', and
checkpoints use `font-lock-reference-face'. You can customize the checkpoints use `font-lock-constant-face'. You can customize the
display by changing these variables. For best results, I recommend display by changing these variables. For best results, I recommend
that all faces use the same background color. that all faces use the same background color.
......
...@@ -3797,10 +3797,10 @@ If that is the case remember the name of that function." ...@@ -3797,10 +3797,10 @@ If that is the case remember the name of that function."
(list (concat "\\<\\(goto\\|raise\\|use\\|with\\)\\>" ; "when" removed (list (concat "\\<\\(goto\\|raise\\|use\\|with\\)\\>" ; "when" removed
; "[ \t]*\\(\\sw+\\(\\.\\sw*\\)*\\)?") ; RE ; "[ \t]*\\(\\sw+\\(\\.\\sw*\\)*\\)?") ; RE
"[ \t]*\\([a-zA-Z0-9_\\.\\|, ]+\\)\\W") "[ \t]*\\([a-zA-Z0-9_\\.\\|, ]+\\)\\W")
'(1 font-lock-keyword-face) '(2 font-lock-reference-face nil t)) '(1 font-lock-keyword-face) '(2 font-lock-constant-face nil t))
;; ;;
;; Goto tags. ;; Goto tags.
'("<<\\(\\sw+\\)>>" 1 font-lock-reference-face) '("<<\\(\\sw+\\)>>" 1 font-lock-constant-face)
)) ))
"Gaudy level highlighting for Ada mode.") "Gaudy level highlighting for Ada mode.")
......
...@@ -103,7 +103,7 @@ ...@@ -103,7 +103,7 @@
(cons (mapconcat 'identity (cons (mapconcat 'identity
'("&&" "||" "<=" "<" ">=" ">" "==" "!=" "!~" "~") '("&&" "||" "<=" "<" ">=" ">" "==" "!=" "!~" "~")
"\\|") "\\|")
'font-lock-reference-face) 'font-lock-constant-face)
)) ))
"Default expressions to highlight in AWK mode.") "Default expressions to highlight in AWK mode.")
......
...@@ -2324,7 +2324,7 @@ the sections using `cperl-pod-head-face', `cperl-pod-face', ...@@ -2324,7 +2324,7 @@ the sections using `cperl-pod-head-face', `cperl-pod-face',
(setq tag (buffer-substring b1 e1) (setq tag (buffer-substring b1 e1)
qtag (regexp-quote tag)) qtag (regexp-quote tag))
(cond (cperl-pod-here-fontify (cond (cperl-pod-here-fontify
(put-text-property b1 e1 'face font-lock-reference-face) (put-text-property b1 e1 'face font-lock-constant-face)
(cperl-put-do-not-fontify b1 e1))) (cperl-put-do-not-fontify b1 e1)))
(forward-line) (forward-line)
(setq b (point)) (setq b (point))
...@@ -2332,7 +2332,7 @@ the sections using `cperl-pod-head-face', `cperl-pod-face', ...@@ -2332,7 +2332,7 @@ the sections using `cperl-pod-head-face', `cperl-pod-face',
(if cperl-pod-here-fontify (if cperl-pod-here-fontify
(progn (progn
(put-text-property (match-beginning 0) (match-end 0) (put-text-property (match-beginning 0) (match-end 0)
'face font-lock-reference-face) 'face font-lock-constant-face)
(cperl-put-do-not-fontify b (match-end 0)) (cperl-put-do-not-fontify b (match-end 0))
;;(put-text-property (max (point-min) (1- b)) ;;(put-text-property (max (point-min) (1- b))
;; (min (point-max) ;; (min (point-max)
...@@ -2628,7 +2628,7 @@ the sections using `cperl-pod-head-face', `cperl-pod-face', ...@@ -2628,7 +2628,7 @@ the sections using `cperl-pod-head-face', `cperl-pod-face',
;;; (setq tag (buffer-substring b1 e1) ;;; (setq tag (buffer-substring b1 e1)
;;; qtag (regexp-quote tag)) ;;; qtag (regexp-quote tag))
;;; (cond (cperl-pod-here-fontify ;;; (cond (cperl-pod-here-fontify
;;; (put-text-property b1 e1 'face font-lock-reference-face) ;;; (put-text-property b1 e1 'face font-lock-constant-face)
;;; (cperl-put-do-not-fontify b1 e1))) ;;; (cperl-put-do-not-fontify b1 e1)))
;;; (forward-line) ;;; (forward-line)
;;; (setq b (point)) ;;; (setq b (point))
...@@ -2636,7 +2636,7 @@ the sections using `cperl-pod-head-face', `cperl-pod-face', ...@@ -2636,7 +2636,7 @@ the sections using `cperl-pod-head-face', `cperl-pod-face',
;;; (if cperl-pod-here-fontify ;;; (if cperl-pod-here-fontify
;;; (progn ;;; (progn
;;; (put-text-property (match-beginning 0) (match-end 0) ;;; (put-text-property (match-beginning 0) (match-end 0)
;;; 'face font-lock-reference-face) ;;; 'face font-lock-constant-face)
;;; (cperl-put-do-not-fontify b (match-end 0)) ;;; (cperl-put-do-not-fontify b (match-end 0))
;;; ;;(put-text-property (max (point-min) (1- b)) ;;; ;;(put-text-property (max (point-min) (1- b))
;;; ;; (min (point-max) ;;; ;; (min (point-max)
...@@ -3294,9 +3294,9 @@ indentation and initial hashes. Behaves usually outside of comment." ...@@ -3294,9 +3294,9 @@ indentation and initial hashes. Behaves usually outside of comment."
'("[ \t{,(]\\(-?[a-zA-Z0-9_:]+\\)[ \t]*=>" 1 '("[ \t{,(]\\(-?[a-zA-Z0-9_:]+\\)[ \t]*=>" 1
font-lock-string-face t) font-lock-string-face t)
'("^[ \t]*\\([a-zA-Z0-9_]+[ \t]*:\\)[ \t]*\\($\\|{\\|\\<\\(until\\|while\\|for\\(each\\)?\\|do\\)\\>\\)" 1 '("^[ \t]*\\([a-zA-Z0-9_]+[ \t]*:\\)[ \t]*\\($\\|{\\|\\<\\(until\\|while\\|for\\(each\\)?\\|do\\)\\>\\)" 1
font-lock-reference-face) ; labels font-lock-constant-face) ; labels
'("\\<\\(continue\\|next\\|last\\|redo\\|goto\\)\\>[ \t]+\\([a-zA-Z0-9_:]+\\)" ; labels as targets '("\\<\\(continue\\|next\\|last\\|redo\\|goto\\)\\>[ \t]+\\([a-zA-Z0-9_:]+\\)" ; labels as targets
2 font-lock-reference-face) 2 font-lock-constant-face)
(cond ((featurep 'font-lock-extra) (cond ((featurep 'font-lock-extra)
'("^[ \t]*\\(my\\|local\\)[ \t]*\\(([ \t]*\\)?\\([$@%*][a-zA-Z0-9_:]+\\)\\([ \t]*,\\)?" '("^[ \t]*\\(my\\|local\\)[ \t]*\\(([ \t]*\\)?\\([$@%*][a-zA-Z0-9_:]+\\)\\([ \t]*,\\)?"
(3 font-lock-variable-name-face) (3 font-lock-variable-name-face)
...@@ -3394,7 +3394,7 @@ indentation and initial hashes. Behaves usually outside of comment." ...@@ -3394,7 +3394,7 @@ indentation and initial hashes. Behaves usually outside of comment."
nil nil
[nil nil t t t] [nil nil t t t]
) )
(list 'font-lock-reference-face (list 'font-lock-constant-face
["CadetBlue" "Aquamarine" "Gray50" "LightGray"] ["CadetBlue" "Aquamarine" "Gray50" "LightGray"]
nil nil
[nil nil t t t] [nil nil t t t]
...@@ -3432,7 +3432,7 @@ indentation and initial hashes. Behaves usually outside of comment." ...@@ -3432,7 +3432,7 @@ indentation and initial hashes. Behaves usually outside of comment."
((fboundp 'valid-color-name-p) 'valid-color-name-p) ((fboundp 'valid-color-name-p) 'valid-color-name-p)
;; XEmacs 19.11 ;; XEmacs 19.11
(t 'x-valid-color-name-p)))) (t 'x-valid-color-name-p))))
(defvar font-lock-reference-face 'font-lock-reference-face) (defvar font-lock-constant-face 'font-lock-constant-face)
(defvar font-lock-variable-name-face 'font-lock-variable-name-face) (defvar font-lock-variable-name-face 'font-lock-variable-name-face)
(or (boundp 'font-lock-type-face) (or (boundp 'font-lock-type-face)
(defconst font-lock-type-face (defconst font-lock-type-face
...@@ -3572,8 +3572,8 @@ indentation and initial hashes. Behaves usually outside of comment." ...@@ -3572,8 +3572,8 @@ indentation and initial hashes. Behaves usually outside of comment."
(t (set-face-background 'font-lock-emphasized-face "gray90")))) (t (set-face-background 'font-lock-emphasized-face "gray90"))))
(if (is-face 'font-lock-variable-name-face) nil (if (is-face 'font-lock-variable-name-face) nil
(copy-face 'italic 'font-lock-variable-name-face)) (copy-face 'italic 'font-lock-variable-name-face))
(if (is-face 'font-lock-reference-face) nil (if (is-face 'font-lock-constant-face) nil
(copy-face 'italic 'font-lock-reference-face)))) (copy-face 'italic 'font-lock-constant-face))))
(setq cperl-faces-init t)) (setq cperl-faces-init t))
(error nil))) (error nil)))
......
...@@ -388,21 +388,21 @@ whether to blink the matching beginning." ...@@ -388,21 +388,21 @@ whether to blink the matching beginning."
(1 font-lock-type-face) (4 font-lock-variable-name-face)) (1 font-lock-type-face) (4 font-lock-variable-name-face))
;; do, if, select, where, and forall constructs ;; do, if, select, where, and forall constructs
'("\\<\\(end[ \t]*\\(do\\|if\\|select\\|forall\\|where\\)\\)\\>\\([ \t]+\\(\\sw+\\)\\)?" '("\\<\\(end[ \t]*\\(do\\|if\\|select\\|forall\\|where\\)\\)\\>\\([ \t]+\\(\\sw+\\)\\)?"
(1 font-lock-keyword-face) (3 font-lock-reference-face nil t)) (1 font-lock-keyword-face) (3 font-lock-constant-face nil t))
'("^[ \t0-9]*\\(\\(\\sw+\\)[ \t]*:[ \t]*\\)?\\(\\(if\\|do\\([ \t]*while\\)?\\|select[ \t]*case\\|where\\|forall\\)\\)\\>" '("^[ \t0-9]*\\(\\(\\sw+\\)[ \t]*:[ \t]*\\)?\\(\\(if\\|do\\([ \t]*while\\)?\\|select[ \t]*case\\|where\\|forall\\)\\)\\>"
(2 font-lock-reference-face nil t) (3 font-lock-keyword-face)) (2 font-lock-constant-face nil t) (3 font-lock-keyword-face))
;; implicit declaration ;; implicit declaration
'("\\<\\(implicit\\)[ \t]*\\(real\\|integer\\|c\\(haracter\\|omplex\\)\\|logical\\|type[ \t]*(\\sw+)\\|none\\)\\>" (1 font-lock-keyword-face) (2 font-lock-type-face)) '("\\<\\(implicit\\)[ \t]*\\(real\\|integer\\|c\\(haracter\\|omplex\\)\\|logical\\|type[ \t]*(\\sw+)\\|none\\)\\>" (1 font-lock-keyword-face) (2 font-lock-type-face))
'("\\<\\(namelist\\|common\\)[ \t]*\/\\(\\sw+\\)?\/" (1 font-lock-keyword-face) (2 font-lock-reference-face nil t)) '("\\<\\(namelist\\|common\\)[ \t]*\/\\(\\sw+\\)?\/" (1 font-lock-keyword-face) (2 font-lock-constant-face nil t))
"\\<else\\([ \t]*if\\|where\\)?\\>" "\\<else\\([ \t]*if\\|where\\)?\\>"
"\\<\\(then\\|continue\\|format\\|include\\|stop\\|return\\)\\>" "\\<\\(then\\|continue\\|format\\|include\\|stop\\|return\\)\\>"
'("\\<\\(exit\\|cycle\\)[ \t]*\\(\\sw+\\)?\\>" '("\\<\\(exit\\|cycle\\)[ \t]*\\(\\sw+\\)?\\>"
(1 font-lock-keyword-face) (2 font-lock-reference-face nil t)) (1 font-lock-keyword-face) (2 font-lock-constant-face nil t))
'("\\<\\(case\\)[ \t]*\\(default\\|(\\)" . 1) '("\\<\\(case\\)[ \t]*\\(default\\|(\\)" . 1)
'("\\<\\(do\\|go *to\\)\\>[ \t]*\\([0-9]+\\)" '("\\<\\(do\\|go *to\\)\\>[ \t]*\\([0-9]+\\)"
(1 font-lock-keyword-face) (2 font-lock-reference-face)) (1 font-lock-keyword-face) (2 font-lock-constant-face))
;; line numbers (lines whose first character after number is letter) ;; line numbers (lines whose first character after number is letter)
'("^[ \t]*\\([0-9]+\\)[ \t]*[a-z]+" (1 font-lock-reference-face t)))) '("^[ \t]*\\([0-9]+\\)[ \t]*[a-z]+" (1 font-lock-constant-face t))))
"Highlights declarations, do-loops and other constructions") "Highlights declarations, do-loops and other constructions")
(defvar f90-font-lock-keywords-3 (defvar f90-font-lock-keywords-3
......
...@@ -326,8 +326,8 @@ style.") ...@@ -326,8 +326,8 @@ style.")
;; Fontify do/goto keywords and targets, and goto tags. ;; Fontify do/goto keywords and targets, and goto tags.
(list "\\<\\(do\\|go *to\\)\\>[ \t]*\\([0-9]+\\)?" (list "\\<\\(do\\|go *to\\)\\>[ \t]*\\([0-9]+\\)?"
'(1 font-lock-keyword-face) '(1 font-lock-keyword-face)
'(2 font-lock-reference-face nil t)) '(2 font-lock-constant-face nil t))
(cons "^ *\\([0-9]+\\)" 'font-lock-reference-face)))) (cons "^ *\\([0-9]+\\)" 'font-lock-constant-face))))
(setq fortran-font-lock-keywords-3 (setq fortran-font-lock-keywords-3
(append (append
...@@ -354,7 +354,7 @@ style.") ...@@ -354,7 +354,7 @@ style.")
;; ;;
;; Fontify goto-like `err=label'/`end=label' in read/write statements. ;; Fontify goto-like `err=label'/`end=label' in read/write statements.
'(", *\\(e\\(nd\\|rr\\)\\)\\> *\\(= *\\([0-9]+\\)\\)?" '(", *\\(e\\(nd\\|rr\\)\\)\\> *\\(= *\\([0-9]+\\)\\)?"
(1 font-lock-keyword-face) (4 font-lock-reference-face nil t)) (1 font-lock-keyword-face) (4 font-lock-constant-face nil t))
;; ;;
;; Highlight standard continuation character and in a TAB-formatted line. ;; Highlight standard continuation character and in a TAB-formatted line.
'("^ \\([^ 0]\\)" 1 font-lock-string-face) '("^ \\([^ 0]\\)" 1 font-lock-string-face)
......
...@@ -659,7 +659,7 @@ Returns nil if line starts inside a string, t if in a comment." ...@@ -659,7 +659,7 @@ Returns nil if line starts inside a string, t if in a comment."
"&progname" "&random" "&rdrag" "&regions" "&resize" "&row" "&progname" "&random" "&rdrag" "&regions" "&resize" "&row"
"&rpress" "&rrelease" "&shift" "&source" "&storage" "&subject" "&rpress" "&rrelease" "&shift" "&source" "&storage" "&subject"
"&time" "&trace" "&ucase" "&version" "&window" "&x" "&y") t) "&time" "&trace" "&ucase" "&version" "&window" "&x" "&y") t)
'font-lock-reference-face) 'font-lock-constant-face)
(cons ;; global local static declarations and link files (cons ;; global local static declarations and link files
(concat (concat
"^[ \t]*" "^[ \t]*"
......
...@@ -263,7 +263,7 @@ not be enclosed in { } or ( )." ...@@ -263,7 +263,7 @@ not be enclosed in { } or ( )."
(list makefile-dependency-regex 1 'font-lock-function-name-face) (list makefile-dependency-regex 1 'font-lock-function-name-face)
;; ;;
;; Variable references even in targets/strings/comments: ;; Variable references even in targets/strings/comments:
'("\\$[({]\\([-a-zA-Z0-9_.]+\\)[}):]" 1 font-lock-reference-face prepend) '("\\$[({]\\([-a-zA-Z0-9_.]+\\)[}):]" 1 font-lock-constant-face prepend)
;; Highlight lines that contain just whitespace. ;; Highlight lines that contain just whitespace.
;; They can cause trouble, especially if they start with a tab. ;; They can cause trouble, especially if they start with a tab.
......
...@@ -245,10 +245,10 @@ ...@@ -245,10 +245,10 @@
(cons (concat "\\<" input-keywords "\\>" (cons (concat "\\<" input-keywords "\\>"
"[ \t]+\\(\\sw+\\)") "[ \t]+\\(\\sw+\\)")
'((1 font-lock-keyword-face) '((1 font-lock-keyword-face)
(2 font-lock-reference-face))) (2 font-lock-constant-face)))
;; embedded Metafont/MetaPost code in comments ;; embedded Metafont/MetaPost code in comments
(cons "|\\([^|]+\\)|" (cons "|\\([^|]+\\)|"
'(1 font-lock-reference-face t)) '(1 font-lock-constant-face t))
)) ))
"Default expressions to highlight in Metafont or MetaPost mode.") "Default expressions to highlight in Metafont or MetaPost mode.")
......
...@@ -171,7 +171,7 @@ followed by the first character of the construct. ...@@ -171,7 +171,7 @@ followed by the first character of the construct.
(1 font-lock-keyword-face) (1 font-lock-keyword-face)
(font-lock-match-c-style-declaration-item-and-skip-to-next (font-lock-match-c-style-declaration-item-and-skip-to-next
nil (goto-char (match-end 0)) nil (goto-char (match-end 0))
(1 font-lock-reference-face))) (1 font-lock-constant-face)))
;; ;;
;; Pragmas as warnings. ;; Pragmas as warnings.
;; Spencer Allain <sallain@teknowledge.com> says do them as comments... ;; Spencer Allain <sallain@teknowledge.com> says do them as comments...
...@@ -224,7 +224,7 @@ followed by the first character of the construct. ...@@ -224,7 +224,7 @@ followed by the first character of the construct.
(1 font-lock-function-name-face))) (1 font-lock-function-name-face)))
;; ;;
;; Fontify constants as references. ;; Fontify constants as references.
'("\\<\\(FALSE\\|NIL\\|NULL\\|TRUE\\)\\>" . font-lock-reference-face) '("\\<\\(FALSE\\|NIL\\|NULL\\|TRUE\\)\\>" . font-lock-constant-face)
)))) ))))
"Gaudy level highlighting for Modula-3 modes.") "Gaudy level highlighting for Modula-3 modes.")
......
...@@ -175,7 +175,7 @@ parenthetical grouping.") ...@@ -175,7 +175,7 @@ parenthetical grouping.")
'font-lock-keyword-face) 'font-lock-keyword-face)
;; Fontify all builtin operators. ;; Fontify all builtin operators.
(cons "\\(&\\||\\|<=\\|>=\\|==\\|<\\|>\\|!=\\|!\\)" (cons "\\(&\\||\\|<=\\|>=\\|==\\|<\\|>\\|!=\\|!\\)"
'font-lock-reference-face) 'font-lock-builtin-face)
;; Fontify all builtin variables. ;; Fontify all builtin variables.
(cons (concat "\\<\\(" (cons (concat "\\<\\("
(mapconcat 'identity octave-variables "\\|") (mapconcat 'identity octave-variables "\\|")
......
...@@ -164,7 +164,7 @@ ...@@ -164,7 +164,7 @@
(cons (concat "\\<\\(array\\|boolean\\|c\\(har\\|onst\\)\\|file\\|" (cons (concat "\\<\\(array\\|boolean\\|c\\(har\\|onst\\)\\|file\\|"
"integer\\|re\\(al\\|cord\\)\\|type\\|var\\)\\>") "integer\\|re\\(al\\|cord\\)\\|type\\|var\\)\\>")
'font-lock-type-face) 'font-lock-type-face)
'("\\<\\(label\\|external\\|forward\\)\\>" . font-lock-reference-face) '("\\<\\(label\\|external\\|forward\\)\\>" . font-lock-constant-face)
'("\\<\\([0-9]+\\)[ \t]*:" 1 font-lock-function-name-face) '("\\<\\([0-9]+\\)[ \t]*:" 1 font-lock-function-name-face)
; ("of" "to" "for" "if" "then" "else" "case" "while" ; ("of" "to" "for" "if" "then" "else" "case" "while"
; "do" "until" "and" "or" "not" "in" "with" "repeat" "begin" "end") ; "do" "until" "and" "or" "not" "in" "with" "repeat" "begin" "end")
......
...@@ -171,15 +171,15 @@ The expansion is entirely correct because it uses the C preprocessor." ...@@ -171,15 +171,15 @@ The expansion is entirely correct because it uses the C preprocessor."
("^#[ \t]*define[ \t]+\\(\\sw+\\)(" 1 font-lock-function-name-face) ("^#[ \t]*define[ \t]+\\(\\sw+\\)(" 1 font-lock-function-name-face)
("^#[ \t]*if\\>" ("^#[ \t]*if\\>"
("\\<\\(defined\\)\\>[ \t]*(?\\(\\sw+\\)?" nil nil ("\\<\\(defined\\)\\>[ \t]*(?\\(\\sw+\\)?" nil nil
(1 font-lock-reference-face) (2 font-lock-variable-name-face nil t))) (1 font-lock-constant-face) (2 font-lock-variable-name-face nil t)))
("^#[ \t]*\\(\\sw+\\)\\>[ \t]*\\(\\sw+\\)?" ("^#[ \t]*\\(\\sw+\\)\\>[ \t]*\\(\\sw+\\)?"
(1 font-lock-reference-face) (2 font-lock-variable-name-face nil t)) (1 font-lock-constant-face) (2 font-lock-variable-name-face nil t))
;; ;;
;; Fontify function and package names in declarations. ;; Fontify function and package names in declarations.
("\\<\\(package\\|sub\\)\\>[ \t]*\\(\\sw+\\)?" ("\\<\\(package\\|sub\\)\\>[ \t]*\\(\\sw+\\)?"
(1 font-lock-keyword-face) (2 font-lock-function-name-face nil t)) (1 font-lock-keyword-face) (2 font-lock-function-name-face nil t))
("\\<\\(import\\|no\\|require\\|use\\)\\>[ \t]*\\(\\sw+\\)?" ("\\<\\(import\\|no\\|require\\|use\\)\\>[ \t]*\\(\\sw+\\)?"
(1 font-lock-keyword-face) (2 font-lock-reference-face nil t))) (1 font-lock-keyword-face) (2 font-lock-constant-face nil t)))
"Subdued level highlighting for Perl mode.") "Subdued level highlighting for Perl mode.")
(defconst perl-font-lock-keywords-2 (defconst perl-font-lock-keywords-2
...@@ -206,12 +206,12 @@ The expansion is entirely correct because it uses the C preprocessor." ...@@ -206,12 +206,12 @@ The expansion is entirely correct because it uses the C preprocessor."
'("[$*]{?\\(\\sw+\\)" 1 font-lock-variable-name-face) '("[$*]{?\\(\\sw+\\)" 1 font-lock-variable-name-face)
'("\\([@%]\\|\\$#\\)\\(\\sw+\\)" '("\\([@%]\\|\\$#\\)\\(\\sw+\\)"
(2 (cons font-lock-variable-name-face '(underline)))) (2 (cons font-lock-variable-name-face '(underline))))
'("<\\(\\sw+\\)>" 1 font-lock-reference-face) '("<\\(\\sw+\\)>" 1 font-lock-constant-face)
;; ;;
;; Fontify keywords with/and labels as we do in `c++-font-lock-keywords'. ;; Fontify keywords with/and labels as we do in `c++-font-lock-keywords'.
'("\\<\\(continue\\|goto\\|last\\|next\\|redo\\)\\>[ \t]*\\(\\sw+\\)?" '("\\<\\(continue\\|goto\\|last\\|next\\|redo\\)\\>[ \t]*\\(\\sw+\\)?"
(1 font-lock-keyword-face) (2 font-lock-reference-face nil t)) (1 font-lock-keyword-face) (2 font-lock-constant-face nil t))
'("^[ \t]*\\(\\sw+\\)[ \t]*:[^:]" 1 font-lock-reference-face))) '("^[ \t]*\\(\\sw+\\)[ \t]*:[^:]" 1 font-lock-constant-face)))
"Gaudy level highlighting for Perl mode.") "Gaudy level highlighting for Perl mode.")
(defvar perl-font-lock-keywords perl-font-lock-keywords-1 (defvar perl-font-lock-keywords perl-font-lock-keywords-1
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment