# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 1041624675 0
# Node ID 4ecab4bfe0cd6aa38a31eeb3ef77de11c06037bc
# Parent  24d4032aaa078c521e41d6124717196809880106
(register-char-codings): Don't call
optimize-char-coding-system-table here.
(keyboard-coding-system): Doc fix.  Update :version.

diff -r 24d4032aaa07 -r 4ecab4bfe0cd lisp/international/mule.el
--- 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)