;ELC ;;; Compiled by root@loma.devel.redhat.com on Sun Feb 15 09:53:22 2004 ;;; from file /usr/src/build/351973-noarch/BUILD/apel-10.6/richtext.el ;;; in Emacs version 21.3.1 ;;; with bytecomp version 2.85.4.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (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.29"))) (error "`richtext.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (require 'enriched) #@191 What to insert at the start of a text/richtext file. If this is a string, it is inserted. If it is a list, it should be a lambda expression, which is evaluated to get the string to insert. (defconst richtext-initial-annotation #[nil "\300\301\302 \"\207" [format "Content-Type: text/richtext\nText-Width: %d\n\n" enriched-text-width] 3] (#$ . 655)) #@51 Regular expression matching richtext annotations. (defconst richtext-annotation-regexp "[ \n]*\$<\\(/\$?\$[-A-za-z0-9]+\$>\\)[ \n]*" (#$ . 1011)) #@149 List of definitions of text/richtext annotations. See `format-annotate-region' and `format-deannotate-region' for the definition of this structure. (defconst richtext-translations '((face (bold-italic "bold" "italic") (bold "bold") (italic "italic") (underline "underline") (fixed "fixed") (excerpt "excerpt") (default) (nil enriched-encode-other-face)) (invisible (t "comment")) (left-margin (4 "indent")) (right-margin (4 "indentright")) (justification (right "flushright") (left "flushleft") (full "flushboth") (center "center")) (FUNCTION (enriched-decode-foreground "x-color") (enriched-decode-background "x-bg-color")) (read-only (t "x-read-only")) (unknown (nil format-annotate-value))) (#$ . 1170)) (defalias 'richtext-encode #[(from to) "\203\306\307!\210\214 \n}\210\310 \210\311 \210 b\210\312\313!\210\314\315 d\316\f%!\210 b\210 ;\2031\2024 c\210\317\320\321`\322$\210\203E\306\322!\210d)\207" [enriched-verbose from to richtext-translations enriched-ignore enriched-initial-annotation message "Richtext: encoding document..." delete-to-left-margin unjustify-region format-replace-strings (("<" . "")) format-insert-annotations format-annotate-region enriched-make-annotation enriched-map-property-regions hard #[(v b e) "b\210l\205\301\302\303\304#\205\305\306!\210\202\207" [b search-forward "\n" nil t replace-match "\n"] 4] nil richtext-initial-annotation] 7]) #@119 Find and return next text/richtext annotation. Return value is (begin end name positive-p), or nil if none was found. (defalias 'richtext-next-annotation #[nil "\300\301\215\207" [tag (byte-code "\306\307\310#\205g\311\224\311\225\312\224\312\225\313\224\313\225{\227\314\224? \315\232\2033\f|\210b\210\316c\210\202b \317\232\203X\203K\320\321 \f F\"\210\202b\320\321\n F\"\210\202b\320\321\f F\"\210.\202\207" [richtext-annotation-regexp beg0 end0 beg end name re-search-forward nil t 0 1 3 2 "lt" "<" "comment" throw tag pos] 6)] 2 (#$ . 2582)]) (defalias 'richtext-decode #[(from to) "\203\306\307!\210\212\214 \n}\210 b\210\310 \311\312 \210 b\210\313\314\315\311#\203+\316\317!\210\202 b\210\313\320\315\311#\203M\316\317!\210\321\322\224`\323\311$\210\321\322\224`\324\315$\210\202.\325 d \326$\210\f\203e\f\327 U\203e\330 \210\202r\203m\306\331!\210\332ed\"\210*\203{\306\315!\210d*\207" [enriched-verbose from to use-hard-newlines file-width richtext-translations message "Richtext: decoding document..." enriched-get-file-width t enriched-remove-header re-search-forward "\n\n+" nil replace-match "\n" "[ \n]*[ \n]*" put-text-property 0 hard front-sticky format-deannotate-region richtext-next-annotation enriched-text-width enriched-insert-indentation "Filling paragraphs..." fill-region] 5]) (byte-code "\301\300!\210\301\302!\210\303\304\305!\300\306\307!\310\311\"\210\312\304\305!\"\210\313!\311\232\203)\2024\314\307\315\311\315\211\211\211\211&)#\210\304\305!\207" [product require apel-ver put provide richtext product-find-by-name "APEL" product-run-checkers (10 6) product-add-feature product-version vector nil] 12)