lisp/progmodes/simula.el

32 ;; abbrevs for Simula keywords.
44   :link '(custom-group-link :tag "Font Lock Faces group" font-lock-faces)
133   "Specify how to convert case for SIMULA keywords.
138   "*Specify how to convert case for SIMULA keywords.
168 (defconst simula-font-lock-syntactic-keywords
181 (defconst simula-font-lock-keywords-1
184     ("^%\\([^ \t\n].*\\)" 1 font-lock-constant-face t)
188      (1 font-lock-keyword-face) (2 font-lock-function-name-face nil t)))
191 (defconst simula-font-lock-keywords-2
192   (append simula-font-lock-keywords-1
196     '("\\<\\(false\\|none\\|notext\\|true\\)\\>" . font-lock-constant-face)
211 	  'font-lock-type-face)))
214 (defconst simula-font-lock-keywords-3
215   (append simula-font-lock-keywords-2
219     '("\\<\\(\\sw+\\)[ \t]+class\\>" 1 font-lock-function-name-face)
225 	  '(font-lock-match-c-style-declaration-item-and-skip-to-next
231 	    (1 font-lock-variable-name-face)))
235       (3 font-lock-function-name-face nil t)
236       (font-lock-match-c-style-declaration-item-and-skip-to-next nil nil
237        (1 font-lock-variable-name-face)))
241 (defvar simula-font-lock-keywords simula-font-lock-keywords-1
365     Determine how SIMULA keywords will be expanded.  Value is one of
397   (make-local-variable 'font-lock-defaults)
398   (setq font-lock-defaults
399 	'((simula-font-lock-keywords simula-font-lock-keywords-1
400 	   simula-font-lock-keywords-2 simula-font-lock-keywords-3)
402 	  (font-lock-syntactic-keywords . simula-font-lock-syntactic-keywords)))
1376   "Define Simula keywords, procedures and classes in local abbrev table."
1499 	    ("lock" "Lock" simula-expand-stdproc)