;ELC   
;;; compiled by root@fuzzy.is.a.good.cat on Thu Sep 22 18:03:12 1994
;;; from file /root/emacs-19.27/lisp/font-lock.el
;;; emacs version 19.26.1.
;;; bytecomp version FSF 2.10
;;; optimization is on.
;;; this file uses opcodes which do not exist in Emacs 18.

(if (and (boundp 'emacs-version)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19")))
    (error "`/root/emacs-19.27/lisp/font-lock.el' was compiled for Emacs 19"))

(byte-code "„ БВ!€Б‡" [window-system error "Can't fontify on an ASCII terminal"] 2)
(defvar font-lock-comment-face (quote italic) "\
Face to use for comments.")
(defvar font-lock-doc-string-face (quote italic) "\
Face to use for documentation strings.")
(defvar font-lock-string-face (quote underline) "\
Face to use for string constants.")
(defvar font-lock-function-name-face (quote bold-italic) "\
Face to use for function names.")
(defvar font-lock-keyword-face (quote bold) "\
Face to use for keywords.")
(defvar font-lock-type-face (quote italic) "\
Face to use for data types.")
(defvar font-lock-no-comments nil "\
Non-nil means Font-Lock shouldn't check for comments or strings.")
(make-variable-buffer-local (quote font-lock-keywords))
(defvar font-lock-keywords nil "\
*The keywords to highlight.
If this is a list, then elements may be of the forms:

  \"string\"			  ; A regexp to highlight in the 
				  ;  `font-lock-keyword-face'.
  (\"string\" . N)  	          ; Highlight subexpression N of the regexp.
  (\"string\" . face-name)	  ; Use the named face
  (\"string\" N face-name)        ; Both of the above
  (\"string\" N face-name t)      ; This allows highlighting to override
				  ;  already-highlighted regions.
  (\"string\" N face-name keep)   ; This allows highlighting to occur
				  ; even if some parts of what STRING matches
				  ; are already highlighted--but does not alter
				  ; the existing highlighting of those parts.

These regular expressions should not match text which spans lines.
While \\[font-lock-fontify-buffer] handles multi-line patterns correctly,
updating when you edit the buffer does not,
since it considers text one line at a time.

Be careful composing regexps for this list; the wrong pattern can dramatically
slow things down!")
(defvar font-lock-keywords-case-fold-search nil "\
*Non-nil means the patterns in `font-lock-keywords' are case-insensitive.")
(defvar font-lock-syntax-table nil "\
*Non-nil means use this syntax table for fontifying.
If this is nil, the major mode's syntax table is used.")
(defvar font-lock-verbose t "\
*Non-nil means `font-lock-fontify-buffer' should print status messages.")
(defvar font-lock-mode-hook nil "\
Function or functions to run on entry to Font Lock mode.")
(byte-code "АБ!„ ВАГ!„ ВДБ!€ДГ!‡" [boundp font-lock-cache-position nil font-lock-cache-state make-variable-buffer-local] 2)
(defalias 'font-lock-fontify-region #[(start end) "Љb€Бy€\nd^Г‰‰‰‰Д 	\n``=ѓ. \f	‚J Н €`WѓC О`Б#	‚1 	\f`О`Г‰	%	П	8ѓ‰ `СТ\nУ#ѓt ПО`Г‰	%8„^ Ф`Х$€О`Г‰	%	)Ч	8„— Ш	8ѓУ `Сѓ© ЪЫ!P‚Є Ь\nУ#ѓѕ ПО`Г‰	%8„љ Ф`Х$€О`Г‰	%	)`\nWѓЂ`	‰ѓЂСѓс ЯP‚т Т\nа#ѓЂб`в#€О`Г‰	%‰	ѓЂ`#Ч	8„Ш	8ѓCБ”‰b€ГдеЏ€Ф`Х$€О#`Г‰	%	)‚yП	8ѓyБ”СТ\nУ#ѓdПО#`Г‰	%8„NФ`Х$€О#`Г‰	%	))Г‚У ѓЊб\nж#€Д …™?…™зГ!.‡" [start 0 end nil buffer-modified-p modified prevstate prev startline state buffer-read-only font-lock-cache-position font-lock-cache-state beginning-of-defun parse-partial-sexp 3 beg re-search-forward "\\s\"" move put-text-property face font-lock-string-face 4 7 comment-end "\\s>\\|" regexp-quote "\\s>" font-lock-comment-face comment-start-skip "\\s\"\\|" t remove-text-properties (face nil) here (byte-code "АБ!€ВГx€`\fVѓ \fb€Г‡" [forward-comment 1 " 	" nil end] 2) ((error (goto-char end))) (face nil) set-buffer-modified-p] 8 "\
Put proper face on each string and comment between START and END."])
(byte-code "АБВ\"€АГД\"€АЕЖ\"€ЗЕИЙ#€АКЛ\"€МН!„# ОНћ„1 РС\"МТ!„: ОЗТУФ#‡" [defalias font-lock-unfontify-region #[(beg end) "А БДЗ#€И!*‡" [buffer-modified-p nil buffer-read-only modified remove-text-properties beg end (face nil) set-buffer-modified-p] 4] font-lock-after-change-function #[(beg end old-len) "ЉА ВЋb€\fѓ \fVѓ Еb€Е€`b€Зy€`ѓ9 ЙTd^К#€‚B ЛTd^\"€М\"+‡" [match-data match-data ((store-match-data match-data)) beg font-lock-cache-position nil end 0 font-lock-no-comments remove-text-properties (face nil) font-lock-fontify-region font-lock-hack-keywords] 4] font-lock-any-properties-p #[(start end) "А	В\"† Г	В\"‰… \fW)‡" [get-text-property start face next-single-property-change next end] 4] put byte-optimizer byte-compile-inline-expand font-lock-hack-keywords #[(start end &optional loudly) "b€	\nГДЕ Д‰‰‰‰‰‰Ж 	\n\fФЋѓ8 Ц!€ѓY@Ab€:ѓ™ @A:ѓs A@\fЧШ8!Щ8‚§ A9ѓЉ Г\fДЧA!‚§ A\fД‚§ Г\fДЫЭ#ѓB\f”\n\f•	\n„Ж ЮЯ\f\"€„н \n	аЛ\"†й бЛ\"‰\"…и \"W)*„§ г>„5Љ\nb€`	Wѓ1б`ЛД	$‰\"ѓ\"	Vѓ	\"а`Л\"„)д`\"Л$€\"b€)‚щ )‚§ д\n	Л$€‚§ %ѓ8 жзи йT‰к\"#€‚8 )Е …h?…hлД!.‡" [start font-lock-keywords-case-fold-search font-lock-keywords 0 nil buffer-modified-p syntax-table old-syntax allow-overlap-p e s face match str first modified buffer-read-only count rest case-fold-search ((set-syntax-table old-syntax)) font-lock-syntax-table set-syntax-table eval 2 3 font-lock-keyword-face re-search-forward end t error "expression did not match subexpression %d" get-text-property next-single-property-change next (t nil) put-text-property loudly message "Fontifying %s... (regexps...%s)" buffer-name make-string 46 set-buffer-modified-p] 14] boundp font-lock-mode nil minor-mode-alist append ((font-lock-mode " Font")) font-lock-fontified permanent-local t] 4)
(defalias 'font-lock-mode #[(&optional arg) "„	 	?‚ В!ГVЕ Жљѓ ЗИЙ!€\fѓ0 К	>„9 К	B	‚9 ЛКМ	!\"	ИБ!\fL€ИН!€\fѓk О €ИП!€ИР!€СПТ\"€СРУ\"€ФХ!€„‚ Ч €‚‚ ѓ‚ ЗШПТ\"€ШРУ\"€Щed\"€Ъ )‡" [arg font-lock-mode prefix-numeric-value 0 on-p buffer-name " *Compiler Input*" nil make-local-variable after-change-functions font-lock-after-change-function delq copy-sequence font-lock-no-comments font-lock-set-defaults before-revert-hook after-revert-hook add-hook font-lock-revert-setup font-lock-revert-cleanup run-hooks font-lock-mode-hook font-lock-fontified font-lock-fontify-buffer remove-hook font-lock-unfontify-region force-mode-line-update] 4 "\
Toggle Font Lock mode.
With arg, turn Font Lock mode on if and only if arg is positive.

When Font Lock mode is enabled, text is fontified as you type it:

 - comments are displayed in `font-lock-comment-face';
     (That is a variable whose value should be a face name.)
 - strings are displayed in `font-lock-string-face';
 - documentation strings are displayed in `font-lock-doc-string-face';
 - function and variable names in their defining forms are displayed
   in `font-lock-function-name-face';
 - and certain other expressions are displayed in other faces
   according to the value of the variable `font-lock-keywords'.

When you turn Font Lock mode on/off, the buffer is fontified/defontified.
To fontify a buffer without having newly typed text become fontified, you
can use \\[font-lock-fontify-buffer]." "P"])
(byte-code "АБВ\"€АГД\"‡" [defalias font-lock-revert-setup #[nil "А‰‡" [nil font-lock-fontified] 2] font-lock-revert-cleanup #[nil "…\f 	?…\f АВ!‡" [font-lock-mode font-lock-fontified 1] 2]] 3)
(defalias 'font-lock-fontify-buffer #[nil "	† t	ѓ ГДЕ \"€\n„ Ж €Зed\"€	ѓ- „- ГЙЕ \"€Љ„8 Кed\"€	ѓB ГЛЕ \"€Мed	#€)НО!ПL€	…X ГРЕ \"*‡" [font-lock-mode font-lock-verbose was-on message "Fontifying %s..." buffer-name font-lock-set-defaults font-lock-unfontify-region font-lock-no-comments "Fontifying %s... (syntactically...)" font-lock-fontify-region "Fontifying %s... (regexps...)" font-lock-hack-keywords make-local-variable font-lock-fontified t "Fontifying %s... done."] 4 "\
Fontify the current buffer the way `font-lock-mode' would:

 - comments are displayed in `font-lock-comment-face';
 - strings are displayed in `font-lock-string-face';
 - documentation strings are displayed in `font-lock-doc-string-face';
 - function and variable names in their defining forms are displayed
   in `font-lock-function-name-face';
 - and certain other expressions are displayed in other faces
   according to the value of the variable `font-lock-keywords'.

This can take a while for large buffers." nil])
(defconst lisp-font-lock-keywords-1 (quote (("^(def[-a-z]+\\s +\\([^ 	\n)]+\\)" 1 font-lock-function-name-face) ("\\s :\\(\\(\\sw\\|\\s_\\)+\\)\\>" . 1))) "\
For consideration as a value of `lisp-font-lock-keywords'.
This does fairly subdued highlighting.")
(defconst lisp-font-lock-keywords-2 (append lisp-font-lock-keywords-1 (quote (("(\\(cond\\|if\\|when\\|unless\\|[ec]?\\(type\\)?case\\)[ 	\n]" . 1) ("(\\(while\\|do\\|let\\*?\\|flet\\|labels\\|prog[nv12*]?\\)[ 	\n]" . 1) ("(\\(catch\\|\\throw\\|block\\|return\\|return-from\\)[ 	\n]" . 1) ("(\\(save-restriction\\|save-window-restriction\\)[ 	\n]" . 1) ("(\\(save-excursion\\|unwind-protect\\|condition-case\\)[ 	\n]" . 1) ("\\\\\\\\\\[\\([^]\\\n]+\\)]" 1 font-lock-keyword-face t) ("`\\([-a-zA-Z0-9_][-a-zA-Z0-9_][-a-zA-Z0-9_.]+\\)'" 1 font-lock-keyword-face t)))) "\
For consideration as a value of `lisp-font-lock-keywords'.
This does a lot more highlighting.")
(defvar lisp-font-lock-keywords lisp-font-lock-keywords-1 "\
Additional expressions to highlight in Lisp modes.")
(defconst c-font-lock-keywords-1 nil "\
For consideration as a value of `c-font-lock-keywords'.
This does fairly subdued highlighting.")
(defconst c-font-lock-keywords-2 nil "\
For consideration as a value of `c-font-lock-keywords'.
This does a lot more highlighting.")
(defconst c++-font-lock-keywords-1 nil "\
For consideration as a value of `c++-font-lock-keywords'.
This does fairly subdued highlighting.")
(defconst c++-font-lock-keywords-2 nil "\
For consideration as a value of `c++-font-lock-keywords'.
This does a lot more highlighting.")
(byte-code "АВДДЖPИ	КЛP\fНОПРСТ	УФ	УФ	УХФ	Ц°ЧШEТ	ЩЪЫ	Ь°ЭШEЮ	Яаб	в°	гШдFЮ	еж	Ы	з°	иШдFйкЇ+м+н	оQпBноQпBрас°пBнж	RтпдFуфхцч#шQщBъыЇ\"<Ф\fэQ+B>н\fоQпB<B?.Ч‡" ["auto\\|extern\\|register\\|static\\|typedef" storage "struct\\|union\\|enum" struct "signed\\|unsigned\\|short\\|long" prefixes "\\|int\\|char\\|float\\|double\\|void" types "[a-zA-Z0-9_:~*]+" ctoken "const\\|class\\|protected:\\|private:\\|public:\\|inline\\|" "new\\|delete" c++-things ("^#[ 	]*[a-z]+" . font-lock-comment-face) ("^#[ 	]*\\(define\\|undef\\)[ 	]+\\(\\(\\sw\\|\\s_\\)+\\)" 2 font-lock-function-name-face) ("^#[ 	]*\\(if\\|elif\\|else\\|endif\\)[ 	]+\\([^\n]+\\)" 2 font-lock-function-name-face keep) ("^#[ 	]*\\(ifn?def\\)[ 	]+\\([^ 	\n]+\\)" 2 font-lock-function-name-face t) ("^#[ 	]*include[ 	]+\\(<[^>\"\n]+>\\)" 1 font-lock-string-face) "^\\(" "[ 	]+\\)?" "\\(" "\\([*&]+[ 	]*\\)?" "\\)[ 	]*(" 5 font-lock-function-name-face "\\)?[ 	]*\\<\\(" "\\)" "[ 	]+\\(" "\\)[ 	]*\\({\\|$\\)" 3 "^[ 	]*\\(\\(" "\\)[ 	]+\\)?\\(\\(\\(" "\\)\\>[ 	]*\\)*\\(" "\\)\\)[ 	]+\\(" "\\)[ 	]*[=;]" 7 keep "\\)[ 	]+\\)?\\(" "\\)[ 	]+" "\\);" 4 ("case[ 	]+\\(\\(\\sw\\|\\s_\\)+\\):" . 1) ("\\<\\(default\\):" . 1) c-font-lock-keywords-1 append "\\<\\(" "\\)\\>" font-lock-type-face "\\<\\(\\(\\(" "\\)\\)\\>" 0 "[ 	]\\(" mapconcat identity ("for" "while" "do" "return" "goto" "case" "break" "switch" "if" "else" "default" "continue" "default") "\\|" "\\)[ 	\n(){};,]" 1 ("[ 	\n]\\(\\(\\sw\\|\\s_\\)+\\):" . 1) ("}[ 	*]*\\(\\(\\sw\\|\\s_\\)+\\)[ 	]*[,;]" 1 font-lock-function-name-face) c-font-lock-keywords-2 "\\)[ 	\n]" c++-font-lock-keywords-1 c++-font-lock-keywords-2] 18)
(defvar c-font-lock-keywords c-font-lock-keywords-1 "\
Additional expressions to highlight in C mode.")
(defvar c++-font-lock-keywords c++-font-lock-keywords-1 "\
Additional expressions to highlight in C++ mode.")
(defvar perl-font-lock-keywords (byte-code "АБВГД#ЕQЖBБВЗД#ИЙКЇ‡" ["[ \n	{]*\\(" mapconcat identity ("if" "until" "while" "elsif" "else" "unless" "for" "foreach" "continue" "exit" "die" "last" "goto" "next" "redo" "return" "local" "exec") "\\|" "\\)[ \n	;(]" 1 ("#endif" "#else" "#ifdef" "#ifndef" "#if" "#include" "#define" "#undef") ("^[ \n	]*sub[ 	]+\\([^ 	{]+\\)[ 	]*[{]" 1 font-lock-function-name-face) ("[ \n	{]*\\(eval\\)[ \n	(;]" 1 font-lock-function-name-face) ("\\(--- .* ---\\|=== .* ===\\)" . font-lock-doc-string-face)] 5) "\
Additional expressions to highlight in Perl mode.")
(defvar tex-font-lock-keywords (list (quote ("\\(\\\\\\([a-zA-Z@]+\\|.\\)\\)" 1 font-lock-keyword-face t)) (quote ("{\\\\em\\([^}]+\\)}" 1 font-lock-comment-face t)) (quote ("{\\\\bf\\([^}]+\\)}" 1 font-lock-keyword-face t)) (quote ("^[ 	\n]*\\\\def[\\\\@]\\(\\w+\\)" 1 font-lock-function-name-face t)) (quote ("\\\\\\(begin\\|end\\){\\([a-zA-Z0-9\\*]+\\)}" 2 font-lock-function-name-face t)) (quote ("[^\\\\]\\$\\([^$]*\\)\\$" 1 font-lock-string-face t))) "\
Additional expressions to highlight in TeX mode.")
(defvar texi-font-lock-keywords (list "@\\(@\\|[^}	 \n{]+\\)" (quote ("^\\(@c\\|@comment\\)[ 	].*$" . font-lock-comment-face)) (quote ("^\\(*.*\\)[	 ]*$" 1 font-lock-function-name-face t)) (quote ("@\\(emph\\|strong\\|b\\|i\\){\\([^}]+\\)" 2 font-lock-comment-face t)) (quote ("@\\(file\\|kbd\\|key\\){\\([^}]+\\)" 2 font-lock-string-face t)) (quote ("@\\(samp\\|code\\|var\\){\\([^}]+\\)" 2 font-lock-function-name-face t)) (quote ("@\\(xref\\|pxref\\){\\([^}]+\\)" 2 font-lock-keyword-face t)) (quote ("@end *\\([a-zA-Z0-9]+\\)[ 	]*$" 1 font-lock-function-name-face t)) (quote ("@item \\(.*\\)$" 1 font-lock-function-name-face t)) (quote ("\\$\\([^$]*\\)\\$" 1 font-lock-string-face t))) "\
Additional expressions to highlight in TeXinfo mode.")
(defvar shell-font-lock-keywords (byte-code "БBВГДF‡" [shell-prompt-pattern font-lock-keyword-face ("[ 	]\\([+-][^ 	\n]+\\)" 1 font-lock-comment-face) ("^[^ 	]+:.*$" . font-lock-string-face) ("^\\[[1-9][0-9]*\\]" . font-lock-string-face)] 4) "\
Additional expressions to highlight in Shell mode.")
(defvar dired-font-lock-keywords (quote (("^  \\(/.+\\)$" 1 font-lock-type-face) ("\\([^ ]+\\) -> [^ ]+$" . font-lock-function-name-face) ("^\\([^ ]\\).*$" 1 font-lock-keyword-face t) ("^..d.* \\([^ ]+\\)$" 1 font-lock-keyword-face))) "\
Additional expressions to highlight in Dired mode.")
(defvar rmail-font-lock-keywords (quote (("^From: \\(.*\\)$" 1 font-lock-keyword-face) ("^Subject: \\(.*\\)$" 1 font-lock-function-name-face))) "\
Additional expressions to highlight in Rmail mode.")
(defvar rmail-summary-font-lock-keywords (quote (("^\\s *[0-9]+D.*$" . font-lock-doc-string-face) ("^\\s *[0-9]+-.*$" . font-lock-keyword-face))) "\
Additional expressions to highlight in Rmail Summary mode.")
(defvar compilation-mode-font-lock-keywords (quote (("^\\([^\n:]*:\\([0-9]+:\\)+\\)\\(.*\\)$" 1 font-lock-function-name-face))) "\
Additional expressions to highlight in Compilation mode.")
(defalias 'font-lock-set-defaults #[nil "Б>ѓ В\f?…Ч Е=ѓ ‚Х З=ѓ# ‚Х И=ѓ? ЙК!€ЛМ !\nНОП\n#€‚Х С=ѓ[ ЙК!€ЛМ !\nНОП\n#€‚Х Т=ѓf ‚Х Ф=ѓq ‚Х Ц=ѓ| ‚Х Ш=ѓ‡ ‚Х Щ=ѓ’ ‚Х Ъ=ѓќ ‚Х Ь=ѓЁ ‚Х Ю=ѓі ‚Х а=ѓѕ !‚Х в=ѓЙ #‚Х д=ѓФ %‚Х ж‰‡" [major-mode (rmail-mode dired-mode compilation-mode shell-mode) t font-lock-no-comments font-lock-keywords lisp-mode lisp-font-lock-keywords emacs-lisp-mode c-mode make-local-variable font-lock-syntax-table copy-syntax-table syntax-table modify-syntax-entry 95 "w" c-font-lock-keywords c++-c-mode c++-mode c++-font-lock-keywords perl-mode perl-font-lock-keywords plain-tex-mode tex-font-lock-keywords latex-mode slitex-mode texinfo-mode texi-font-lock-keywords shell-mode shell-font-lock-keywords dired-mode dired-font-lock-keywords rmail-mode rmail-font-lock-keywords rmail-summary-mode rmail-summary-font-lock-keywords compilation-mode compilation-mode-font-lock-keywords nil] 4 "\
Set `font-lock-keywords' to something appropriate for this mode."])
(provide (quote font-lock))