# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 996573032 0
# Node ID 2be878396f1e2083cdcef39625470414803f1f25
# Parent  68bace53ad8f46811bb716bc89a79c69e91fdd89
(set-keyboard-coding-system): Set
keyboard-coding-system.

diff -r 68bace53ad8f -r 2be878396f1e lisp/international/mule.el
--- a/lisp/international/mule.el	Tue Jul 31 08:44:21 2001 +0000
+++ b/lisp/international/mule.el	Tue Jul 31 09:50:32 2001 +0000
@@ -1136,6 +1136,7 @@
   (if coding-system
       (setq default-keyboard-coding-system coding-system))
   (set-keyboard-coding-system-internal coding-system)
+  (setq keyboard-coding-system coding-system)
   (encoded-kbd-mode (if coding-system 1 0)))
 
 (defcustom keyboard-coding-system nil