comparison lisp/international/mule-cmds.el @ 88521:44d01a64b846

(set-locale-environment): Comment out set-keyboard-coding-system stuff.

88520:380a8808a7b1

	  ;; we are using single-byte characters,
	  ;; so the display table and terminal coding system are irrelevant.
	  (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)))

	  (setq locale-coding-system
		(car (get-language-info language-name 'coding-priority))))

	(when coding-system

88521:44d01a64b846

	  ;; we are using single-byte characters,
	  ;; so the display table and terminal coding system are irrelevant.
	  (when default-enable-multibyte-characters
	    (set-display-table-and-terminal-coding-system language-name))

;;; 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))))

	(when coding-system