lisp/progmodes/perl-mode.el

76 ;; If you don't use font-lock, additional problems will appear:
110 (defvar font-lock-comment-face)
111 (defvar font-lock-doc-face)
112 (defvar font-lock-string-face)
116   :link '(custom-group-link :tag "Font Lock Faces group" font-lock-faces)
180 (defconst perl-font-lock-keywords-1
182     ;;("\\(--- .* ---\\|=== .* ===\\)" . font-lock-string-face)
184     ;; Fontify preprocessor statements as we do in `c-font-lock-keywords'.
186     ;; ("^#[ \t]*include[ \t]+\\(<[^>\"\n]+>\\)" 1 font-lock-string-face)
187     ;; ("^#[ \t]*define[ \t]+\\(\\sw+\\)(" 1 font-lock-function-name-face)
190     ;;   (1 font-lock-constant-face) (2 font-lock-variable-name-face nil t)))
192     ;;  (1 font-lock-constant-face) (2 font-lock-variable-name-face nil t))
196      (1 font-lock-keyword-face) (2 font-lock-function-name-face nil t))
198      (1 font-lock-keyword-face) (2 font-lock-constant-face nil t)))
201 (defconst perl-font-lock-keywords-2
202   (append perl-font-lock-keywords-1
205     ;; Fontify keywords, except those fontified otherwise.
212     ;; Fontify local and my keywords as types.
213     '("\\<\\(local\\|my\\)\\>" . font-lock-type-face)
216     '("&\\(\\sw+\\(::\\sw+\\)*\\)" 1 font-lock-function-name-face)
218     ;;'("[$@%*][#{]?\\(\\sw+\\)" 1 font-lock-variable-name-face)
219     '("[$*]{?\\(\\sw+\\(::\\sw+\\)*\\)" 1 font-lock-variable-name-face)
221       (2 (cons font-lock-variable-name-face '(underline))))
222     '("<\\(\\sw+\\)>" 1 font-lock-constant-face)
224     ;; Fontify keywords with/and labels as we do in `c++-font-lock-keywords'.
226       (1 font-lock-keyword-face) (2 font-lock-constant-face nil t))
227     '("^[ \t]*\\(\\sw+\\)[ \t]*:[^:]" 1 font-lock-constant-face)))
230 (defvar perl-font-lock-keywords perl-font-lock-keywords-1
255 (defvar perl-font-lock-syntactic-keywords
281     (perl-font-lock-special-syntactic-constructs)
301 (defun perl-font-lock-special-syntactic-constructs (limit)
302   ;; We used to do all this in a font-lock-syntactic-face-function, which
304   ;; treated with font-lock-syntactic-keywords but not with
305   ;; font-lock-syntactic-face-function (mostly because of
306   ;; font-lock-syntactically-fontified).  That meant that some syntax-table
308   ;; ourselves directly from font-lock-syntactic-keywords, so we're sure
354                           ;; Skip whitespace and make sure that font-lock will
358                            'font-lock-multiline t)
366                                                    'jit-lock-defer-multiline t)
386   ;; Tell font-lock that this needs not further processing.
537   ;; Tell font-lock.el how to handle Perl.
538   (setq font-lock-defaults '((perl-font-lock-keywords
539 			      perl-font-lock-keywords-1
540 			      perl-font-lock-keywords-2)
542 			     (font-lock-syntactic-keywords
543 			      . perl-font-lock-syntactic-keywords)