;ELC���
;;; Compiled by yjaradin(at)localhost.localdomain on Fri Jul 4 12:17:29 2008
;;; from file /tmp/build-1.4.0/build-linux-i486/contrib/doc/code/Fontifier.el
;;; in Emacs version 21.4.1
;;; with bytecomp version 2.85.4.1
;;; with all optimizations.

;;; This file uses opcodes which do not exist in Emacs 18.
(if (and (boundp ’emacs-version)
(< (aref emacs-version (1- (length emacs-version))) ?A)
(or (and (boundp ‘epoch::version) epoch::version)
(string-lessp emacs-version “19”)))
(error “`Fontifier.el’ was compiled for Emacs 19 or later”))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(byte-code “\303\304!\203�\304\305\306"\210\307\302 B\310\302!\204�\311\303\207” [font-lock-maximum-decoration current-load-list ozdoc-face-to-tag-alist fboundp font-lock-add-keywords emacs-lisp-mode ((“(\(setq\)[ ]+\([^ \n]+\)\>” (1 font-lock-keyword-face) (2 font-lock-variable-name-face))) t boundp ((font-lock-comment-face . comment) (font-lock-keyword-face . keyword) (font-lock-string-face . string) (font-lock-variable-name-face . variable) (font-lock-function-name-face . function) (font-lock-builtin-face . builtin) (font-lock-reference-face . reference) (font-lock-constant-face . reference) (font-lock-type-face . type) (font-lock-warning-face . warning) (nil . text))] 3)
(fset ’ozdoc-face-to-tag ’(lambda (face) (byte-code “\302 "A\207” [face ozdoc-face-to-tag-alist assq] 3)))
(fset ’ozdoc-fontify ’(lambda nil (byte-code “@A@\305\211\306\f",\207” [command-line-args-left font-lock-verbose oz-want-font-lock out in nil ozdoc-fontify-internal] 4)))
(byte-code “\301B\306\302B\307\303B\310\304B\311\305B\312\301\207” [current-load-list ozdoc-mark-begin ozdoc-mark-end ozdoc-mark-text ozdoc-mark-open ozdoc-mark-close “B” “E” “T” “O” “C”] 2)
(defun ozdoc-next-mark nil “
leaves point in front of next <MARK …>” (byte-code “\300\301!\207” [skip-chars-forward “^”] 2))
(defun ozdoc-after-mark nil “
the point is moved over the <MARK …>” (byte-code “\300\301!\207” [forward-char 2] 2))
(defun ozdoc-parse-request nil “
should be invoked in the buffer contain the sequence of
requests. the point should be positioned at the beginning of
a request. the request is parsed and a description of it is
returned as a tree and the point is left at the beginning of
the next entry. The parsed representation of a request has
the form:

(MODE SPEC)

where MODE is a symbol, and SPEC has the form:

(simple P1 P2)

or (complex SPEC1 … SPECn)

where P1 and P2 are positions in the request buffer for a
span of textual data.” (byte-code “\305\211\211\306!\204�\307\310!\210\311 \210\312 \210\313\314\n"!\315 \306\f!\204,�\307\316!\210\311 \210 +D\207” [spec mode start ozdoc-mark-begin ozdoc-mark-end nil looking-at error “expected begin mark” ozdoc-after-mark ozdoc-next-mark intern buffer-substring-no-properties ozdoc-parse-spec “expected end mark”] 4))
(fset ’ozdoc-parse-spec ’(lambda nil (byte-code “\302!\203 �\303 \207\302 !\203�\304 \207\305\306!\207” [ozdoc-mark-text ozdoc-mark-open looking-at ozdoc-parse-simple ozdoc-parse-complex error “expected text or open mark”] 2)))
(fset ’ozdoc-parse-simple ’(lambda nil (byte-code “\301 \210\302 \210\303E)\207” [start ozdoc-after-mark ozdoc-next-mark simple] 3)))
(fset ’ozdoc-parse-complex ’(lambda nil (byte-code “\302 \210\303\304 !\204�\305 B\202�\302 \210\306\307!)B\207” [specs ozdoc-mark-close ozdoc-after-mark nil looking-at ozdoc-parse-spec complex reverse] 3)))
(defun ozdoc-install-spec (spec) “
takes a parsed SPEC as single arg (see ozdoc-parse-request).
The appropriate text is inserted into the current buffer with
text properties to encode the structure. The data is taken from
src-buffer.” (byte-code “@\301=\203�\302!\207@\303=\203�\304!\207\305\306"\207” [spec simple ozdoc-install-simple complex ozdoc-install-complex error “bad spec: %S”] 3))
(fset ’ozdoc-install-simple ’(lambda (request) (byte-code “A@\3058\306\f\n#\210\307 E+\207” [request p p2 p1 src-buffer 2 insert-buffer-substring simple] 4)))
(fset ’ozdoc-install-complex ’(lambda (request) (byte-code “A\303\211\203�\304\n@! B\nA\211\204 �\305\306 !*B\207” [request new-specs old-specs nil ozdoc-install-spec complex reverse] 4)))
(defun ozdoc-examine-spec (spec) “
takes a SPEC as single arg (see ozdoc-parse-request) and
examines the current buffer for face changes in the span
corresponding to SPEC. For a simple spec (simple P1 P2),
these face changes are returned as an alist:
(simple (TAG . STRING) (TAG . STRING) …)
where TAG is a symbol corresponding to the face and STRING
is the text that was thus highlighted. For a complex spec,
we return (complex SPEC1 … SPECn) where the result SPECs
are obtain by processing the corresponding SPECs in the
argument.” (byte-code “@\301=\203�\302!\207@\303=\203�\304!\207\305\306"\207” [spec simple ozdoc-examine-simple complex ozdoc-examine-complex error “bad spec: %S”] 3))
(fset ’ozdoc-examine-simple ’(lambda (spec) (byte-code “A@\3068\307\211\211\211b\210\fW\2038�\310\302"\311\302\307\f$\206&�\f\312\n!\313 "BB b\210\202�\314\315!-B\207” [spec next face alist p2 p1 2 nil get-text-property next-single-property-change ozdoc-face-to-tag buffer-substring-no-properties simple reverse] 6)))
(fset ’ozdoc-examine-complex ’(lambda (spec) (byte-code “A\303\211\203�\304\n@! B\nA\211\204 �\305\306 !*B\207” [spec result specs nil ozdoc-examine-spec complex reverse] 4)))
(defun ozdoc-output-answer (spec) “
inserts into the current buffer a representation of
the result spec.” (byte-code “c\210\303 !\210\nc\207” [ozdoc-mark-begin spec ozdoc-mark-end ozdoc-output-spec] 2))
(fset ’ozdoc-output-simple ’(lambda (spec) (byte-code “A\nc\210\305c\210 \203!�\306\307 @@! @A$\210 A\211\204
�\fc)\207” [spec alist ozdoc-mark-open ozdoc-mark-text ozdoc-mark-close 83 insert symbol-name] 6)))
(fset ’ozdoc-output-complex ’(lambda (spec) (byte-code “A\nc\210\304c\210 \203�\305 @!\210 A\211\204
�c)\207” [spec specs ozdoc-mark-open ozdoc-mark-close 67 ozdoc-output-spec] 3)))
(fset ’ozdoc-output-spec ’(lambda (spec) (byte-code “@\301=\203�\302!\207@\303=\203�\304!\207\305\306"\207” [spec simple ozdoc-output-simple complex ozdoc-output-complex error “bad spec: %S”] 3)))
(defun ozdoc-process-request nil “
processes one request. must be invoked in src-buffer.” (byte-code “\306\211\211\307 \212q\210\310 \210\311 \210\312 \210\n@\313 !\203#� \206:�\314\315\316 "!\211\2055�\313\f!\2055�\f)\206:�\317\nA@\320! \210\321 \210\322!
q\210db\210\323!,\207” [spec mode request tmp-buffer m out-buffer nil ozdoc-parse-request kill-all-local-variables widen erase-buffer fboundp intern-soft format “%s-mode” fundamental-mode ozdoc-install-spec font-lock-fontify-buffer ozdoc-examine-spec ozdoc-output-answer] 5))
(fset ’ozdoc-fontify-internal ’(lambda (in out) (byte-code “\306\307!\310\311\211#\306\312!\313q\210eb\210m\204 �\314 \210\202�\nq\210\315ed
#,\207” [in enable-local-variables out-buffer src-buffer tmp-buffer out get-buffer-create “ozdoc-tmp” find-file-noselect t “ozdoc-out” nil ozdoc-process-request write-region] 5)))