comparison lisp/international/mule-cmds.el @ 83125:b545019c77b0

Add kludge to prevent overriding keyboard-coding-system customization. lisp/international/mule-cmds.el (set-locale-environment): Don't set keyboard-coding-system if it is already set (reported by Friedrich Delgado Friedrichs). git-archimport-id: [e-mail]--2004/emacs--multi-tty--0--patch-165

83124:d153d9579f9b

	    (set-display-table-and-terminal-coding-system language-name))

	  ;; Set the `keyboard-coding-system' if appropriate (tty
	  ;; only).  At least X and MS Windows can generate
	  ;; multilingual input.
	  (unless window-system
	    (let ((kcs (or coding-system
			   (car (get-language-info language-name
						   'coding-system)))))
	      (if kcs (set-keyboard-coding-system kcs))))

83125:b545019c77b0

	    (set-display-table-and-terminal-coding-system language-name))

	  ;; Set the `keyboard-coding-system' if appropriate (tty
	  ;; only).  At least X and MS Windows can generate
	  ;; multilingual input.
	  (unless (or window-system
		      keyboard-coding-system)
	    ;; FIXME: keyboard-coding-system must be removed from the above
	    ;; condition when multi-tty locale handling is correctly
	    ;; implemented.  Also, unconditionally overriding it with nil
	    ;; is not a good idea, as it ignores the user's
	    ;; customization. -- lorentey
	    (let ((kcs (or coding-system
			   (car (get-language-info language-name
						   'coding-system)))))
	      (if kcs (set-keyboard-coding-system kcs))))