;ELC ;;; Compiled by pot@pot.cnuce.cnr.it on Tue Mar 18 15:46:41 2003 ;;; from file /home/pot/gnu/emacs-pretest.new/lisp/international/fontset.el ;;; in Emacs version 21.3 ;;; 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 "`fontset.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\304\305\211\211 \2032 @@ @A A\n9\203'\306\307\n!\310H!\202)\n\311\312 #\210\202,\305\207" [arg font-spec charset l ((latin-iso8859-1 nil . "ISO8859-1") (latin-iso8859-2 nil . "ISO8859-2") (latin-iso8859-3 nil . "ISO8859-3") (latin-iso8859-4 nil . "ISO8859-4") (thai-tis620 "*" . "TIS620") (greek-iso8859-7 "*" . "ISO8859-7") (arabic-iso8859-6 "*" . "ISO8859-6") (hebrew-iso8859-8 "*" . "ISO8859-8") (katakana-jisx0201 "*" . "JISX0201") (latin-jisx0201 nil . "JISX0201") (cyrillic-iso8859-5 "*" . "ISO8859-5") (latin-iso8859-9 nil . "ISO8859-9") (japanese-jisx0208-1978 "*" . "JISX0208.1978") (chinese-gb2312 "*" . "GB2312.1980") (japanese-jisx0208 "*" . "JISX0208.1990") (korean-ksc5601 "*" . "KSC5601.1989") (japanese-jisx0212 "*" . "JISX0212") (chinese-cns11643-1 "*" . "CNS11643.1992-1") (chinese-cns11643-2 "*" . "CNS11643.1992-2") (chinese-cns11643-3 "*" . "CNS11643.1992-3") (chinese-cns11643-4 "*" . "CNS11643.1992-4") (chinese-cns11643-5 "*" . "CNS11643.1992-5") (chinese-cns11643-6 "*" . "CNS11643.1992-6") (chinese-cns11643-7 "*" . "CNS11643.1992-7") (chinese-big5-1 "*" . "Big5") (chinese-big5-2 "*" . "Big5") (chinese-sisheng nil . "sisheng_cwnn") (vietnamese-viscii-lower nil . "VISCII1.1") (vietnamese-viscii-upper nil . "VISCII1.1") (arabic-digit "*" . "MuleArabic-0") (arabic-1-column "*" . "MuleArabic-1") (arabic-2-column "*" . "MuleArabic-2") (ipa nil . "MuleIPA") (ethiopic "*" . "Ethiopic-Unicode") (ascii-right-to-left nil . "ISO8859-1") (indian-is13194 "*" . "IS13194-Devanagari") (indian-2-column "*" . "MuleIndian-2") (indian-1-column "*" . "MuleIndian-1") (lao "*" . "MuleLao-1") (tibetan "proportional" . "MuleTibetan-2") (tibetan-1-column "*" . "MuleTibetan-1") (latin-iso8859-14 nil . "ISO8859-14") (latin-iso8859-15 nil . "ISO8859-15") (mule-unicode-0100-24ff nil . "ISO10646-1") (mule-unicode-2500-33ff nil . "ISO10646-1") (mule-unicode-e000-ffff nil . "ISO10646-1") (japanese-jisx0213-1 "*" . "JISX0213.2000-1") (japanese-jisx0213-2 "*" . "JISX0213.2000-2")) nil make-char-internal charset-info 0 set-fontset-font "fontset-default"] 4) (defalias 'set-font-encoding #[(pattern charset encoding) "\306 \"\211\203$ \nA\236\211\203\f \241\202 \n B\nAB\241)\202- BD B\211)\207" [pattern font-encoding-alist slot charset place encoding assoc] 4]) (byte-code "\306\307\310\311#\210\306\312\313\311#\210\314\300\"\210\315\303\nB\316\303\317\320#\210 \316\303\321\322\303 \"#\210)\323\fB\324\325\306\207" [ucs-mule-to-mule-unicode prog current-load-list ccl-encode-unicode-font font-ccl-encoder-alist x-pixel-size-width-font-regexp set-font-encoding "ISO8859-1" ascii 0 "JISX0201" latin-jisx0201 define-translation-table [0 65 1307 18 0 320 33 14596 1371 20 0 131577 7 104250 49215 (ucs-mule-to-mule-unicode . translation-table-id) 1563 18 129 345 128 33 10756 82265 127 147511 7 2843 18 244 32823 96 568 55 -2848 180279 0 1856 6660 2843 18 242 32823 96 568 55 6368 180279 0 1856 3588 2843 18 243 32823 96 568 55 54240 180279 0 1856 516 65313 64833 22] put variable-documentation "Encode characters for display with iso10646 font.\nTranslate through the translation-table named\n`ucs-mule-to-mule-unicode' initially." ccl-program-idx register-ccl-program ("ISO10646.*-*" . ccl-encode-unicode-font) "gb2312\\|jisx0208\\|ksc5601\\|cns11643\\|big5" "gb2312\\|jisx0208\\|jisx0212\\|ksc5601\\|cns11643\\|big5" vertical-centering-font-regexp] 6) #@308 Alist of font names vs list of charsets the font can display. When a font name which matches some element of this alist is given as `-fn' command line argument or is specified by X resource, a fontset which uses the specified font for the corresponding charsets are created and used for the initial frame. (defvar x-font-name-charset-alist '(("iso8859-1" ascii latin-iso8859-1) ("iso8859-2" ascii latin-iso8859-2) ("iso8859-3" ascii latin-iso8859-3) ("iso8859-4" ascii latin-iso8859-4) ("iso8859-5" ascii cyrillic-iso8859-5) ("iso8859-6" ascii arabic-iso8859-6) ("iso8859-7" ascii greek-iso8859-7) ("iso8859-8" ascii hebrew-iso8859-8) ("iso8859-14" ascii latin-iso8859-14) ("iso8859-15" ascii latin-iso8859-15) ("tis620" ascii thai-tis620) ("koi8" ascii cyrillic-iso8859-5) ("viscii" ascii vietnamese-viscii-upper vietnamese-viscii-lower) ("vscii" ascii vietnamese-viscii-upper vietnamese-viscii-lower) ("mulelao-1" ascii lao) ("iso10646-1" ascii latin-iso8859-1 mule-unicode-0100-24ff mule-unicode-2500-33ff mule-unicode-e000-ffff)) (#$ . 4042)) (byte-code "\301B\306\302B\307\303B\310\304B\311\305B\312\313B\314 \315B\316 \317B\320\321B\322\323B\324\325B\326\327B\330\331B\332\333B\334\335B\336\337B \257\301\207" [current-load-list xlfd-regexp-foundry-subnum xlfd-regexp-family-subnum xlfd-regexp-weight-subnum xlfd-regexp-slant-subnum xlfd-regexp-swidth-subnum 0 1 2 3 4 xlfd-regexp-adstyle-subnum 5 xlfd-regexp-pixelsize-subnum 6 xlfd-regexp-pointsize-subnum 7 xlfd-regexp-resx-subnum 8 xlfd-regexp-resy-subnum 9 xlfd-regexp-spacing-subnum 10 xlfd-regexp-avgwidth-subnum 11 xlfd-regexp-registry-subnum 12 xlfd-regexp-encoding-subnum 13 xlfd-tight-regexp "^-\\([^-]*\\)-\\([^-]*\\)-\\([^-]*\\)-\\([^-]*\\)-\\([^-]*\\)-\\([^-]*\\)-\\([^-]*\\)-\\([^-]*\\)-\\([^-]*\\)-\\([^-]*\\)-\\([^-]*\\)-\\([^-]*\\)-\\([^-]*\\)-\\([^-]*\\)$" xlfd-regexp-numeric-subnums] 5) #@290 Decompose PATTERN into XLFD's fields and return vector of the fields. The length of the vector is 14. If PATTERN doesn't conform to XLFD, try to get a full XLFD name from X server and use the information of the full name to decompose PATTERN. If no full XLFD name is gotten, return nil. (defalias 'x-decompose-font-name #[(pattern) "\306\211\307\n \"\203-\310\311\312\306\"\f\312W\203( \f\313\fT \"I\210\fT\211\202 )\202$\306\314\315\217\211\205$\307\n\"\205$ G\310\306\311\312\306\"\f\312W\203d \f\211T\224\313\fT\"BI\210\fT\211\202K\310\fW\203\270 \fH\211\316U\203\221 \310\fO\317 \fT\306OQ\320\\\f\320\\\202\264\321U\203\261 \310\fO\322 \fT\306OQ\323\\\f\323\\\202\264\fT)\202f\307 \"\203 \324 AA\310\f\312W\203 \203\332 \fH@ @W\203\351 \f \fHAI\210\fT\211\202\307 \fH@ A@W\203 \f\325I\210\fT\211\202\307 AA\202\306)\202\"\310\310\312W\203\" \f \fHAI\210\fT\211\202 +*\207" [fontname xlfd-fields xlfd-tight-regexp pattern i l nil string-match 0 make-vector 14 match-string (x-resolve-font-name pattern) ((error)) 63 "\\(.\\)" 4 42 "\\(.*\\)" 5 match-data "*" len ch] 7 (#$ . 5981)]) (defalias 'x-reduce-font-name #[(name) "\301\302\"\203\303\304\305\211$\202\207" [name string-match "-\\*-\\(\\*-\\)+" replace-match "-*-" t] 5]) (put 'x-reduce-font-name 'byte-optimizer 'byte-compile-inline-expand) #@226 Compose X's fontname from FIELDS. FIELDS is a vector of XLFD fields, the length 14. If a field is nil, wild-card letter `*' is embedded. Optional argument REDUCE is always ignored. It exists just for backward compatibility. (defalias 'x-compose-font-name #[(fields &optional reduce) "\301\302\303\301#P\207" [fields "-" mapconcat #[(x) "\206\301\207" [x "*"] 1]] 5 (#$ . 7371)]) #@290 Like `x-resolve-font-name', but always return a font name. XLFD-FIELDS is a vector of XLFD (X Logical Font Description) fields. If no font matching XLFD-FIELDS is available, successively replace parts of the font name pattern with "*" until some font is found. Value is name of that font. (defalias 'x-must-resolve-font-name #[(xlfd-fields) "\305\306 \204\nX\203\307 !\305\310\311\217\210)\202 \204#\312\313!\210 *\207" [index ascii-font xlfd-regexp-encoding-subnum xlfd-fields pattern nil 0 x-compose-font-name (byte-code "\302!\302\207" [pattern ascii-font x-resolve-font-name] 2) ((error (byte-code "\303\304\"\210 \n\305I\210\nT\303\207" [pattern xlfd-fields index message "Warning: no fonts matching `%s' available" "*"] 3))) error "No fonts founds"] 3 (#$ . 7762)]) #@531 Complement FONTLIST for charsets based on XLFD-FIELDS and return it. XLFD-FIELDS is a vector of XLFD (X Logical Font Description) fields. FONTLIST is an alist of charsets vs the corresponding font names. The fonts are complemented as below. If FONTLIST doesn't specify a font for ASCII charset, generate a font name for the charset from XLFD-FIELDS, and add that information to FONTLIST. If a font specifid for ASCII supports the other charsets (see the variable `x-font-name-charset-alist'), add that information to FONTLIST. (defalias 'x-complement-fontset-spec #[(xlfd-fields fontlist) "\306\236\211A\307\n\203 \310\n!\211\241\210\202-\f \311I\210\f\312I\210\313\f!\306\nBB\314\n!\211\204:\n\202Q\315\316\fH\fH#\315\316\f H\fH#B\307\203\234@A\317@\n\"\203XA\307\203\230@A\236\204x BB\202x*\202X*+\207" [fontlist slot ascii-font ascii-font-spec xlfd-fields xlfd-regexp-registry-subnum ascii nil x-resolve-font-name "iso8859" "1" x-must-resolve-font-name x-decompose-font-name format "%s-%s" string-match xlfd-regexp-encoding-subnum xlfd-regexp-foundry-subnum xlfd-regexp-family-subnum x-font-name-charset-alist elt tail charset charsets] 7 (#$ . 8556)]) #@171 Return non-nil if FONTSET is valid as fontset name. A valid fontset name should conform to XLFD (X Logical Font Description) with "fontset" in ` field. (defalias 'fontset-name-p #[(fontset) "\303 \"\205\304\nT \"\305\230\207" [xlfd-tight-regexp fontset xlfd-regexp-registry-subnum string-match match-string "fontset"] 3 (#$ . 9794)]) (defalias 'generate-fontset-menu #[nil "\303 \304\211\n\203\n@\nA\305 ! DB\202\306\307\310\"+B\207" [l fontset-name fontsets fontset-list nil fontset-plain-name "Fontset" sort #[(x y) "@ @\231\207" [x y] 2]] 4]) #@49 Return a plain and descriptive name of FONTSET. (defalias 'fontset-plain-name #[(fontset) "\306!\211\204 \307\310\"\210\311!\211\203\312 \nH H \fH H H H\312 !\"#$%!\313\230\204C\202\305\314\"!\315V\203X\316\317 \"#\202\\ \320\321%\"\203n\322\323Q\202~\320\324%\"\203~\322%Q\320\325$\"\203\220\322\326Q\202\303\320\327$\"\203\242\322\330Q\202\303\320\331$\"\203\264\322\332Q\202\303\320\333$\"\203\303\322\334Q.\202\313)\207" [fontset xlfd-fields xlfd-regexp-weight-subnum xlfd-regexp-slant-subnum xlfd-regexp-swidth-subnum xlfd-regexp-pixelsize-subnum query-fontset error "Invalid fontset: %s" x-decompose-font-name nil "fontset" string-to-int 0 format "%s: %s-dot" string-match "^medium$" " " "medium" "^bold$\\|^demibold$" "^i$" "italic" "^o$" "slant" "^ri$" "reverse italic" "^ro$" "reverse slant" xlfd-regexp-registry-subnum xlfd-regexp-encoding-subnum name nickname charset size swidth slant weight] 8 (#$ . 10380)]) #@505 Create a fontset from fontset specification string FONTSET-SPEC. FONTSET-SPEC is a string of the format: FONTSET-NAME,CHARSET-NAME0:FONT-NAME0,CHARSET-NAME1:FONT-NAME1, ... Any number of SPACE, TAB, and NEWLINE can be put before and after commas. Optional 2nd argument is ignored. It exists just for backward compatibility. If this function attempts to create already existing fontset, error is signaled unless the optional 3rd argument NOERROR is non-nil. It returns a name of the created fontset. (defalias 'create-fontset-from-fontset-spec #[(fontset-spec &optional style-variant noerror) "\306\307\"\204\f\310\311\"\210\227\312\225\313\312\"\314\211\211\211\315 !\2033\204\302\310\316 \"\210\202\302\317 !\211\204@\310\320 \"\210\306\321#\203r\312\225\322\313\323\"!\211\2119\205b\324\303N!)\203@ \313\325\"B\nB\202@\326\n\236A\327\f\n\"\330 \n\"\210\306\331 \"\203\251\332 \"\204\251\313\312 \" \333 \"\204\250  BB) \204\262\326\n\236A\333 \"\204\302 BB .\207" [fontset-spec ascii-font fontlist charset xlfd-fields name string-match "^[^,]+" error "Invalid fontset spec: %s" 0 match-string nil query-fontset "Fontset \"%s\" already exists" x-decompose-font-name "Fontset \"%s\" not conforming to XLFD" "[, \n]*\\([^:]+\\):\\([^,]+\\)" intern 1 vectorp 2 ascii x-complement-fontset-spec new-fontset "fontset-.*$" assoc rassoc idx noerror object fontset-alias-alist alias] 7 (#$ . 11390)]) #@450 Create a fontset from an ASCII font FONT. Optional 1st arg RESOLVED-FONT is a resolved name of FONT. If omitted, x-resolve-font-name is called to get the resolved name. At this time, if FONT is not available, error is signaled. Optional 2nd arg FONTSET-NAME is a string to be used in `' fields of a new fontset name. If it is omitted, an appropriate name is generated automatically. It returns a name of the created fontset. (defalias 'create-fontset-from-ascii-font #[(font &optional resolved-font fontset-name) "\227 \203 \227\202\306!\227\307!\307 !\310\211\211\310I\210 \310I\210 \311I\210\203=\227\202N\312\313\fH\fH\fH$ I\210\314 !\315 !\206e\316 \317Q!,\207" [font resolved-font fontset-spec fontset resolved-xlfd xlfd x-resolve-font-name x-decompose-font-name nil "fontset" format "%s_%s_%s" x-compose-font-name query-fontset create-fontset-from-fontset-spec ", ascii:" xlfd-regexp-foundry-subnum xlfd-regexp-family-subnum xlfd-regexp-registry-subnum fontset-name xlfd-regexp-encoding-subnum xlfd-regexp-pixelsize-subnum] 7 (#$ . 12860)]) #@240 String of fontset spec of the standard fontset. You have the biggest chance to display international characters with correct glyphs by using the standard fontset. See the documentation of `create-fontset-from-fontset-spec' for the format. (defvar standard-fontset-spec (purecopy "-*-fixed-medium-r-normal-*-16-*-*-*-*-*-fontset-standard,\n chinese-gb2312:-*-medium-r-normal-*-16-*-gb2312*-*,\n korean-ksc5601:-*-medium-r-normal-*-16-*-ksc5601*-*,\n chinese-cns11643-1:-*-medium-r-normal-*-16-*-cns11643*-1,\n chinese-cns11643-2:-*-medium-r-normal-*-16-*-cns11643*-2,\n chinese-cns11643-3:-*-medium-r-normal-*-16-*-cns11643*-3,\n chinese-cns11643-4:-*-medium-r-normal-*-16-*-cns11643*-4,\n chinese-cns11643-5:-*-medium-r-normal-*-16-*-cns11643*-5,\n chinese-cns11643-6:-*-medium-r-normal-*-16-*-cns11643*-6,\n chinese-cns11643-7:-*-medium-r-normal-*-16-*-cns11643*-7") (#$ . 13981)) (defalias 'create-fontset-from-x-resource #[nil "\302\303\304\305\306 \"\305\307 \"\"\211\205\310\311\312#\210 T\202*\207" [fontset-spec idx 0 nil x-get-resource format "fontset-%d" "Fontset-%d" create-fontset-from-fontset-spec t noerror] 5]) (provide 'fontset)