;ELC   
;;; Compiled by root@loma.devel.redhat.com on Tue Feb 17 01:44:30 2004
;;; from file /usr/src/build/355475-noarch/BUILD/psgml-1.2.5/psgml-charent.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 "`psgml-charent.el' was compiled for Emacs 19.29 or later"))

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


(byte-code "\300\301!\210\302\303!\207" [provide psgml-charent require psgml-parse] 2)
#@103 *Name of file holding relations between character codes and character
names of displayable characters
(defvar sgml-display-char-list-filename (byte-code "\300\301\302\303\304!!\"\207" [expand-file-name "iso88591.map" file-name-directory locate-library "psgml"] 5) (#$ . -734))
(byte-code "\301B\302\301!\204\f \303\303\207" [current-load-list sgml-display-char-alist-cache boundp nil] 2)
#@109 Return the current display character alist.
Alist with entity name as key and display character as content.
(defalias 'sgml-display-char-alist #[nil "\301!\204 \302\303\"\210\304\305\306#\207" [sgml-display-char-list-filename file-exists-p error "No display char file: %s" sgml-cache-catalog sgml-display-char-alist-cache sgml-read-display-char-alist] 4 (#$ . 1132)])
(defalias 'sgml-read-display-char-alist #[nil "\303\211\211\304\305\303\306#\203' \307\224\307\225{\310\311\312\224\312\225{!!\n	BB\202 +\207" [alist disp-char key nil re-search-forward "^\\([0-9]+\\)[ 	]+\\(.+\\)$" t 2 char-to-string string-to-number 1] 4])
#@221 Association list to hold relations of the type
     (CHARACTER-NAME . CHARACTER)
    where 
     CHARACTER-NAME is a string holding a character name
     CHARACTER      is a string holding a single displayable character
(defalias 'sgml-charent-to-dispchar-alist #[nil "\303 \210\304 \305\306\307\n\310H\"\210*\207" [alist display-chars sgml-dtd-info sgml-need-dtd sgml-display-char-alist nil sgml-map-entities #[(entity) "\304\3058	\"A\211\205 @\nBB\211)\207" [entity display-chars char alist assoc 2] 4] 3] 4 (#$ . 1779)])
#@69 Replace character entities with their display character equivalents
(defalias 'sgml-charent-to-display-char #[nil "\306 \307\211\212eb\210\310 p\311\203 \202 !\210\312\216\313\314\307\315#\205B \316\317\224\317\225\"\320	\n\"A\211\203  \321\315\211#\210\202  .\207" [replacement charent charent-to-char cb normal-syntax-table sgml-xml-p sgml-charent-to-dispchar-alist nil syntax-table set-syntax-table ((byte-code "p	q\210\303\n!\207" [sgml-last-buffer cb normal-syntax-table set-syntax-table] 2)) re-search-forward "&\\(\\w\\(\\w\\|\\s_\\)*\\);?" t buffer-substring-no-properties 1 assoc replace-match xml-parser-syntax sgml-parser-syntax] 4 (#$ . 2318) nil])
#@72 Replace displayable characters with their character entity equivalents
(defalias 'sgml-display-char-to-charent #[nil "\303\212\304 \303	:\2030 	@eb\210\305\nA\303\306#\203) \307\310\n@\311Q\306\211#\210\202 	A\211\202	 ,\303\207" [case-fold-search #1=#:G60596 pair nil sgml-charent-to-dispchar-alist search-forward t replace-match "&" ";"] 5 (#$ . 3002) nil])