Variable: perl-font-lock-keywords-1

perl-font-lock-keywords-1 is a variable defined in perl-mode.el.gz.

Value

(("\\<\\(package\\|sub\\)\\>[     ]*\\(\\(?:\\sw\\|::\\)+\\)?"
  (1 'font-lock-keyword-face) (2 'font-lock-function-name-face nil t))
 ("\\(?:^\\|[^$@%&\\]\\)\\<\\(import\\|no\\|require\\|use\\)\\>[      ]*\\(\\(?:\\sw\\|::\\)+\\)?"
  (1 'font-lock-keyword-face) (2 'font-lock-constant-face nil t)))

Documentation

Subdued level highlighting for Perl mode.

Source Code

;; Defined in /usr/src/emacs/lisp/progmodes/perl-mode.el.gz
(defconst perl-font-lock-keywords-1
  '(;; What is this for?
    ;;("\\(--- .* ---\\|=== .* ===\\)" . font-lock-string-face)
    ;;
    ;; Fontify preprocessor statements as we do in `c-font-lock-keywords'.
    ;; Ilya Zakharevich <ilya@math.ohio-state.edu> thinks this is a bad idea.
    ;; ("^#[ \t]*include[ \t]+\\(<[^>\"\n]+>\\)" 1 font-lock-string-face)
    ;; ("^#[ \t]*define[ \t]+\\(\\sw+\\)(" 1 font-lock-function-name-face)
    ;; ("^#[ \t]*if\\>"
    ;;  ("\\<\\(defined\\)\\>[ \t]*(?\\(\\sw+\\)?" nil nil
    ;;   (1 font-lock-constant-face) (2 font-lock-variable-name-face nil t)))
    ;; ("^#[ \t]*\\(\\sw+\\)\\>[ \t]*\\(\\sw+\\)?"
    ;;  (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-constant-face nil t)))
  "Subdued level highlighting for Perl mode.")