;ELC ;;; compiled by handa@tsingyi.etl.go.jp on Wed Aug 19 12:39:46 1998 ;;; from file /net/mulelab/export/dist/mule-2.3-19.34/lisp/mule.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.el' was compiled for Emacs 19.29 or later")) #@50 Version number and name of this version of Mule. (defconst mule-version "2.3 (SUETSUMUHANA)" (#$ . 483)) #@44 Distribution date of this version of Mule. (defconst mule-version-date "1995.7.24" (#$ . 594)) #@63 Return string describing the version of Mule that is running. (defalias 'mule-version #[nil "t\n \"\n #" [message "%s" mule-version format "Mule Version %s of %s" mule-version-date] 4 (#$ . 695) nil]) #@36 Keymap for Mule specific commands. (defvar mule-keymap (make-sparse-keymap) (#$ . 911)) (byte-code " M # #" [mule-prefix mule-keymap define-key ctl-x-map " " esc-map "#" ispell-word] 4) #@177 *non nil means display mnemonics of file-coding-system, keyboard-coding-system, and display-coding-system on mode line. Nil means display only mnemonics of file-coding-system. (defvar mc-verbose-code nil (#$ . -1114)) #@60 Mode-line control for showing multi byte extension status. (defconst mode-line-mc-status (quote ((mc-verbose-code "%Z" "%z") (mc-flag ":" "-"))) (#$ . 1338)) (byte-code "!! ABB\"! M/!+KMM" [make-variable-buffer-local mode-line-mc-status set-default mode-line-format purecopy "" boundp load-source-file-function #[(file path noerror nomessage) "!! \"ʎ q \fω%) !) !) \"AQ@!AB)bb \"*ć" [get-buffer-create generate-new-buffer-name " *load*" buffer t load-in-progress nomessage message "LOADING %s..." file ((kill-buffer buffer)) *autoconv* file-coding-system-for-read insert-file-contents path nil buffer-file-name set-buffer-modified-p eval-buffer assoc after-load-alist hooks eval noninteractive "LOADING %s...done"] 7 "Execute a file of Lisp code named FILE, which is located at PATH.\nFILE is treated as source file and code conversion is done before eval.\nIf optional second arg NOERROR is non-nil,\n report no error if FILE doesn't exist.\nPrint messages at start and end of loading unless\n optional third arg NOMESSAGE is non-nil.\nReturn t if file exists."] fboundp si:load load #[(file &optional noerror nomessage nosuffix) " !\n\"  \n \n%\nGX/\n\n\">?\nD\"OјU  \n$!!) m\n\"ݎqƉ%)\n!!)!)\n%\"&&A\") )\n\"*+" [substitute-in-file-name file filename find-file-name-handler load handler nil path noerror nomessage nosuffix 0 loadablep signal file-error "Cannot open load file" -4 ".elc" si:load fundamental-mode default-major-mode get-buffer-create generate-new-buffer-name " *load*" buffer t load-in-progress message "LOADING %s..." ((kill-buffer buffer)) *autoconv* file-coding-system-for-read insert-file-contents buffer-file-name set-buffer-modified-p eval-buffer assoc after-load-alist hook mapcar eval noninteractive "LOADING %s...done"] 7 "Execute a file of Lisp code named FILE.\nFirst tries FILE with .elc appended, then tries with .el,\n then tries FILE unmodified. Searches directories in load-path.\nIf optional second arg NOERROR is non-nil,\n report no error if FILE doesn't exist.\nPrint messages at start and end of loading unless\n optional third arg NOMESSAGE is non-nil.\nIf optional fourth arg NOSUFFIX is non-nil, don't try adding\n suffixes .elc or .el to the specified name FILE.\nReturn t if file exists."]] 5) #@76 List of buffer local variables protected from 'kill-all-local-variables' . (defconst *protected-local-variables* nil (#$ . 3804)) (defalias 'save-protected-local-variables #[(vlist) " #@\f\" B)A +" [vlist buffer-local-variables nil alist local-values assoc pair] 4]) (defalias 'recover-protected-local-variables #[(alist) "@@@ALA)" [alist nil] 3]) (byte-code "! KM" [fboundp si:kill-all-local-variables kill-all-local-variables] 2) #@209 Eliminate all the buffer-local variable values of the current buffer except for variables in *protected-local-variables* of the current buffer. This buffer will then see the default values of such variables. (defalias 'kill-all-local-variables #[nil " !Î *" [save-protected-local-variables *protected-local-variables* alist ((recover-protected-local-variables alist)) si:kill-all-local-variables] 2 (#$ . 4296)]) #@135 Hook to run when extended self insertion command exits. Should take two arguments START and END corresponding to character position. (defvar self-insert-after-hook nil (#$ . 4721)) (make-variable-buffer-local (quote self-insert-after-hook)) #@117 Return extended leading-char of undefined private character set of BYTES (1 or 2) length and COLUMN (1 or 2) width. (defalias 'undefined-private-character-set #[(bytes column) " U( UI UI I UI U= \nI UI\n \ng\n W`\n!`\nTN\n Wg\n*" [nil lcmax lc bytes 1 column lc-prv11-ext lc-prv12-ext 2 lc-prv21-ext lc-prv22-ext lc-prv3-ext char-registry] 3 (#$ . 4970)]) #@294 Register new private character-set of BYTES/COLUMN/TYPE/GRAPHIC/FINAL/DIRECTION/DOC/REG (see also new-character-set). The leading-char for the character-set is assigned automatically not to conflict with another private sets. It returns the leading-char or nil if no unused leading-char left. (defalias 'new-private-character-set #[(bytes column type graphic final dir doc reg) " \n\" \n  \n& )" [undefined-private-character-set bytes column lc new-character-set type graphic final dir doc reg] 11 (#$ . 5395)]) (byte-code "B\nB\fBBB\nB\fBBBBBBBBBB B\"B$B&B(B*+B+*-.//@@./@A-.-#/A/i+" [lc-ltn1 (1 1 1 1 65 0 "Latin-1" "ISO8859-1") lc-ltn2 (1 1 1 1 66 0 "Latin-2" "ISO8859-2") lc-ltn3 (1 1 1 1 67 0 "Latin-3" "ISO8859-3") lc-ltn4 (1 1 1 1 68 0 "Latin-4" "ISO8859-4") lc-thai (1 1 1 1 84 0 "Thai" "TIS620") lc-grk (1 1 1 1 70 0 "Greek" "ISO8859-7") lc-arb (1 1 1 1 71 1 "Arabic" "ISO8859-6") lc-hbw (1 1 1 1 72 1 "Hebrew" "ISO8859-8") lc-kana (1 1 0 1 73 0 "Japanese Katakana" "JISX0201.1976") lc-roman (1 1 0 0 74 0 "Japanese Roman" "JISX0201.1976") lc-crl (1 1 1 1 76 0 "Cyrillic" "ISO8859-5") lc-ltn5 (1 1 1 1 77 0 "Latin-5" "ISO8859-9") lc-jpold (2 2 2 0 64 0 "Japanese Old" "JISX0208.1978") lc-cn (2 2 2 0 65 0 "Chinese" "GB2312") lc-jp (2 2 2 0 66 0 "Japanese" "JISX0208.\\(1983\\|1990\\)") lc-kr (2 2 2 0 67 0 "Korean" "KSC5601") lc-jp2 (2 2 2 0 68 0 "Japanese Supplement" "JISX0212") lc-cns1 (2 2 2 0 71 0 "CNS Plane1" "CNS11643.1") lc-cns2 (2 2 2 0 72 0 "CNS Plane2" "CNS11643.2") lc-big5-1 (2 2 2 0 48 0 "Big5 Level 1" "Big5") lc-big5-2 (2 2 2 0 49 0 "Big5 Level 2" "Big5") *predefined-character-set* current-load-list nil data lc c apply new-character-set] 23) #@302 Make MNEMONIC as a new category mnemonic with description DOC, and modify category of CHAR so that it contains MNEMONIC. CHAR may be a list of 1-byte codes. (define-category mnemonic char doc) is equal to: (progn (define-category-mnemonic mnemonic doc) (modify-category-entry char mnemonic)) (defalias 'define-category '(macro . #[(mnemonic char doc) "\n E \nEE" [progn define-category-mnemonic mnemonic doc modify-category-entry char] 5 (#$ . 7174)])) #@103 List of predefined categories. Each element is a list of leading-character, mnemonic, and description (defconst *predefined-category* (byte-code "E E\fE EEE\nE EEEEEEE\"E#E&E'E)E" [lc-ltn1 108 "Latin character." lc-ltn2 lc-ltn3 lc-ltn4 lc-ltn5 lc-grk 103 "Greek character." lc-arb 98 "Arabic character." lc-hbw 119 "Hebrew character." lc-kana 107 "Japanese 1-byte Katakana character." lc-roman 114 "Japanese 1-byte Roman character." lc-crl 121 "Cyrillic character." lc-cn 99 "Chinese 2-byte character." lc-jp 106 "Japanese 2-byte character." lc-kr 104 "Hungul 2-byte character." lc-jp2 lc-cns1 116 "Chinese(taiwan) 2-byte character." lc-cns2 lc-big5-1 "Big5 Level 1." lc-big5-2 "Big5 Level 2."] 21) (#$ . 7647)) (byte-code "\"W\n\"\nT\f @ @A@ @8\" @@ @A@\" A$*" [nil l i define-category-mnemonic 97 "Ascii character." 32 127 modify-category-entry *predefined-category* 2] 5) #@75 Regular expression of such characters which can be a word across newline. (defvar word-across-newline "\\(\\cj\\|\\cc\\|\\ct\\)" (#$ . 8631)) (byte-code "!#" [make-variable-buffer-local file-coding-system put permanent-local t] 4) (defalias 'get-code #[(code) "9N" [code coding-system] 3]) (defalias 'get-code-type #[(code) " !H" [get-code code 0] 2]) (defalias 'get-code-mnemonic #[(code) "!!HŇ" [code 45 coding-system-p get-code 1 63] 2]) (defalias 'get-code-document #[(code) " !H" [get-code code 2] 2]) (defalias 'get-code-flags #[(code) " !H" [get-code code 4] 2]) (defalias 'get-code-eol #[(code) "N" [code eol-type] 2]) (defalias 'get-eol-mnemonic #[(code) " !\n‡ !ć =Ƈ =\"ȇ =*ʇˇ" [get-code-eol code 45 vectorp 95 1 46 2 58 3 39 63] 3]) (defalias 'get-base-code #[(code) "\nN9   \n)" [nil sym code coding-system] 3]) #@1858 Register symbol NAME as a coding-system of: TYPE, MNEMONIC, DOC, EOL-TYPE, FLAGS. TYPE is information for encoding or decoding. If it is one of below, nil: no conversion, t: automatic conversion, 0:Internal, 1:Shift-JIS, 2:ISO2022, 3:Big5. the system provides appropriate code conversion facility. If TYPE is 4, appropriate code conversion programs (CCL) should be supplied in FLAGS. MNEMONIC: a character to be displayed on mode-line for this coding-system, DOC: a describing documents for the coding-system, EOL-TYPE (option): specify type of end-of-line, nil: no-conversion, 1: LF, 2: CRLF, 3: CR, t: generate coding-system for each end-of-line type by names NAMEunix, NAMEdos, and NAMEmac FLAGS (option): more precise information about the coding-system, If TYPE is 2 (ISO2022), FLAGS should be a list of: LC-G0, LC-G1, LC-G2, LC-G3: Leading character of charset initially designated to G? graphic set, nil means G? is not designated initially, lc-invalid means G? can never be designated to, if (- leading-char) is specified, it is designated on output, SHORT: non-nil - allow such as "ESC $ B", nil - always "ESC $ ( B", ASCII-EOL: non-nil - designate ASCII to g0 at each end of line on output, ASCII-CNTL: non-nil - designate ASCII to g0 before TAB and SPACE on output, SEVEN: non-nil - use 7-bit environment on output, LOCK-SHIFT: non-nil - use locking-shift (SO/SI) instead of single-shift or designation by escape sequence, USE-ROMAN: non-nil - designate JIS0201-1976-Roman instead of ASCII, USE-OLDJIS: non-nil - designate JIS0208-1976 instead of JIS0208-1983, NO-ISO6429: non-nil - don't use ISO6429's direction specification, If TYPE is 3 (Big5), FLAGS means nothing. If TYPE is 4 (private), FLAGS should be a cons of CCL programs, for encoding and decoding. See documentation of CCL for more detail. (defalias 'make-coding-system #[(name type mnemonic doc &optional eol-type flags) "L\"I\fV$W$%I\f\f;4\f5I\fI=x\"Wnn@IATM\fI*=:@!A!\fI!\fI\f#===#7=2\"!\"!\"!#  #W. H HL H# H\\#T*7\")" [name make-vector 5 nil code 0 type 1 mnemonic 32 127 2 doc "" 3 vec i flags 4 vectorp error "Invalid FLAGS argument for TYPE 4 (CCL)" put coding-system eol-type t vector intern format "%sunix" "%sdos" "%smac" codings "Invalid eol-type %s"] 8 (#$ . 9561)]) #@205 Make the same coding-system as FROM and name it TO. If 'eol-type property of FROM is a vector, coding-systems TOunix, TOdos, or TOmac are generated, and 'eol-type property of TO becomes a vector of them. (defalias 'copy-coding-system #[(from to) "L # N# N# N-#!GU\"!\"!\"!##WHHLH#H\\#T^* #)" [to put coding-system from post-read-conversion pre-write-conversion eol-type vectorp 3 vector intern format "%sunix" "%sdos" "%smac" 0 i codings 1 error "Invalid eol-type %s in %s"] 8 (#$ . 12096)]) (defalias 'set-file-coding-system #[(coding-system &optional force) " !\n5\f! !4Y4X4 4 !4 SH*  " [check-coding-system coding-system force get-code-eol file-coding-system y x 1 3 vectorp update-mode-lines] 4 nil "zFile-coding-system: \nP"]) (defalias 'set-display-coding-system #[(coding-system) " !  t " [check-coding-system coding-system display-coding-system update-mode-lines redraw-display] 2 nil "zDisplay-coding-system: "]) (defalias 'set-current-process-coding-system #[(input output) "p!! !! #) " [get-buffer-process proc error "no process" check-coding-system input output set-process-coding-system update-mode-lines] 5 nil "zCoding-system for process input: \nzCoding-system for process output: "]) (defalias 'set-file-coding-system-for-read #[(coding-system) " ! " [check-coding-system coding-system file-coding-system-for-read] 2 nil "zFile-coding-system-for-read: "]) (byte-code "$%$%ٯ&\" & &(د&\"-./د&د&\"[ &\"د&ٯ& &@ABC&ځ@D\"" [make-coding-system *noconv* nil 61 "No conversion." *autoconv* t 43 "Automatic conversion." *internal* 0 "Internal coding-system used in a buffer." *sjis* 1 83 "Coding-system of Shift-JIS used in Japan." *iso-2022-jp* 2 74 "Coding-system used for communication with mail and news in Japan." lc-ascii lc-invalid short ascii-eol ascii-cntl seven copy-coding-system *junet* *iso-2022-int-1* 73 "ISO-2022-INT-1" lc-kr locking-shift *oldjis* "Coding-system used for old jis terminal." use-roman use-oldjis *ctext* 88 "Coding-system used in X as Compound Text Encoding." lc-ltn1 *iso-8859-1* *euc-japan* 69 "Coding-system of Japanese EUC (Extended Unix Code)." lc-jp lc-kana lc-jp2 *euc-korea* 75 "Coding-system of Korean EUC (Extended Unix Code)." *euc-kr* *iso-2022-kr* 107 "Coding-System used for communication with mail in Korea." lock-shift *korean-mail* *iso-2022-ss2-8* "ISO-2022 coding system using SS2 for 96-charset in 8-bit code." *iso-2022-ss2-7* "ISO-2022 coding system using SS2 for 96-charset in 7-bit code." *iso-2022-lock* 105 "ISO-2022 coding system using Locking-Shift for 96-charset." *big5* 3 66 "Coding-system of BIG5." *big5-eten*] 17) #@66 Cons of default values used to receive from and send to process. (defvar default-process-coding-system (cons *autoconv*unix nil) (#$ . 15136)) #@40 Coding-system used for reading a file. (defvar file-coding-system-for-read *autoconv* (#$ . 15285)) (defalias 'coding-priority< #[(x y) "N\nN \f W *" [x priority y yp xp t] 4]) #@138 Set priority of coding-category according to LIST. LIST is a list of following symbols of coding-category ordered according to priority (defalias 'set-coding-priority #[(arg) "ȯ\" \f F @\f>' @\" @ # @\f>Ҡ A  T \fh\f@_\f@ # T \fA\fK *" [sort *coding-category-internal* *coding-category-sjis* *coding-category-iso-7* *coding-category-iso-8-1* *coding-category-iso-8-2* *coding-category-iso-else* *coding-category-big5* *coding-category-bin* coding-priority< 0 i l arg error "Invalid element in argument: %s" put priority nil set-coding-priority-internal] 10 (#$ . 15489)]) (byte-code "!!\f B! B!& B!3\n B!@\f B!M B!Z B!g B" [set-coding-priority (*coding-category-iso-8-2* *coding-category-sjis* *coding-category-iso-8-1* *coding-category-big5* *coding-category-iso-7* *coding-category-iso-else* *coding-category-bin* *coding-category-internal*) boundp *coding-category-internal* *internal* current-load-list *coding-category-sjis* *sjis* *coding-category-iso-7* *junet* *coding-category-iso-8-1* *ctext* *coding-category-iso-8-2* *euc-japan* *coding-category-iso-else* *iso-2022-ss2-7* *coding-category-big5* *big5* *coding-category-bin* *noconv*] 2) #@70 Return t if file-coding-system is set locally in the current buffer. (defalias 'local-file-coding-system-p #[nil "!\"! =?\n\")" [default-value file-coding-system coding-system set-default temp-value] 4 (#$ . 16781)]) #@68 A hook function to make the file accessible before inserting file. (defvar insert-file-contents-access-hook nil (#$ . 17017)) #@715 A hook function to decide coding-system used for reading. Before reading the file, the function insert-file-contents evaluates the hook with arguments FILENAME and VISIT [same as those given to insert-file-contents]. In this functions, you may refer to the global variable file-coding-system-for-read (See documentation). The return value of this function should be a coding-system (*not* one of the symbols *euc-japan*, ...) used for reading the file or a list. If the return value is a list, insert-file-contents assumes that the function has inserted the file for itself and supresses further reading and just returns this list. The elements of list should be absolute pathname and length of data inserted. (defvar insert-file-contents-pre-hook nil (#$ . 17150)) #@375 A hook function to set file-coding-system of the current buffer. On file-error while reading, insert-file-contents calls it with arguments FILENAME, VISIT [same as those given to insert-file-contents], and a cons (SIGNALED-CONDITIONS . SIGNAL-DATA). Usually this is the case of the file not existing. The error condition propagates to the caller of insert-file-contents. (defvar insert-file-contents-error-hook nil (#$ . 17927)) #@345 A hook function to set file-coding-system of the current buffer. After successful reading, insert-file-contents calls it with arguments FILENAME, VISIT [same as those given to insert-file-contents], and RETURN-VALUE of si:insert-file-contents, which is a list of: coding-system used for reading, absolute pathname, length of data inserted. (defvar insert-file-contents-post-hook nil (#$ . 18366)) (byte-code "! B" [boundp insert-file-contents-set-coding-system-function insert-file-contents-set-coding-system current-load-list] 2) (defalias 'insert-file-contents-set-coding-system #[(coding-system) "\n #!" [coding-system find-new-file-coding-system file-coding-system local-file-coding-system-p set-file-coding-system] 5]) (defalias 'find-new-file-coding-system #[(current-coding local-flag found-coding) "!\n!É \nP /\nN9/\nN\n\n!H==\nP\n \n \nqe\nN9e\nN\n!H=q\n{ !??\n???\n\n   !!\f !\fSH ." [current-coding get-code-eol found-coding nil new-eol new-coding default-eol default-coding found-eol local-eol local-coding coding-system get-code 0 t local-flag vectorp *autoconv*] 8]) (byte-code "! KM" [fboundp si:insert-file-contents insert-file-contents] 2) #@1081 Insert contents of file FILENAME after point. Returns list absolute file name and length of data inserted. If second argument VISIT is non-nil, the buffer's visited filename and last save file modtime are set, and it is marked unmodified. If visiting and the file does not exist, visiting is completed before the error is signaled. The optional third and fourth arguments BEG and END specify what portion of the file to insert. If VISIT is non-nil, BEG and END must be nil. If optional fifth argument REPLACE is non-nil, it means replace the current buffer contents (in the accessible portion) with the file contents. This is better than simply deleting and inserting the whole thing because (1) it preserves some marker positions and (2) it puts less data in the undo list. Code conversion occurs according to the value of file-coding-system-for-read. If current buffer's file-coding-system is nil, it is set to the coding-system which is actually used for reading. See also insert-file-contents-pre-hook, insert-file-contents-error-hook, and insert-file-contents-post-hook. (defalias 'insert-file-contents #[(filename &optional visit beg end replace) "ŏ : O#\n#N N1 !N\fH͎\f``\nA@\\\"+) !\n*" [nil coding-system return-val err (byte-code "  \n\"  \n\" ! :F!6!  \n %)ć" [insert-file-contents-access-hook filename visit insert-file-contents-pre-hook boundp input-coding-system file-coding-system-for-read coding-system coding-system-p message "Invalid coding-system (%s), use *noconv* instead." *noconv* si:insert-file-contents beg end replace return-val] 7) ((file-error (byte-code "\n \n # @ A\"" [insert-file-contents-error-hook filename visit err signal] 4))) insert-file-contents-post-hook filename visit used-coding-system post-read-conversion get-base-code func ((byte-code " !Ç" [visit set-buffer-auto-saved set-buffer-modified-p nil] 2)) buffer-read-only insert-file-contents-set-coding-system-function] 5 (#$ . 19717)]) #@475 A hook function to decide coding system used for writing to file. Before writing, write-region calls it with arguments START, END, FILENAME, APPEND, VISIT and CODING-SYSTEM LOCKNAME [same as those given to write-region]. The return value of this function should be a coding-system or a list. If list, write-region supresses further writing. The elements of list should be a return value of write-region (i.e. list of an absolute pathname and length of data written). (defvar write-region-pre-hook nil (#$ . 21773)) #@184 A hook function called from write-region after writing. Called with arguments START, END, FILENAME, APPEND, VISIT, LOCKNAME, and CODING-SYSTEM [same as those given to write-region] (defvar write-region-post-hook nil (#$ . 22302)) (byte-code "! KM" [fboundp si:write-region write-region] 2) #@1070 Write current region into specified file. When called from a program, takes three arguments: START, END and FILENAME. START and END are buffer positions. Optional fourth argument APPEND if non-nil means append to existing file contents (if any). Optional fifth argument VISIT if t means set last-save-file-modtime of buffer to this file's modtime and mark buffer not modified. If VISIT is a string, it is a second file name; the output goes to FILENAME, but the buffer is marked as visiting VISIT. VISIT is also the file name to lock and unlock for clash detection. If VISIT is neither t nor nil nor a string, that means do not print the "Wrote file" message. Kludgy feature: if START is a string, then that string is written to the file, instead of any buffer contents, and END is ignored. Optional sixth argument CODING-SYSTEM specify the coding-system for writing, and defaults to file-coding-system of the current buffer. If called interactively with prefix arg, user is asked coding-system. See also write-region-pre-hook and write-region-post-hook. (defalias 'write-region #[(start end filename &optional append visit lockname coding-system) " \n \f & :'N4!N\fup! ӎq  \n#\fed\"ed \f =?n %. \n \f &)) \n \f &" [write-region-pre-hook start end filename append visit lockname coding-system output-coding-system file-coding-system pre-write-conversion get-base-code func generate-new-buffer " *temp-write-buffer*" buffer-modified-p modif tempbuf curbuf ((byte-code " !\n\f  !  Ƈ" [kill-buffer tempbuf visit modif set-buffer-auto-saved set-buffer-modified-p nil buffer-file-name set-visited-file-modtime] 2)) erase-buffer insert-buffer-substring si:write-region t write-region-post-hook] 8 (#$ . 22611) "r\nFWrite region to file: \ni\ni\nZCoding-system: "]) #@197 Convert the code of ARGUMENTS passed to the process using input coding-system of CODINGS-SYSTEMS. If you never wants to convert code of arguments, define this function just to return ARGUMENTS. (defalias 'code-convert-process-arguments #[(arguments coding-systems) "\n\"" [mapcar #[(arg) " \n A#\n " [code-convert-string arg *internal* coding-systems] 4] arguments] 3 (#$ . 24508)]) #@490 A hook function to decide coding-systems for calling programs. Before calling programs, call-process and call-process-region call this function with arguments PROGRAM, BUFFER, START, END and ARGS, where START and END are nil when called from call-process. The return value of this function should be a cons of coding-systems for input and output of the program. The input coding-system is also used for converting ARGS. If the value is not cons object, further calling is supressed. (defvar call-process-hook nil (#$ . 24907)) #@679 Call PROGRAM in separate process. Program's input comes from file INFILE (nil means /dev/null). Insert output in BUFFER before point; t means current buffer; nil for BUFFER means discard it; 0 means discard and don't wait. Fourth arg DISPLAY non-nil means redisplay buffer as output is inserted. Remaining arguments are strings passed as command arguments to PROGRAM. This function waits for PROGRAM to terminate; if you quit, the process is killed. The coding-system used for converting ARGS and receiving the output of PROGRAM default to car and cdr of default-process-coding-system, but can be changed by call-process-hook. See also call-process-hook and si:call-process. (defalias 'call-process #[(program &optional infile buffer display &rest args) "\n ĉ &:+\n \n@ \"&)" [call-process-hook apply program buffer nil args default-process-coding-system coding-systems si:call-process infile display code-convert-process-arguments] 11 (#$ . 25447)]) #@874 Send text from START to END to a process running PROGRAM. Delete the text if DELETE is non-nil. Insert output in BUFFER before point; t means current buffer; nil for BUFFER means discard it; 0 means discard and don't wait. Sixth arg DISPLAY non-nil means redisplay buffer as output is inserted. Remaining args are passed to PROGRAM at startup as command args. Returns nil if BUFFER is 0; otherwise waits for PROGRAM to terminate and returns a numeric exit status or a signal description string. If you quit, the process is killed with SIGKILL. The coding-system used for receiving from the PROGRAM defaults to car of default-process-coding-system. The coding-system used for sending the region to the PROGRAM and converting ARGS default to cdr of default-process-coding-system. But these can be changed by call-process-hook. See also call-process-hook and call-process. (defalias 'call-process-region #[(start end program &optional delete buffer display &rest args) "=9!!ʼnGSH=-=1˂2Q!*<!S&U:ڎA%| &,+" [system-type ms-dos getenv "TMP" "TEMP" "/" tem temm make-temp-name 47 92 "" "em" "/tmp/emacs" call-process-hook apply program buffer start end args default-process-coding-system nil status coding-systems temp ((delete-file temp)) output-coding-system write-region nomessage delete call-process display] 9 (#$ . 26438)]) #@403 A hook function to decide coding-systems of process input and output. Before starting process, start-process calls it with arguments NAME, BUFFER, PROGRAM, and ARGS [same as those given to start-process]. The return value of this function should be a cons of coding-systems used while sending and receiving to/from the started process. If the value is not cons object, further calling is supressed. (defvar start-process-hook nil (#$ . 27892)) (byte-code "=\nM" [system-type ms-dos start-process #[(name buf program &rest args) "\n \f %:)\n @A\f \"&)" [start-process-hook apply name buf program args default-process-coding-system coding-systems si:start-process code-convert-process-arguments] 11 "Start a program in a subprocess. Return the process object for it.\nArgs are NAME BUFFER PROGRAM &rest PROGRAM-ARGS.\nNAME is name for process. It is modified if necessary to make it unique.\nBUFFER is the buffer or (buffer-name) to associate with the process.\n Process output goes at end of that buffer, unless you specify\n an output stream or filter function to handle the output.\n BUFFER may be also nil, meaning that this process is not associated\n with any buffer.\nThird arg is program file name. It is searched for as in the shell.\nRemaining arguments are strings to give program as arguments.\nThe coding-system used for sending and receiving to/from the process are\n the value of default-process-coding-system, but can be changed by\n start-process-hook.\nSee also start-process-hook and si:start-process."]] 2) #@430 A hook function to decide coding-systems of input and output for service. Before starting service, open-network-stream calls this function with arguments NAME, BUFFER, PROGRAM, and ARGS [same as those given to open-network-stream]. The return value of this function should be a cons of coding-systems used while sending and receiving to/from the network service. If the value is not cons object, further calling is supressed. (defvar open-network-stream-hook nil (#$ . 29466)) #@942 Open a TCP connection for a service to a host. Returns a subprocess-object to represent the connection. Input and output work as for subprocesses; `delete-process' closes it. Args are NAME BUFFER HOST SERVICE. NAME is name for process. It is modified if necessary to make it unique. BUFFER is the buffer (or buffer-name) to associate with the process. Process output goes at end of that buffer, unless you specify an output stream or filter function to handle the output. BUFFER may be also nil, meaning that this process is not associated with any buffer Third arg is name of the host to connect to. Fourth arg SERVICE is name of the service desired, or an integer specifying a port number to connect to. The coding system used for sending and receiving to/from the SERVICE are the value of default-process-coding-system, but can be changed by open-network-stream-hook. See also open-network-stream-hook and si:open-network-stream. (defalias 'open-network-stream #[(name buf host service) "  \n \f$ :\" \n \f@A&)" [open-network-stream-hook name buf host service default-process-coding-system coding-systems si:open-network-stream] 8 (#$ . 29953)]) (provide (quote mule))