Variable: icon-font-lock-keywords-2

icon-font-lock-keywords-2 is a variable defined in icon.el.gz.

Value

(("^[   ]*\\(procedure\\)\\>[        ]*\\(\\sw+\\)?"
  (1 font-lock-builtin-face)
  (2 font-lock-function-name-face nil t))
 ("\\<\\(c\\(?:o-expression\\|set\\)\\|file\\|integer\\|list\\|null\\|real\\|s\\(?:et\\|tring\\)\\|table\\)\\>" . font-lock-type-face)
 ("\\<\\(b\\(?:reak\\|y\\)\\|c\\(?:\\(?:as\\|reat\\)e\\)\\|d\\(?:efault\\|o\\)\\|e\\(?:lse\\|very\\)\\|fail\\|if\\|n\\(?:\\(?:ex\\|o\\)t\\)\\|of\\|re\\(?:cord\\|peat\\|turn\\)\\|suspend\\|t\\(?:hen\\|o\\)\\|until\\|while\\)\\>" . font-lock-keyword-face)
 ("\\<\\(end\\|initial\\)\\>" . font-lock-builtin-face)
 ("\\(&\\(?:a\\(?:llocated\\|scii\\)\\|c\\(?:lock\\|o\\(?:l\\(?:lections\\|umn\\)?\\|ntrol\\)\\|\\(?:se\\|urren\\)t\\)\\|d\\(?:ate\\(?:line\\)?\\|igits\\|ump\\)\\|e\\(?:rro\\(?:r\\(?:number\\|text\\|value\\)?\\|ut\\)\\|vent\\(?:\\(?:cod\\|sourc\\|valu\\)e\\)\\)\\|f\\(?:ail\\|eatures\\|ile\\)\\|host\\|in\\(?:put\\|terval\\)\\|l\\(?:case\\|drag\\|e\\(?:tters\\|vel\\)\\|ine\\|press\\|release\\)\\|m\\(?:ain\\|drag\\|eta\\|press\\|release\\)\\|null\\|output\\|p\\(?:hi\\|i\\|os\\|rogname\\)\\|r\\(?:andom\\|drag\\|e\\(?:gions\\|size\\)\\|ow\\|press\\|release\\)\\|s\\(?:hift\\|ource\\|torage\\|ubject\\)\\|t\\(?:\\(?:im\\|rac\\)e\\)\\|ucase\\|version\\|window\\|[exy]\\)\\)" . font-lock-constant-face)
 ("^[   ]*\\(global\\|l\\(?:ink\\|ocal\\)\\|static\\)\\(\\sw+\\>\\)*"
  (1 font-lock-builtin-face)
  (font-lock-match-c-style-declaration-item-and-skip-to-next
   (goto-char
    (or
     (match-beginning 2)
     (match-end 1)))
   nil
   (1
    (if
	(match-beginning 2)
	font-lock-function-name-face font-lock-variable-name-face))))
 ("^\\(\\$\\(?:define\\|\\(?:eli\\|\\(?:ifn?\\|un\\)de\\)f\\)\\)\\>[         ]*\\([^         \n]+\\)?"
  (1 font-lock-builtin-face)
  (4 font-lock-variable-name-face nil t))
 ("^\\(\\$\\(?:dump\\|e\\(?:lse\\|ndif\\)\\|include\\)\\)\\>" . font-lock-builtin-face)
 ("^\\(\\$\\(?:error\\|warning\\)\\)\\>[     ]*\\(.+\\)?"
  (1 font-lock-builtin-face)
  (3 font-lock-warning-face nil t)))

Documentation

Gaudy level highlighting for Icon mode.

Source Code

;; Defined in /usr/src/emacs/lisp/progmodes/icon.el.gz
(defconst icon-font-lock-keywords-2
  (append
   icon-font-lock-keywords-1
   (eval-when-compile
     (list
      ;; Fontify all type specifiers.
      (cons
       (regexp-opt  '("null" "string" "co-expression" "table" "integer"
		      "cset"  "set" "real" "file" "list") 'words)
       'font-lock-type-face)
      ;; Fontify all keywords.
      ;;
      (cons
       (regexp-opt
	'("break" "do" "next" "repeat" "to" "by" "else" "if" "not" "return"
	  "until" "case" "of" "while" "create" "every" "suspend" "default"
	  "fail" "record" "then") 'words)
       'font-lock-keyword-face)
      ;; "end" "initial"
      (cons (regexp-opt '("end" "initial") 'words)
	    'font-lock-builtin-face)
      ;; Fontify all system variables.
      (cons
       (regexp-opt
	'("&allocated" "&ascii" "&clock" "&col" "&collections" "&column"
	  "&control" "&cset" "&current" "&date" "&dateline" "&digits" "&dump"
	  "&e" "&error" "&errornumber" "&errortext" "&errorvalue" "&errout"
	  "&eventcode" "&eventsource" "&eventvalue" "&fail" "&features"
	  "&file" "&host" "&input" "&interval" "&lcase" "&ldrag" "&letters"
	  "&level" "&line" "&lpress" "&lrelease" "&main" "&mdrag" "&meta"
	  "&mpress" "&mrelease" "&null" "&output" "&phi" "&pi" "&pos"
	  "&progname" "&random" "&rdrag" "&regions" "&resize" "&row"
	  "&rpress" "&rrelease" "&shift" "&source" "&storage" "&subject"
	  "&time" "&trace" "&ucase" "&version" "&window" "&x" "&y") t)
       'font-lock-constant-face)
      (cons      ;; global local static declarations and link files
       (concat
	"^[ \t]*"
	(regexp-opt '("global" "link" "local" "static") t)
	"\\(\\sw+\\>\\)*")
       '((1 font-lock-builtin-face)
	 (font-lock-match-c-style-declaration-item-and-skip-to-next
	  (goto-char (or (match-beginning 2) (match-end 1))) nil
	  (1 (if (match-beginning 2)
		 font-lock-function-name-face
	       font-lock-variable-name-face)))))

      (cons      ;; $define $elif $ifdef $ifndef $undef
       (concat "^"
	       (regexp-opt'("$define" "$elif" "$ifdef" "$ifndef" "$undef") t)
	       "\\>[ \t]*\\([^ \t\n]+\\)?")
	    '((1 font-lock-builtin-face)
	      (4 font-lock-variable-name-face nil t)))
      (cons      ;; $dump $endif $else $include
       (concat
	"^" (regexp-opt'("$dump" "$endif" "$else" "$include") t) "\\>" )
       'font-lock-builtin-face)
      (cons      ;; $warning $error
       (concat "^" (regexp-opt '("$warning" "$error") t)
	       "\\>[ \t]*\\(.+\\)?")
       '((1 font-lock-builtin-face) (3 font-lock-warning-face nil t))))))
  "Gaudy level highlighting for Icon mode.")