# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 1021486819 0
# Node ID 44d01a64b84623c1f93fadaf7e0fc27dbb101962
# Parent  380a8808a7b16a1a1ab92a2068a6dc5fc76ad470
(set-locale-environment): Comment out
set-keyboard-coding-system stuff.

diff -r 380a8808a7b1 -r 44d01a64b846 lisp/international/mule-cmds.el
--- a/lisp/international/mule-cmds.el	Tue May 14 23:28:34 2002 +0000
+++ b/lisp/international/mule-cmds.el	Wed May 15 18:20:19 2002 +0000
@@ -1954,12 +1954,14 @@
 	  (when default-enable-multibyte-characters
 	    (set-display-table-and-terminal-coding-system language-name))
 
-	  ;; Set the `keyboard-coding-system' if appropriate.
-	  (let ((kcs (or coding-system
-			 (car (get-language-info language-name
-						 'coding-system)))))
-	    (if (memq kcs standard-keyboard-coding-systems)
-		(set-keyboard-coding-system kcs)))
+;;; encoded-kbd-mode doesn't work properly at present, and i don't
+;;; think this is the right thing to do anyhow.  -- fx
+;;; 	  ;; Set the `keyboard-coding-system' if appropriate.
+;;; 	  (let ((kcs (or coding-system
+;;; 			 (car (get-language-info language-name
+;;; 						 'coding-system)))))
+;;; 	    (if (memq kcs standard-keyboard-coding-systems)
+;;; 		(set-keyboard-coding-system kcs)))
 
 	  (setq locale-coding-system
 		(car (get-language-info language-name 'coding-priority))))