| Current File : //usr/share/emacs/24.3/lisp/international/mule-util.elc |
;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:09:11 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/international/mule-util.el
;;; in Emacs version 24.3.1
;;; with all optimizations.
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
#@40 Return a list of characters in STRING.
(defalias 'string-to-list #[(string) "\301\302\"\207" [string append nil] 3 (#$ . 566)])
(put 'string-to-list 'byte-optimizer 'byte-compile-inline-expand)
#@42 Return a vector of characters in STRING.
(defalias 'string-to-vector #[(string) "\301!\207" [string vconcat] 2 (#$ . 767)])
(put 'string-to-vector 'byte-optimizer 'byte-compile-inline-expand)
#@57 Embed OBJ (string or character) at index IDX of STRING.
(defalias 'store-substring #[(string idx obj) "\250\203
\nI\210\202, G G\306
W\203+ \n \\ HI\210 T\211\202 + \207" [obj string idx i len2 len1 0] 5 (#$ . 966)])
#@1124 Truncate string STR to end at column END-COLUMN.
The optional 3rd arg START-COLUMN, if non-nil, specifies the starting
column; that means to return the characters occupying columns
START-COLUMN ... END-COLUMN of STR. Both END-COLUMN and START-COLUMN
are specified in terms of character display width in the current
buffer; see also `char-width'.
The optional 4th arg PADDING, if non-nil, specifies a padding
character (which should have a display width of 1) to add at the end
of the result if STR doesn't reach column END-COLUMN, or if END-COLUMN
comes in the middle of a character in STR. PADDING is also added at
the beginning of the result if column START-COLUMN appears in the
middle of a character in STR.
If PADDING is nil, no padding is added in these cases, so
the resulting string may be narrower than END-COLUMN.
If ELLIPSIS is non-nil, it should be a string which will replace the
end of STR (including any padding) if it extends beyond END-COLUMN,
unless the display width of STR is equal to or less than the display
width of ELLIPSIS. If it is non-nil and not a string, then ELLIPSIS
defaults to "...".
(defalias 'truncate-string-to-width #[(str end-column &optional start-column padding ellipsis) "\204 \306 \203 ;\204 \307\nG\310\n! \203 G\202 \306 \203* \310 !\202+ \306\306\211\311\211\312\211\211\211 \312\313\314\217\210W\203f \203b \315\"\202\331 \311\202\331 \203| V\203| \315Z\"Y\203\316 W\203\241 V\203\241 Z\202\243 \311\312\316\317\217\210V\203\266
\f\203\316 W\203\316 \315Z\"\n O R.\f\207" [start-column ellipsis str from-idx last-idx last-column 0 "..." string-width "" nil (byte-code " W\203 \n H\305\f!\\ T\202 \305\207" [column start-column str idx ch char-width] 3) ((args-out-of-range (byte-code "\302\207" [str-len idx nil] 1))) make-string (byte-code " W\203
H\306!\\ T\202 \306\207" [column end-column last-column idx last-idx str char-width ch] 3) ((args-out-of-range (byte-code "\302\207" [str-len idx nil] 1))) ch tail-padding head-padding column idx ellipsis-width ellipsis-len str-width str-len padding end-column] 12 (#$ . 1204)])
#@380 Return t if OBJ is a nested alist.
Nested alist is a list of the form (ENTRY . BRANCHES), where ENTRY is
any Lisp object, and BRANCHES is a list of cons cells of the form
(KEY-ELEMENT . NESTED-ALIST).
You can use a nested alist to store any Lisp object (ENTRY) for a key
sequence KEYSEQ, where KEYSEQ is a sequence of KEY-ELEMENT. KEYSEQ
can be a string, a vector, or a list.
(defalias 'nested-alist-p #[(obj) "\205\f <\205\f A<\207" [obj] 1 (#$ . 3420)])
(put 'nested-alist-p 'byte-optimizer 'byte-compile-inline-expand)
#@278 Set ENTRY for KEYSEQ in a nested alist ALIST.
Optional 4th arg LEN non-nil means the first LEN elements in KEYSEQ
are considered.
Optional 5th argument BRANCHES if non-nil is branches for a keyseq
longer than KEYSEQ.
See the documentation of `nested-alist-p' for more detail.
(defalias 'set-nested-alist #[(keyseq entry alist &optional len branches) "\211\205 <\205 A<)\204 \306\307\"\210\n< \206 \nG\310\311\211 W\203z \211\205> <\205> A<)\204G \306\312\n\"\210\203S \n8\202W \nH\313
A\"\211\204n
\314CB\fAB\241\210\fAT\211\202+ \240\210\205\212 \315!\241-\207" [alist obj keyseq len slot key-elt error "Invalid argument %s" 0 nil "Keyseq %s is too long for this nested alist" assoc t last i islist entry branches] 6 (#$ . 3955)])
#@532 Look up key sequence KEYSEQ in nested alist ALIST. Return the definition.
Optional 3rd argument LEN specifies the length of KEYSEQ.
Optional 4th argument START specifies index of the starting key.
The returned value is normally a nested alist of which
car part is the entry for KEYSEQ.
If ALIST is not deep enough for KEYSEQ, return number which is
how many key elements at the front of KEYSEQ it takes
to reach a leaf in ALIST.
Optional 5th argument NIL-FOR-TOO-LONG non-nil means return nil
even if ALIST is not deep enough.
(defalias 'lookup-nested-alist #[(keyseq alist &optional len start nil-for-too-long) "\211\205 <\205 A<)\204 \306\307\"\210\n\204 G\f\206# \310 \311\312\215\2034 ?\2055
\2025 )\207" [alist obj len keyseq start i error "Invalid argument %s" 0 lookup-nested-alist-tag (byte-code "<\203' \nW\203' \304 8 A\"A\211\203 T\211\202 \305\306\307\"\210\202 \nW\205I \304 H A\"A\211\203A T\211\202( \305\306\307\"\210\202' \207" [keyseq i len alist assoc throw lookup-nested-alist-tag t] 4) nil-for-too-long] 4 (#$ . 4743)])
#@70 Return the value of CODING-SYSTEM's `post-read-conversion' property.
(defalias 'coding-system-post-read-conversion #[(coding-system) "\301\302\"\207" [coding-system coding-system-get :post-read-conversion] 3 (#$ . 5823)])
#@70 Return the value of CODING-SYSTEM's `pre-write-conversion' property.
(defalias 'coding-system-pre-write-conversion #[(coding-system) "\301\302\"\207" [coding-system coding-system-get :pre-write-conversion] 3 (#$ . 6052)])
#@74 Return the value of CODING-SYSTEM's `decode-translation-table' property.
(defalias 'coding-system-translation-table-for-decode #[(coding-system) "\301\302\"\207" [coding-system coding-system-get :decode-translation-table] 3 (#$ . 6281)])
#@74 Return the value of CODING-SYSTEM's `encode-translation-table' property.
(defalias 'coding-system-translation-table-for-encode #[(coding-system) "\301\302\"\207" [coding-system coding-system-get :encode-translation-table] 3 (#$ . 6526)])
#@279 Execute BODY like `progn' with CODING-SYSTEMS at the front of priority list.
CODING-SYSTEMS is a list of coding systems. See `set-coding-system-priority'.
This affects the implicit sorting of lists of coding systems returned by
operations such as `find-coding-systems-region'.
(defalias 'with-coding-priority '(macro . #[(coding-systems &rest body) "\303\304!\305\306BC\307\310 E\311\312\nB\307\313EEF)\207" [current coding-systems body make-symbol "current" let ((coding-system-priority-list)) apply #'set-coding-system-priority unwind-protect progn #'set-coding-system-priority] 8 (#$ . 6772)]))
(put 'with-coding-priority 'edebug-form-spec t)
#@180 Detect a coding system of the text between FROM and TO with PRIORITY-LIST.
PRIORITY-LIST is an alist of coding categories vs the corresponding
coding systems ordered by priority.
(defalias 'detect-coding-with-priority '(macro . #[(from to priority-list) "\303\304\305E\306 \nEE\207" [priority-list from to with-coding-priority mapcar #'cdr detect-coding-region] 5 (#$ . 7429)]))
(make-obsolete 'detect-coding-with-priority 'with-coding-priority "23.1")
#@173 Detect a coding system for the text between FROM and TO with LANG-ENV.
The detection takes into account the coding system priorities for the
language environment LANG-ENV.
(defalias 'detect-coding-with-language-environment #[(from to lang-env) "\305\301\"\211\205 \306 \307\310 \"\210\311\216\312 \f\"*)\207" [lang-env coding-priority #1=#:current from to get-language-info coding-system-priority-list apply set-coding-system-priority ((byte-code "\301\302\"\207" [#1# apply set-coding-system-priority] 3)) detect-coding-region] 4 (#$ . 7890)])
#@287 Return non-nil if we should be able to display CHAR.
On a multi-font display, the test is only whether there is an
appropriate font from the selected frame's fontset to display
CHAR's charset in general. Since fonts may be specified on a
per-character basis, this may not be accurate.
(defalias 'char-displayable-p #[(char) "\304W\203 \305\207 \204 \306\207\307 \203 \310\306\"@\207\311 \211\205F \312\n\313\"\211<\2030 \314\315\215\202E \316=\203< \317\320\215\202E \321=\205E \322\323\215))\207" [char enable-multibyte-characters coding cs-list 128 t nil display-multi-font-p internal-char-font terminal-coding-system coding-system-get :charset-list tag (byte-code "\301\302\"\210\303\207" [cs-list mapc #[(charset) "\302 \"\205 \303\304 \"\207" [char charset encode-char throw tag] 3] nil] 3) iso-2022 tag2 (byte-code "\301\302\"\210\303\207" [charset-list mapc #[(charset) "\302\303!\304\"\205 \305 \"\205 \306\307\"\207" [charset char plist-get charset-plist :iso-final-char encode-char throw tag2] 3] nil] 3) emacs-mule tag3 (byte-code "\301\302\"\210\303\207" [charset-list mapc #[(charset) "\302\303!\304\"\205 \305 \"\205 \306\307\"\207" [charset char plist-get charset-plist :emacs-mule-id encode-char throw tag3] 3] nil] 3)] 4 (#$ . 8447)])
(provide 'mule-util)