From df100398203950b6939c11a5abee0b3f05adb4ff Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Wed, 28 May 1997 03:35:33 +0000 Subject: [PATCH] (set-terminal-coding-system): New function. (set-keyboard-coding-system): New function. (set-buffer-process-coding-system): Name changed from set-current-process-coding-system. --- lisp/international/mule.el | 30 +++++++++++++++++++++++++----- 1 file changed, 25 insertions(+), 5 deletions(-) diff --git a/lisp/international/mule.el b/lisp/international/mule.el index 9dd3f033432..fa56bd84b52 100644 --- a/lisp/international/mule.el +++ b/lisp/international/mule.el @@ -440,15 +440,35 @@ Optional prefix argument FORCE non-nil means CODING-SYSTEM is set (set-buffer-modified-p t) (force-mode-line-update)) -(defun set-current-process-coding-system (input output) +(defun set-terminal-coding-system (coding-system) + "Set coding system of your terminal to CODING-SYSTEM. +All outputs to terminal are encoded by the specified coding system." + (interactive "zCoding-system for terminal display: ") + (set-terminal-coding-system-internal coding-system) + (redraw-frame (selected-frame))) + +(defun set-keyboard-coding-system (coding-system) + "Set coding system of codes sent from terminal keyboard to CODING-SYSTEM. +In addition, this command toggles Encoded-kbd minor mode. +If the specified coding system is nil, Encoded-bkd mode is turned off, +else it is turned on so that user inputs are decoded by the +specified coding system." + (interactive "zCoding-system for keyboard input: ") + (set-keyboard-coding-system-internal coding-system) + (encoded-kbd-mode (if coding-system 1 0))) + +(defun set-buffer-process-coding-system (decoding encoding) + "Set coding systems to the process associated with the current buffer. +DECODING is the coding system to be used to decode input from the process, +ENCODING is to be used to encode output to the process." (interactive "zCoding-system for process input: \nzCoding-system for process output: ") (let ((proc (get-buffer-process (current-buffer)))) (if (null proc) (error "no process") - (check-coding-system input) - (check-coding-system output) - (set-process-coding-system proc input output))) + (check-coding-system decoding) + (check-coding-system encoding) + (set-process-coding-system proc decoding encoding))) (force-mode-line-update)) (defvar default-process-coding-system (cons nil nil) @@ -501,7 +521,7 @@ LIST is a list of coding-categories ordered by priority." "Return a coding system for a buffer when a file of CODING is inserted. The local variable `buffer-file-coding-system' of the current buffer is set to the returned value. - Return nil if there's no need of setting new buffer-file-coding-system." +Return nil if there's no need of setting new buffer-file-coding-system." (let (local-coding local-eol found-eol new-coding new-eol) -- 2.39.5