From 6d34f49569a04b3061a91592e0eb92fd610b5a67 Mon Sep 17 00:00:00 2001 From: Dave Love Date: Mon, 18 Dec 2000 17:10:08 +0000 Subject: [PATCH] (set-keyboard-coding-system): Doc fix. (keyboard-coding-system): New option. --- lisp/international/mule.el | 23 ++++++++++++++++++++++- 1 file changed, 22 insertions(+), 1 deletion(-) diff --git a/lisp/international/mule.el b/lisp/international/mule.el index 83774ce4ef4..772a89566df 100644 --- a/lisp/international/mule.el +++ b/lisp/international/mule.el @@ -993,7 +993,8 @@ See also the command `set-keyboard-coding-system'.") (defun set-keyboard-coding-system (coding-system) "Set coding system for keyboard input to CODING-SYSTEM. In addition, this command enables Encoded-kbd minor mode. -\(If CODING-SYSTEM is nil, Encoded-kbd mode is turned off.) +\(If CODING-SYSTEM is nil, Encoded-kbd mode is turned off -- see +`encoded-kbd-mode'.) For a list of possible values of CODING-SYSTEM, use \\[list-coding-systems]. The default is determined by the selected language environment or by the previous use of this command." @@ -1013,6 +1014,26 @@ or by the previous use of this command." (set-keyboard-coding-system-internal coding-system) (encoded-kbd-mode (if coding-system 1 0))) +(defcustom keyboard-coding-system nil + "Specify coding system for keyboard input. +If you set this on a terminal which can't distinguish Meta keys from +8-bit characters, you will have to use ESC to type Meta characters. +See Info node `Specify Coding' and Info node `Single-Byte Character Support'. + +Setting this variable directly does not take effect; +use either M-x customize or \\[set-keyboard-coding-system]." + :type '(coding-system :tag "Coding system") + :link '(info-link "(emacs)Specify Coding") + :link '(info-link "(emacs)Single-Byte Character Support") + :set (lambda (symbol value) + ;; Don't load encoded-kbd-mode unnecessarily. + (if (or value (boundp 'encoded-kbd-mode)) + (set-keyboard-coding-system value) + (set-default 'keyboard-coding-system nil))) ; must initialize + :version "21.1" + :group 'keyboard + :group 'mule) + (defun set-buffer-process-coding-system (decoding encoding) "Set coding systems for the process associated with the current buffer. DECODING is the coding system to be used to decode input from the process, -- 2.11.4.GIT