diff options
| author | Simon Marshall <simon@gnu.org> | 1998-02-20 14:58:27 +0000 |
|---|---|---|
| committer | Simon Marshall <simon@gnu.org> | 1998-02-20 14:58:27 +0000 |
| commit | 4e5db5d9d82865530bde64f47f6c607ae88f3e0b (patch) | |
| tree | 1ce3b5daf75a8ae2ddc2e52c1f5c5257392a4728 /lisp/progmodes/perl-mode.el | |
| parent | 80a41fae2fc47bed423e609fbccfe9f98e6c8df7 (diff) | |
| download | emacs-4e5db5d9d82865530bde64f47f6c607ae88f3e0b.tar.gz | |
Changed font-lock-reference-face to font-lock-constant-face.
Diffstat (limited to 'lisp/progmodes/perl-mode.el')
| -rw-r--r-- | lisp/progmodes/perl-mode.el | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/lisp/progmodes/perl-mode.el b/lisp/progmodes/perl-mode.el index 42eecbde7c8..b0b5a74cbea 100644 --- a/lisp/progmodes/perl-mode.el +++ b/lisp/progmodes/perl-mode.el @@ -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]*if\\>" ("\\<\\(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+\\)?" - (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. ("\\<\\(package\\|sub\\)\\>[ \t]*\\(\\sw+\\)?" (1 font-lock-keyword-face) (2 font-lock-function-name-face nil t)) ("\\<\\(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.") (defconst perl-font-lock-keywords-2 @@ -206,12 +206,12 @@ The expansion is entirely correct because it uses the C preprocessor." '("[$*]{?\\(\\sw+\\)" 1 font-lock-variable-name-face) '("\\([@%]\\|\\$#\\)\\(\\sw+\\)" (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'. '("\\<\\(continue\\|goto\\|last\\|next\\|redo\\)\\>[ \t]*\\(\\sw+\\)?" - (1 font-lock-keyword-face) (2 font-lock-reference-face nil t)) - '("^[ \t]*\\(\\sw+\\)[ \t]*:[^:]" 1 font-lock-reference-face))) + (1 font-lock-keyword-face) (2 font-lock-constant-face nil t)) + '("^[ \t]*\\(\\sw+\\)[ \t]*:[^:]" 1 font-lock-constant-face))) "Gaudy level highlighting for Perl mode.") (defvar perl-font-lock-keywords perl-font-lock-keywords-1 |