Variable: pike-font-lock-keywords-1

pike-font-lock-keywords-1 is a variable defined in cc-fonts.el.gz.

Value

Large value
(c-maybe-font-lock-wrong-style-comments
 ("\\(\\=\\|\\(\\=\\|[^\\]\\)[\n
]\\)\\s *#\\s *\\(\\(?:error\\|warning\\)\\)\\s +\\(.*\\)$" 4 font-lock-string-face t)
 (#[257 "\305\300!\306\307\310#\203l�\311\224b\210\312!\204�\311\225b\210\313 \314\315\"\216\316\317\224\317\225\320	$\210)\210\313 \314\321\"\216\317\224\317\225S\211f\322=\203[�\n^\316\211T\323$\210\n^\316\211T\323\f$\266\202g�\n^\324\211T\325#\266)\210\202�)\326\207"
	[parse-sexp-lookup-properties font-lock-string-face c-syntax-table-hwm c-<-as-paren-syntax c->-as-paren-syntax boundp re-search-forward "\\(\\=\\|\\(\\=\\|[^\\]\\)[\n
]\\)\\s *#\\s *\\(?:include\\)\\(\\s \\|[\n
]\\)*\\(\\(//[^\n
]*[\n
]\\|/\\*[^*\n
]*\\(\\*+[^*\n
/][^*\n
]*\\)*\\*+/\\|\\\\[\n
]\\|\\s!\\S!*\\s!\\)\\(\\s \\|[\n
]\\)*\\)*\\(<[^>\n
]*>?\\)" t 0 c-skip-comments-and-strings match-data make-closure
				      #[0 "\301\300\302\"\207"
					  [V0 set-match-data evaporate]
					  3]
				      put-text-property 8 face
				      #[0 "\301\300\302\"\207"
					  [V0 set-match-data evaporate]
					  3]
				      62 syntax-table remove-text-properties
				      (syntax-table nil)
				      nil]
	9 "\n\n(fn LIMIT)"])
 (#[257 "\302\300!\303\304\305#\203p�\306\224b\210\307!\204�\306\225b\210\310 \311\312\"\216\313\224\203b�\214\314\315\224\315\225\316\317$\210\313\225b\210e}\210\320 \210\321	!\203^�\314\306\224\306\225\316\322$\210\306\225b\210\320 \210\323f\324=\203^�\323u\210\2028�)\202k�\314\315\224\315\225\316\322$\210)\210\202�)\323\207"
	[parse-sexp-lookup-properties c-symbol-key boundp re-search-forward "\\(\\=\\|\\(\\=\\|[^\\]\\)[\n
]\\)\\s *#\\s *define\\(\\(\\s \\|[\n
]\\)\\|//[^\n
]*[\n
]\\|/\\*[^*\n
]*\\(\\*+[^*\n
/][^*\n
]*\\)*\\*+/\\|\\\\[\n
]\\|\\s!\\S!*\\s!\\)+\\([[:alpha:]_][[:alnum:]_$]*\\|\\(?:`\\(?:()\\|\\+=\\|->=?\\|<<\\|==\\|>>\\|\\[]=?\\|`\\(?:<<\\|>>\\|[%&*+/|^-]\\)\\|[!%&*+/<>|~^-]\\)\\)\\)\\(\\((\\)\\|\\([^(]\\|$\\)\\)" t 0 c-skip-comments-and-strings match-data make-closure
				      #[0 "\301\300\302\"\207"
					  [V0 set-match-data evaporate]
					  3]
				      8 put-text-property 6 face font-lock-function-name-face c-forward-sws looking-at font-lock-variable-name-face nil 44]
	7 "\n\n(fn LIMIT)"])
 (#[257 "\303\300!	\304=\203<�\212\305 \210`)\306\307\310#\203;�\311\224b\210\312!\204�\311\225b\210\313 \314\315\"\216\316\317\224\317\225\320\n$\210)\210\202�\210`W\203�\306\321\310#\203�\311\224b\210\312!\204<�\311\225b\210\322\225b\210\313 \314\323\"\216\311\225\306\307\324#\203y�\316\317\224\317\225\320\n$\210\202e�\210)\210\202<�)\325\207"
	[parse-sexp-lookup-properties c-font-lock-context c-preprocessor-face-name boundp in-cpp-expr c-end-of-macro re-search-forward "\\(\\(?:constant\\|defined\\|efun\\)\\)\\([^[:alnum:]_$]\\|$\\)" t 0 c-skip-comments-and-strings match-data make-closure
				      #[0 "\301\300\302\"\207"
					  [V0 set-match-data evaporate]
					  3]
				      put-text-property 1 face "\\(\\=\\|\\(\\=\\|[^\\]\\)[\n
]\\)\\s *#\\s *\\(\\(?:\\(?:el\\)?if\\)\\)\\([^[:alnum:]_$]\\|$\\)\\(\\\\\\(.\\|[\n
]\\)\\|[^\n
]\\)*" 3
				      #[0 "\301\300\302\"\207"
					  [V0 set-match-data evaporate]
					  3]
				      move nil]
	8 "\n\n(fn LIMIT)"])
 (#[257 "\302\300!\303\304\305#\203/�\306\224b\210\307!\204�\306\225b\210\310 \311\312\"\216\313\314\224\314\225\315	$\210)\210\202�)\316\207"
	[parse-sexp-lookup-properties c-preprocessor-face-name boundp re-search-forward "\\(\\=\\|\\(\\=\\|[^\\]\\)[\n
]\\)\\(\\s *#\\s *[[:alnum:]_$]+\\)" t 0 c-skip-comments-and-strings match-data make-closure
				      #[0 "\301\300\302\"\207"
					  [V0 set-match-data evaporate]
					  3]
				      put-text-property 3 face nil]
	7 "\n\n(fn LIMIT)"])
 (eval list
       #[257 "\300\301\302\303#\211\262\203�\304\224b\210\305!\204�\304\225b\210\207"
	     [nil re-search-forward "\\(\\=\\|\\(\\=\\|[^\\]\\)[\n
]\\)\\s *#\\s *if\\(n\\)def\\>" t 0 c-skip-comments-and-strings]
	     6 "\n\n(fn LIMIT)"]
       3 c-negation-char-face-name 'append)
 (eval list "\\`#![^\n
]*" 0 c-preprocessor-face-name)
 (eval list "\240" 0
       (progn
	 (unless
	     (c-face-name-p 'c-nonbreakable-space-face)
	   (c-make-inverse-face 'font-lock-warning-face 'c-nonbreakable-space-face))
	 ''c-nonbreakable-space-face)))

Documentation

Minimal font locking for Pike mode.

Fontifies only preprocessor directives (in addition to the syntactic fontification of strings and comments).

Source Code

;; Defined in /usr/src/emacs/lisp/progmodes/cc-fonts.el.gz
(defconst pike-font-lock-keywords-1 (c-lang-const c-matchers-1 pike)
  "Minimal font locking for Pike mode.
Fontifies only preprocessor directives (in addition to the syntactic
fontification of strings and comments).")