comparison lisp/progmodes/simula.el @ 20953:f3f9df46d008

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

20952:adcb58a1c0f3

   ;; Comments and strings.
   '(simula-match-string-or-comment 0
     (if (match-beginning 1) font-lock-string-face font-lock-comment-face))
   ;;
   ;; Compiler directives.
   '("^%\\([^ \t\n].*\\)" 1 font-lock-reference-face)
   ;;
   ;; Class and procedure names.
   '("\\<\\(class\\|procedure\\)\\>[ \t]*\\(\\sw+\\)?"
     (1 font-lock-keyword-face) (2 font-lock-function-name-face nil t))
   )

(defconst simula-font-lock-keywords-2
  (append simula-font-lock-keywords-1
   (list
    ;;
    ;; Constants as references.
    '("\\<\\(false\\|none\\|notext\\|true\\)\\>" . font-lock-reference-face)
    ;;
    ;; Keywords.
    (concat "\\<\\("
;	    (make-regexp
;	     '("activate" "after" "and" "at" "before" "begin" "delay" "do"

20953:f3f9df46d008

   ;; Comments and strings.
   '(simula-match-string-or-comment 0
     (if (match-beginning 1) font-lock-string-face font-lock-comment-face))
   ;;
   ;; Compiler directives.
   '("^%\\([^ \t\n].*\\)" 1 font-lock-constant-face)
   ;;
   ;; Class and procedure names.
   '("\\<\\(class\\|procedure\\)\\>[ \t]*\\(\\sw+\\)?"
     (1 font-lock-keyword-face) (2 font-lock-function-name-face nil t))
   )

(defconst simula-font-lock-keywords-2
  (append simula-font-lock-keywords-1
   (list
    ;;
    ;; Constants.
    '("\\<\\(false\\|none\\|notext\\|true\\)\\>" . font-lock-constant-face)
    ;;
    ;; Keywords.
    (concat "\\<\\("
;	    (make-regexp
;	     '("activate" "after" "and" "at" "before" "begin" "delay" "do"