;ELC ;;; compiled by handa@tsingyi.etl.go.jp on Wed Aug 19 12:40:04 1998 ;;; from file /net/mulelab/export/dist/mule-2.3-19.34/lisp/mule-util.el ;;; emacs version 19.34. ;;; bytecomp version FSF 2.10 ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`mule-util.el' was compiled for Emacs 19.29 or later")) (byte-code "! B # # # # # # # # # # #" [boundp mv-util-version "2.00" current-load-list define-key mule-keymap "t" toggle-mc-flag "f" set-file-coding-system "i" set-keyboard-coding-system "d" set-display-coding-system "p" set-current-process-coding-system "T" toggle-default-mc-flag "F" set-default-file-coding-system "P" set-default-process-coding-system "c" list-coding-system-briefly "C" list-coding-system "r" toggle-display-direction] 4) #@17 Toggle mc-flag. (defalias 'toggle-mc-flag #[nil "?\n`bt " [mc-flag redraw-display] 2 (#$ . 989) nil]) #@25 Toggle default-mc-flag. (defalias 'toggle-default-mc-flag #[nil "?" [default-mc-flag] 2 (#$ . 1108) nil]) #@120 Set default value of file-coding-system to CODING-SYSTEM, which should be a lisp object created by make-coding-system. (defalias 'set-default-file-coding-system #[(coding-system) "\n\" " [set-default file-coding-system coding-system update-mode-lines] 3 (#$ . 1225) "zDefault file-coding-system: "]) #@147 Set default values of input and output coding-system for process to INPUT and OUTPUT, which should be lisp objects created by make-coding-system. (defalias 'set-default-process-coding-system #[(input output) " B " [input output default-process-coding-system update-mode-lines] 2 (#$ . 1537) "zDefault coding-system for process input: \nzDefault coding-system for process output: "]) (defalias 'toggle-display-direction #[nil "?t " [display-direction redraw-display] 1 nil nil]) #@140 Show coding-system of text in the region. With prefix arg, show all possible coding systems. From program, use code-detect-region instead. (defalias 'what-coding-system #[(start end &optional arg) " \n\" 9  @\")" [code-detect-region start end codings message "%s" arg] 3 (#$ . 2033) "r\nP"]) (byte-code " #!B" [define-key help-map "T" help-with-tutorial-for-mule boundp help-with-tutorial-language-alist (("Japanese" . ".jp") ("Korean" . ".kr") ("Thai" . ".th")) current-load-list] 4) #@42 Select the Mule learn-by-doing tutorial. (defalias 'help-with-tutorial-for-mule #[(language) " \n\"A P!" [assoc language help-with-tutorial-language-alist help-with-tutorial "TUTORIAL" ""] 3 (#$ . 2558) (list (let ((completion-ignore-case t) lang) (completing-read "Language: " help-with-tutorial-language-alist)))]) (defalias 'string-to-char-list #[(str) "G‰ W# \" \f!\\\f B\n ," [str 0 nil l c idx len sref char-bytes] 4]) #@236 Delete the text between column FROM and TO (exclusive) of the current line. Nil of FORM or TO means the current column. If there's a charcter across the borders, the character is replaced with the same width of spaces before deleting. (defalias 'delete-text-in-column #[(from to) " # ! V#!\niZ\" \nZu` G ! VG! iZ\" Zu`\n |+" [nil p2 p1 from move-to-column delete-char -1 insert-char 32 to] 5 (#$ . 3021)]) (byte-code "! KM" [fboundp si:find-file find-file] 2) #@176 Edit file FILENAME. Switch to a buffer visiting file FILENAME, creating one if none already exists. A prefix argument enables user to specify the coding-system interactively. (defalias 'find-file #[(filename &optional user-coding-system) " !\f!)\f!" [user-coding-system check-coding-system file-coding-system-for-read si:find-file filename] 2 (#$ . 3538) "FFind file: \nZCoding-system: "]) (byte-code "! KM" [fboundp si:find-alternate-file find-alternate-file] 2) #@285 Find file FILENAME, select its buffer, kill previous buffer. If the current buffer now contains an empty file that you just visited (presumably by mistake), use this command to visit the file you really want. A prefix argument enables user to specify the coding-system interactively. (defalias 'find-alternate-file #[(filename &optional user-coding-system) " !\f!)\f!" [user-coding-system check-coding-system file-coding-system-for-read si:find-alternate-file filename] 2 (#$ . 4028) (let ((file buffer-file-name) (file-name nil) (file-dir nil)) (and file (setq file-name (file-name-nondirectory file) file-dir (file-name-directory file))) (list (read-file-name "Find alternate file: " file-dir nil nil file-name) (if current-prefix-arg (read-coding-system "Coding-system: "))))]) (byte-code "! KM" [fboundp si:find-file-read-only find-file-read-only] 2) #@178 Edit file FILENAME but don't save without confirmation. Like find-file but marks buffer as read-only. A prefix argument enables user to specify the coding-system interactively. (defalias 'find-file-read-only #[(filename &optional user-coding-system) " !\f!)\f!" [user-coding-system check-coding-system file-coding-system-for-read si:find-file-read-only filename] 2 (#$ . 4909) "FFind file read-only: \nZCoding-system: "]) (byte-code "! KM" [fboundp si:find-file-other-window find-file-other-window] 2) #@199 Edit file FILENAME, in another window. May create a new window, or reuse an existing one; see the function display-buffer. A prefix argument enables user to specify the coding-system interactively. (defalias 'find-file-other-window #[(filename &optional user-coding-system) " !\f!)\f!" [user-coding-system check-coding-system file-coding-system-for-read si:find-file-other-window filename] 2 (#$ . 5437) "FFind file in other window: \nZCoding-system: "]) (byte-code "! KM" [fboundp si:find-file-read-only-other-window find-file-read-only-other-window] 2) #@235 Edit file FILENAME in another window but don't allow changes. Like find-file but marks buffer as read-only. May create a new window, or reuse an existing one; A prefix argument enables user to specify the coding-system interactively. (defalias 'find-file-read-only-other-window #[(filename &optional user-coding-system) " !\f!)\f!" [user-coding-system check-coding-system file-coding-system-for-read si:find-file-read-only-other-window filename] 2 (#$ . 6018) "FFind file read-only in other window: \nZCoding-system: "]) (byte-code "! KM" [fboundp si:find-file-other-frame find-file-other-frame] 2) #@199 Edit file FILENAME, in another frame. May create a new frame, or reuse an existing one. See the function `display buffer'. A prefix argument enables user to specify the coding-system interactively. (defalias 'find-file-other-frame #[(filename &optional user-coding-system) " !\f!)\f!" [user-coding-system check-coding-system file-coding-system-for-read si:find-file-other-frame filename] 2 (#$ . 6643) "FFind file in other frame: \nZCoding-system: "]) (byte-code "! KM" [fboundp si:find-file-read-only-other-frame find-file-read-only-other-frame] 2) #@195 Edit file FILENAME in another frame but don't allow changes. Like find-file-other-frame but marks buffer as read-only. A prefix argument enables user to specify the coding-system interactively. (defalias 'find-file-read-only-other-frame #[(filename &optional user-coding-system) " !\f!)\f!" [user-coding-system check-coding-system file-coding-system-for-read si:find-file-read-only-other-frame filename] 2 (#$ . 7219) "FFind file read-only in other frame: \nZCoding-system: "]) (byte-code "! KM" [fboundp si:insert-file insert-file] 2) #@168 Insert contents of file FILENAME into buffer after point. Set mark after the inserted text. A prefix argument enables user to specify the coding-system interactively. (defalias 'insert-file #[(filename &optional user-coding-system) " !\f!)\f!" [user-coding-system check-coding-system file-coding-system-for-read si:insert-file filename] 2 (#$ . 7781) "fInsert file: \nZCoding-system: "]) (byte-code "! B" [boundp file-coding-system-alist (("\\.el$" . *euc-japan*) ("/spool/mail/.*$" . convert-mbox-coding-system)) current-load-list] 2) (defalias 'find-file-coding-system-from-filename #[(filename visit start end) " = ! /\f/\f@@ \")\f@A\fA)\nS\n9L\n!L\n  $S\n!S\n+" [file-coding-system-alist nil code found alist system-type vax-vms case-fold-search file-name-sans-versions filename string-match t fboundp visit start end vectorp] 5]) (defalias 'convert-mbox-coding-system #[(filename visit start end) "\n }ebm?2`u##y`\n  \f$+\n*" [nil buffer-read-only start end code 1 re-search-forward "^From" move 0 code-convert-region *autoconv* *internal*] 5]) #@85 Parse, and bind or evaluate as appropriate, any local variables for current buffer. (defalias 'find-read-file-coding-system-from-file-variables #[nil "dbdZe]##)ȉ \n \f wl8``{\nϔbnH`y`{\f\fX\fG \f!\f\nc\n!\n t!wy\f\f! u!w` wl!x `{!ޘ wup!xw\n\n!l!=\"+c-)" [search-backward "\n\f" 3000 move t case-fold-search search-forward "Local Variables:" nil beg suffix prefixlen prefix continue " " 0 regexp-quote selective-display re-search-forward "[\n ]" 1 looking-at error "Local variables entry is missing the prefix" "^:\n" "Missing colon in local variables entry" str read var val "end" "^:" "\n" "Local variables entry is terminated incorrectly" file-coding-system] 5 (#$ . 8935)]) (byte-code "! KM" [fboundp si:write-file write-file] 2) #@318 Write current buffer into file FILENAME. Makes buffer visit that file, and marks it not modified. If the buffer is already visiting a file, you can specify a directory name as FILENAME, to write a file of the same old name in that directory. A prefix argument enables user to specify the coding-system interactively. (defalias 'write-file #[(filename &optional user-coding-system) "!\f!)!\f!" [user-coding-system check-coding-system file-coding-system si:write-file filename set-file-coding-system] 2 (#$ . 9852) (list (if buffer-file-name (read-file-name "Write file: " nil nil nil nil) (read-file-name "Write file: " (cdr (assq (quote default-directory) (buffer-local-variables))) nil nil (buffer-name))) (if current-prefix-arg (read-coding-system "Coding-system: ")))]) (byte-code "! KM" [fboundp si:append-to-file append-to-file] 2) #@281 Append the contents of the region to the end of file FILENAME. When called from a function, expects three arguments, START, END and FILENAME. START and END are buffer positions saying what text to write. A prefix argument enables user to specify the coding-system interactively. (defalias 'append-to-file #[(start end filename &optional user-coding-system) "!\f #)!\f #" [user-coding-system check-coding-system file-coding-system si:append-to-file start end filename set-file-coding-system] 4 (#$ . 10719) "r\nFAppend to file: \nZCoding-system: "]) (defalias 'default-start-process-hook #[(name buf program &rest args) "\n %" [apply find-process-coding-system buf program nil args] 6]) (defalias 'default-open-network-stream-hook #[(name buf host service) " \n\f$" [find-process-coding-system buf service t host] 5]) (defalias 'default-call-process-hook #[(program buffer start end &rest args) "\n %" [apply find-process-coding-system buffer program nil args] 6]) #@474 Arguments are BUFFER, PROGRAM, SERVICEP, and ARGS. BUFFER is output buffer (or its name) of a process or nil. If SERVICEP is nil, PROGRAM is a path name of a program to be executed by start-process and ARGS is a list of the arguments. If SERVICEP is non-nil, PROGRAM is a name of a service for open-network-stream and ARGS is a list of a host. The return value is a cons of coding-systems for input and output for the process. Please redefine this function as you wish. (defalias 'find-process-coding-system #[(buffer program &optional servicep &rest args) "=\f  !! ;  .@\"3\"\nW\nA:F\nAY\nAP˂YΏY)" [buffer t buffer-name bufferp "" servicep find-service-coding-system program args find-program-coding-system place (nil nil) nil (byte-code " A\n \f %" [apply place buffer program servicep args] 6) ((error default-process-coding-system)) default-process-coding-system] 4 (#$ . 11722)]) (byte-code "" [default-start-process-hook start-process-hook default-open-network-stream-hook open-network-stream-hook default-call-process-hook call-process-hook] 1) (defalias 'strict-string-match #[(regexp string &optional start) " \n #=ĕ\nG=" [string-match regexp string start 0] 4]) (byte-code "! B‡" [boundp program-coding-system-alist nil current-load-list] 2) (defalias 'define-program-coding-system #[(buffer program code) " B\n\f\"!B \" +\nB\fB *" [buffer program key assoc program-coding-system-alist place coding-system-p code] 4]) (defalias 'find-program-coding-system #[(buffer program) "!\n!  @@# @ A\n*" [program-coding-system-alist nil place alist program-coding-system-match buffer program] 5]) (defalias 'program-coding-system-match #[(buffer program patpair) "@A 9 ! J; J\n*\n;C\n \"C ?C ;C \"C !\"*" [patpair ppat bpat boundp string-match buffer strict-string-match program file-name-nondirectory] 4]) (define-program-coding-system nil "rsh" (quote find-process-coding-system-rsh)) (defalias 'find-process-coding-system-rsh #[(buffer rsh &optional servicep host &rest args) "@ AA@šA @A%" [args "-l" "-n" apply find-process-coding-system buffer nil] 6]) (byte-code "\nP#" [define-program-coding-system nil exec-directory "env" find-process-coding-system-env] 4) (defalias 'find-process-coding-system-env #[(buffer env &optional servicep &rest args) "@\nA@\".@Ę.@Ř.@Ƙ.@ǘ_@Ę<@ŘDAAA\n@ƘR@ǘYAA\nA\n@m@ȘpA @A%" [args "-" string-match "=" "-s" "-set" "-u" "-unset" "--" apply find-process-coding-system buffer nil] 6]) (byte-code "! B‡" [boundp service-coding-system-alist nil current-load-list] 2) (defalias 'define-service-coding-system #[(service host code) " B\n\f\"!B \" +\nB\fB *" [service host key assoc service-coding-system-alist place coding-system-p code] 4]) (defalias 'find-service-coding-system #[(service host) "!\n!  @@# @ A\n*" [service-coding-system-alist nil place alist service-coding-system-match service host] 5]) (defalias 'service-coding-system-match #[(service host patpair) "@A! \n=!\n;* ;*\n \"* ?* \"*" [patpair hpat spat service strict-string-match host] 4]) #@55 ʸ STR Βɸʸ֒ (defalias 'mc-normal-form-string #[(str) "\f #7 X1 \fGSW1\f SHW1\f THW1\f I T\f# \n\f #\\ T\nT\nG\fG\nZ\" \n \fGW\f HU \n\f HI\nT\n Tl +\f)" [0 i string-match "\n" str 1 128 32 nil new c make-string 10] 5 (#$ . 15075)]) #@261 Convert coding sytem of the text in the current region from SOURCE to TARGET. Properties post-read-conversion and pre-write-conversion of SOURCE and TARGET are also concerned. On successful conversion, returns the length of converted text, else returns nil. (defalias 'code-convert #[(start end source target) "\n }\f =N ed\"ed\f$< =9\fN9 ed\"deZ*" [nil prog start end target *internal* source post-read-conversion code-convert-region pre-write-conversion] 5 (#$ . 15433) "r\nzSource coding-system: \nzTarget coding-system: "]) #@128 Convert code in STRING from SOURCE code to TARGET code, On successful converion, returns the result string, else returns nil. (defalias 'code-convert-string #[(str source target) "p!Ǝ\fq ced\n $) +" [generate-new-buffer " *code-convert-work*" nil result tempbuf curbuf ((byte-code " \nq\f!" [result buffer-string curbuf kill-buffer tempbuf] 2)) erase-buffer str code-convert source target] 5 (#$ . 16002)]) #@222 Returns non-nil if STR is an element of LIST. Comparison done with string=. The value is actually the tail of LIST whose car is STR. If each element of LIST is not a string, it is converted to string before compalison. (defalias 'string-memq #[(str list) "\n* * @ ! $  A\n*" [nil elm find list char-to-string str] 3 (#$ . 16444)]) #@23 Cancel undo boundary. (defalias 'cancel-undo-boundary #[nil ":@?A" [buffer-undo-list] 2 (#$ . 16813)]) #@17 Compose STRING. (defalias 'compose-string #[(str) " !W\n G \\T\"  \f I W H X U  U Wm I T \\I \\  W  \\I T   I T T+ W  O." [chars-in-string str 2 len make-string 0 buf i 1 j nil ch mc-flag lc-composite 32 127 128 160 5] 5 (#$ . 16934) "sString to be composed: "]) #@19 Decompose STRING. (defalias 'decompose-string #[(str) "G \" W W= H \nU=\f I TT T W H Y Ut T HZ \f I TT@ Z  !\f I TTV@\f HI TTS\fO." [str len make-string 0 buf i j nil k ch lc-composite 160 128 32 char-bytes 1] 5 (#$ . 17317) "sString to be decomposed: "]) #@72 Compose characters in the current region into one composite character. (defalias 'compose-region #[(start end) " {Gf\fU?}b |c W|\nHXE\fUE\fUR\nOc s\fWb\f\\s\fWp\f\\cs\fcT()-" [start end buf len ch nil i mc-flag lc-composite 0 32 127 128 160] 4 (#$ . 17694) "r"]) #@75 De-compose characters in the current region into one composite character. (defalias 'decompose-region #[(start end) " }eb !ĉ#:`Sb`u`{`| !c-" [start end char-to-string lc-composite nil str ch p lc-composite-str search-forward t 1 decompose-string] 4 (#$ . 18041) "r"]) #@69 Return a list of leading-chars in the region between START and END. (defalias 'find-charset-region #[(start end) " }ebĉ  R#MhW: !P C!PB." [start end "[^---" "\\|[-][^-" nil mc-flag lc lclist re-private re-official re-search-forward "]" t 160 char-to-string] 6 (#$ . 18353)]) #@47 Return a list of leading-chars in the string. (defalias 'find-charset-string #[(string) "É  R\f#M•\fSHW< !P D !P B." ["[^---" "\\|[-][^-" 0 nil mc-flag lc lclist idx re-private re-official string-match "]" string 160 char-to-string] 7 (#$ . 18704)]) #@104 Truncate STR to fit in WIDTH columns. Optional non-nil arg START-COLUMN specifies the starting column. (defalias 'truncate-string #[(str width &optional start-column) " ! Gĉ \n \f Y) \f\fY4͂WS  H !\\ !\\ 4\f W \fX H !\\ !\\_  O." [start-column 0 string-width str nil ch to to-prev column from len max-width width "" char-width char-bytes] 7 (#$ . 19029)]) #@74 One arg RE should be a compiled pattern created by 'regexp-word-compile. (defalias 'set-word-regexp #[(pattern) "\n@A\n@@D\nA$\n@A B\n@@ B\nA !)" [nil l pattern define-word-pattern] 3 (#$ . 19485)]) (byte-code "! B‡" [boundp primary-environment nil current-load-list] 2) (defalias 'environmentp #[(sym) " N!" [fboundp sym primary-function] 3]) #@64 Set ENVIRONMENT (e.g. 'japanese, 'chinese) as the primary one. (defalias 'set-primary-environment #[(env) "N\n!!!\"\n )" [env primary-function func fboundp featurep load symbol-name t primary-environment] 3 (#$ . 19865) (list (intern (completing-read "Primary environment (language) ? " obarray (quote environmentp) (quote require-match))))])