From 38b7e16086c006b0d178b71ad0ad29f57bc5df20 Mon Sep 17 00:00:00 2001 From: Dave Love Date: Wed, 15 May 2002 18:22:43 +0000 Subject: [PATCH] (set-locale-environment): Comment out set-keyboard-coding-system stuff. --- lisp/ChangeLog | 5 +++++ lisp/international/mule-cmds.el | 14 ++++++++------ 2 files changed, 13 insertions(+), 6 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 33ad463b623..433786a1c83 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2002-05-15 Dave Love + + * international/mule-cmds.el (set-locale-environment): Comment out + set-keyboard-coding-system stuff. + 2002-05-14 Kenichi Handa * international/mule.el (define-coding-system): Docstring diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el index dde728f419d..f8ab55fc2bf 100644 --- 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)))) -- 2.39.2