Variable: m3-font-lock-keywords-1

m3-font-lock-keywords-1 is a variable defined in modula2.el.gz.

Value

(("\\<\\(INTERFACE\\|MODULE\\|PROCEDURE\\)\\>[    ]*\\(\\sw+\\)?"
  (1 font-lock-keyword-face)
  (2 font-lock-function-name-face nil t))
 ("\\<\\(EXPORTS\\|FROM\\|IMPORT\\)\\>"
  (1 font-lock-keyword-face)
  (font-lock-match-c-style-declaration-item-and-skip-to-next nil
							     (goto-char
							      (match-end 0))
							     (1 font-lock-constant-face)))
 ("<\\*[     ]*\\(\\sw+\\)" 1 font-lock-warning-face prepend))

Documentation

Subdued level highlighting for Modula-3 modes.

Source Code

;; Defined in /usr/src/emacs/lisp/progmodes/modula2.el.gz
;; Regexps written with help from Ron Forrester <ron@orcad.com>
;; and Spencer Allain <sallain@teknowledge.com>.
(defconst m3-font-lock-keywords-1
  '(
    ;;
    ;; Module definitions.
    ("\\<\\(INTERFACE\\|MODULE\\|PROCEDURE\\)\\>[ \t]*\\(\\sw+\\)?"
     (1 font-lock-keyword-face) (2 font-lock-function-name-face nil t))
    ;;
    ;; Import directives.
    ("\\<\\(EXPORTS\\|FROM\\|IMPORT\\)\\>"
     (1 font-lock-keyword-face)
     (font-lock-match-c-style-declaration-item-and-skip-to-next
      nil (goto-char (match-end 0))
      (1 font-lock-constant-face)))
    ;;
    ;; Pragmas as warnings.
    ;; Spencer Allain <sallain@teknowledge.com> says do them as comments...
    ;; ("<\\*.*\\*>" . font-lock-warning-face)
    ;; ... but instead we fontify the first word.
    ("<\\*[ \t]*\\(\\sw+\\)" 1 font-lock-warning-face prepend)
    )
  "Subdued level highlighting for Modula-3 modes.")