Mercurial > emacs

changeset 88521:44d01a64b846

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(set-locale-environment): Comment out set-keyboard-coding-system stuff.
author Dave Love <fx@gnu.org>
date Wed, 15 May 2002 18:20:19 +0000
parents 380a8808a7b1
children 70be82a4ecdf
files lisp/international/mule-cmds.el
diffstat 1 files changed, 8 insertions(+), 6 deletions(-) [+]
line wrap: on
line diff
--- 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))))