;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/emu.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 "`emu.el' was compiled for Emacs 19.29 or later"))

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


(byte-code "\306\307!\210\302B\310\302!\204 	\311X\303B\310\303!\204  \312\313!\304B\310\304!\204: \310\314!?\2059 ?\2059 \312\315!\305B\310\305!\204L \205K \312\315!\316B\310\316!\204` ?\205^ 	\317U\320B\310\320!\204\200 \203v -\321Y\206~ ?\205~ 	\322Y\323B\310\323!\204\223 \205\221 	\317U\324B\310\324!\204\246 \205\244 	\322Y\325B\310\325!\204\300 \203\274 -\326Y\206\276 \203\356 \327B\310\327!\204\321 \330\331B\310\331!\204\336 \332\333B\310\333!\204E\334\202E	\317Y\203\327B\310\327!\204\335\331B\310\331!\204\336\333B\310\333!\204E\337\202E\327B\310\327!\204+\340\331B\310\331!\2048\340\333B\310\333!\204E\340\341\342!\204U\343\342\344\"\210\345\342\344\"\210\341\346!\204e\343\346\347\"\210\345\346\347\"\210\341\350!\204u\343\350\351\"\210\345\350\351\"\210\306\352!\210\306\353!\210\306\354!\207" [current-load-list emacs-major-version running-emacs-18 running-xemacs running-mule-merged-emacs running-xemacs-with-mule require poe boundp 18 featurep xemacs MULE mule running-emacs-19 19 running-emacs-19_29-or-later 29 20 running-xemacs-19 running-xemacs-20-or-later running-xemacs-19_14-or-later 14 mouse-button-1 button1 mouse-button-2 button2 mouse-button-3 button3 [mouse-1] [mouse-2] [down-mouse-3] nil fboundp tl:make-overlay defalias make-overlay make-obsolete tl:overlay-put overlay-put tl:overlay-buffer overlay-buffer poem mcharset invisible emacs-minor-version] 3)
#@48 Convert list of character CHAR-LIST to string.
(defalias 'char-list-to-string #[(char-list) "\301\302\"\207" [char-list apply string] 3 (#$ . 2112)])
(byte-code "\306\307\310\311#\210\312\313!\2032 \312\314!\203 \315\316M\210\202\204 \317Y\203+ \320\321\322\"\210\315\323M\210\202\204 \324\325!\210\202\204 \326\327!\203i \302	B\330\303	B\331\304	B\332\305	B\332\333	B\334\335	B\334\336\337M\210\340\341M\210\202\204 \333	B\342\305	B\342\302	B\342\336\343M\210\340\344M\210\326\302!\204\226 \302	B\306\302\345\346#\210\347\320\350\351\"\210\352\350\351\"\210\353\321!\204\264 \321\354M\210\321	B\306\321\355\356#\210\353\357!\204\345 @\204\304 A\203\333 \360\357\361\"\210\362B\236\204\345 \362\363BBBB\202\345 \360\357\364\"\210\360\365\364\"\210\366=\203\374 C\312\314!\203\367 \367\202\370 \370Y\204\317=\203C\312\314!\203\334\202\331W\203\371\372\373\"\210\324\374!\210\324\375!\210\306\376\377!\374\201D \201E !<\201F <\201G \"\210\201H <\376\377!\"\210\201I <!\201G \232\203T<\202e\201J \201E \342\201G \342\211\211\211\211&)#\210\376\377!\207" [emacs-major-version current-load-list *noconv* *sjis* *junet* *ctext* put char-list-to-string byte-optimizer byte-compile-inline-expand featurep mule xemacs char-category #[(character) "\301\302\303!\304#\207" [character mapconcat #[(chr) "\250\203 \301\302!!\207\301!\207" [chr char-to-string int-char] 3] char-category-list ""] 4 "Return string of category mnemonics for CHAR in TABLE.\nCHAR can be any multilingual character\nTABLE defaults to the current buffer's category table."] 20 defalias insert-binary-file-contents-literally insert-file-contents-literally #[(character) "\301\302!!\207" [character category-set-mnemonics char-category-set] 3 "Return string of category mnemonics for CHAR in TABLE.\nCHAR can be any multilingual character\nTABLE defaults to the current buffer's category table."] require emu-mule boundp NEMACS 0 1 2 *internal* 3 *euc-japan* code-convert-string #[(str ic oc) "	=\204\f \303\n	#\207\n\207" [ic oc str convert-string-kanji-code] 4 "Convert code in STRING from SOURCE code to TARGET code,\nOn successful conversion, returns the result string,\nelse returns nil."] code-convert-region #[(beg end ic oc) "	U?\205 \212\214\n}\210\304\n	$*\207" [ic oc beg end convert-region-kanji-code] 5 "Convert code of the text between BEGIN and END from SOURCE\nto TARGET. On successful conversion returns t,\nelse returns nil."] nil #[(str ic oc) "\207" [str] 1 "Convert code in STRING from SOURCE code to TARGET code,\nOn successful conversion, returns the result string,\nelse returns nil. [emu-latin1.el; old MULE emulating function]"] #[(beg end ic oc) "\300\207" [t] 1 "Convert code of the text between BEGIN and END from SOURCE\nto TARGET. On successful conversion returns t,\nelse returns nil. [emu-latin1.el; old MULE emulating function]"] variable-documentation "Coding-system for binary.\nThis constant is defined to emulate old MULE anything older than MULE 2.3.\nIt is obsolete, so don't use it." binary insert-binary-file-contents insert-file-contents-as-binary make-obsolete fboundp #[(filename &optional visit beg end replace) "\306\307	\n\f%)\207" [coding-system-for-read filename visit beg end replace binary insert-file-contents-literally] 6 "Like `insert-file-contents-literally', q.v., but don't code conversion.\nA buffer may be modified in several ways after reading into the buffer due\nto advanced Emacs features, such as file-name-handlers, format decoding,\nfind-file-hooks, etc.\n  This function ensures that none of these modifications will take place."] defun-maybe t richtext-decode autoload "richtext" text/richtext ("Extended MIME text/richtext format." "Content-[Tt]ype:[ 	]*text/richtext" richtext-decode richtext-encode t enriched-mode) "tinyrich" enriched-decode 19 14 29 eval-after-load "enriched" (if (fboundp 'si:enriched-encode) nil (fset 'si:enriched-encode (symbol-function 'enriched-encode)) (defun enriched-encode (from to &optional orig-buf) (let* ((si:enriched-initial-annotation enriched-initial-annotation) (enriched-initial-annotation (if (stringp si:enriched-initial-annotation) si:enriched-initial-annotation #'(lambda nil (save-excursion (if orig-buf (set-buffer orig-buf)) (funcall si:enriched-initial-annotation)))))) (si::enriched-encode from to)))) product apel-ver provide emu running-emacs-19_29-or-later running-xemacs-19_14-or-later format-alist emacs-minor-version product-find-by-name "APEL" product-run-checkers (10 6) product-add-feature product-version vector] 12)