(set-locale-environment): Comment out

set-keyboard-coding-system stuff.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 33ad463b6238a647685dd225dadca3ebaea4cb41..433786a1c835041dfc129b63945f3cdec973d7f9 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2002-05-15  Dave Love  <fx@gnu.org>
+
+       * international/mule-cmds.el (set-locale-environment): Comment out
+       set-keyboard-coding-system stuff.
+
 2002-05-14  Kenichi Handa  <handa@etl.go.jp>
 
        * international/mule.el (define-coding-system): Docstring

diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el
index dde728f419dda4796cf5a517736aa3490f7c41a1..f8ab55fc2bfb6e85391ba3e60c6a3889d6e946ad 100644 (file)
--- a/lisp/international/mule-cmds.el
+++ b/lisp/international/mule-cmds.el
@@ -1954,12 +1954,14 @@ See also `locale-charset-language-names', `locale-language-names',
          (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))))