;ELC ;;; compiled by nk@localhost.localdomain on Fri Dec 1 22:48:58 2006 ;;; from file /home/nk/pkg-build/test/mule-packages/mule-base/mule-util.el ;;; emacs version 21.4 (patch 19) "Constant Variable" XEmacs Lucid. ;;; bytecomp version 2.27 XEmacs; 2000-09-12. ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 19. (if (and (boundp 'emacs-version) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "20"))) (error "`mule-util.el' was compiled for Emacs 20")) (or (boundp 'current-load-list) (setq current-load-list nil)) #@57 Embed OBJ (string or character) at index IDX of STRING. (defalias 'store-substring #[(string idx obj) " ! \n I G G W \n \\ HI Tm+ " [len2 len1 idx string obj i characterp 0] 5 (#$ . 604)]) #@657 Truncate string STR to end at column END-COLUMN. The optional 2nd arg START-COLUMN, if non-nil, specifies the starting column; that means to return the characters occupying columns START-COLUMN ... END-COLUMN of STR. The optional 3rd arg PADDING, if non-nil, specifies a padding character 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. (defalias 'truncate-string-to-width #[(str end-column &optional start-column padding) " \nGƉljȉʏ W  \"Ǫ V Z \"  W͏ V W Z \"\n O \nQ\n. " [end-column idx str start-column padding column 0 "" nil (byte-code " W H \n!\\ TlŇ" [str start-column ch idx column char-width] 3) ((args-out-of-range (byte-code " ‡" [idx len nil] 1))) make-string (byte-code " \nW   H !\\ TgƇ" [last-idx last-column end-column ch idx column char-width str] 3) ((args-out-of-range (byte-code " ‡" [idx len nil] 1))) from-idx tail-padding head-padding last-idx last-column ch len] 9 (#$ . 819)]) (byte-code "\"\"" [defalias truncate-string truncate-string-to-width make-obsolete] 3) #@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) "<A<" [obj] 1 (#$ . 2264)]) #@273 Set ENTRY for KEYSEQ in a nested alist ALIST. Optional 4th arg LEN non-nil means the first LEN elements in KEYSEQ is considered. Optional 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) " ! \" < Gʉ W ! \" 8 H A\" CB \n AB\nA TG  A \" -" [len key-elt slot i keyseq alist nested-alist-p error "Invalid argument %s" 0 nil "Keyseq %s is too long for this nested alist" assoc t "Can't set branches for keyseq %s" islist branches entry] 6 (#$ . 2720)]) #@532 Look up key sequence KEYSEQ in nested alist ALIST. Return the definition. Optional 1st argument LEN specifies the length of KEYSEQ. Optional 2nd 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 3rd 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) " ! \" \nG ˍ? )" [nil-for-too-long start keyseq i len alist nested-alist-p error "invalid argument %s" 0 lookup-nested-alist-tag (byte-code " < W 8\nA\"A Tj\"b W H\nA\"A Tj\"b" [len keyseq alist i assoc throw lookup-nested-alist-tag t] 4)] 3 (#$ . 3401)]) (byte-code " \" \"*\nB!\"\nB!\"\nB!\"\nB!\"Ç" [oldfun newfun current-load-list set-coding-system-alist modify-coding-system-alist define-function make-obsolete eol-mnemonic-undecided default-boundp set-default ":" eol-mnemonic-lf "(LF)" eol-mnemonic-crlf "(CRLF)" eol-mnemonic-cr "(CR)"] 3) #@67 Return the string indicating end-of-line format of CODING-SYSTEM. (defalias 'coding-system-eol-type-mnemonic #[(coding-system) "! \"!J;\n\n!*" [coding-system eol-type val coding-system-eol-type intern format "eol-mnemonic-%s" "undecided" char-to-string] 5 (#$ . 4682)]) #@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 #[(from to priority-list) " \n\"Ɏʉ @@ s @ A\" @ B Ae !\"." [priority-list orig-category-systems orig-category-list prio-list categories x coding-priority-list mapcar coding-category-system ((byte-code " ! @@\" AAn‡" [orig-category-systems orig-category-list set-coding-priority-list set-coding-category-system] 3)) nil set-coding-category-system set-coding-priority-list detect-coding-region from to] 4 (#$ . 4976)]) (byte-code "Ns\"#" [detect-coding-with-priority byte-optimizer (nil byte-compile-inline-expand) error "%s already has a byte-optimizer, can't make it inline" put byte-compile-inline-expand] 4) #@172 Detect a coding system of 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) "\" \n\" \"ˎ̉ @@ s @ A\" @ B Ae ! \n\". \n\")" [coding-priority prio-list to from categories x get-language-info mapcar #[(x) "!B" [x coding-system-category] 2] coding-priority-list coding-category-system ((byte-code " ! @@\" AAn‡" [orig-category-systems orig-category-list set-coding-priority-list set-coding-category-system] 3)) nil set-coding-category-system set-coding-priority-list detect-coding-region priority-list orig-category-list lang-env orig-category-systems] 6 (#$ . 5872)])