changeset 49026:4ecab4bfe0cd

(register-char-codings): Don't call optimize-char-coding-system-table here. (keyboard-coding-system): Doc fix. Update :version.
author Dave Love <fx@gnu.org>
date Fri, 03 Jan 2003 20:11:15 +0000
parents 24d4032aaa07
children 5634505237fa
files lisp/international/mule.el
diffstat 1 files changed, 7 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/international/mule.el	Fri Jan 03 20:04:48 2003 +0000
+++ b/lisp/international/mule.el	Fri Jan 03 20:11:15 2003 +0000
@@ -663,7 +663,10 @@
 			       (generic-char-p key))
 		     (push charset partials)))))))
        safe-chars)
-      (optimize-char-coding-system-table)
+      ;; This is probably too expensive (e.g. multiple calls in
+      ;; ucs-tables), and only really relevant in certain cases, so do
+      ;; it explicitly where appropriate.
+      ;; (optimize-char-coding-system-table)
       (set-char-table-extra-slot char-coding-system-table 1 partials))))
 
 (defun make-subsidiary-coding-system (coding-system)
@@ -1295,6 +1298,8 @@
 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'.
 
+On non-windowing terminals, this is set from the locale by default.
+
 Setting this variable directly does not take effect;
 use either M-x customize or \\[set-keyboard-coding-system]."
   :type '(coding-system :tag "Coding system")
@@ -1305,7 +1310,7 @@
 	 (if (or value (boundp 'encoded-kbd-mode))
 	     (set-keyboard-coding-system value)
 	   (set-default 'keyboard-coding-system nil))) ; must initialize
-  :version "21.1"
+  :version "21.4"
   :group 'keyboard
   :group 'mule)