From: Dave Love Date: Wed, 15 May 2002 18:22:43 +0000 (+0000) Subject: (set-locale-environment): Comment out X-Git-Tag: emacs-pretest-23.0.90~8295^2~1864^2~870 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=38b7e16086c006b0d178b71ad0ad29f57bc5df20;p=emacs.git (set-locale-environment): Comment out set-keyboard-coding-system stuff. --- 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))))