emacs-pretest-bug
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: default value of terminal-coding-system


From: Kenichi Handa
Subject: Re: default value of terminal-coding-system
Date: Sat, 26 Mar 2005 09:48:05 +0900 (JST)
User-agent: SEMI/1.14.3 (Ushinoya) FLIM/1.14.2 (Yagi-Nishiguchi) APEL/10.2 Emacs/22.0.50 (sparc-sun-solaris2.6) MULE/5.0 (SAKAKI)

In article <address@hidden>, Stefan <address@hidden> writes:

>>  So, which terminal-coding-system should we set by default when LANG is
>>  de_DE.UTF-8(en_US.UTF-8), iso-latin-1 or utf-8?

> At least on reasonably recent xterms, it needs to be utf-8.
> On older xterms, I'd expect people don't use a utf-8 locale anyway.
> How 'bout the patch below?

I agree with that change, and thank you for installing it.
It should fix the problem I introduced with my previous
change.

---
Ken'ichi HANDA
address@hidden

> Index: mule-cmds.el
> ===================================================================
> RCS file: /cvsroot/emacs/emacs/lisp/international/mule-cmds.el,v
> retrieving revision 1.266
> diff -u -u -b -r1.266 mule-cmds.el
> --- mule-cmds.el      15 Mar 2005 02:32:23 -0000      1.266
> +++ mule-cmds.el      24 Mar 2005 16:56:59 -0000
> @@ -1734,7 +1734,7 @@
 
>  (reset-language-environment)
 
> -(defun set-display-table-and-terminal-coding-system (language-name)
> +(defun set-display-table-and-terminal-coding-system (language-name 
> coding-system)
>    "Set up the display table and terminal coding system for LANGUAGE-NAME."
>    (let ((coding (get-language-info language-name 'unibyte-display)))
>      (if coding
> @@ -1748,7 +1748,7 @@
>       (dotimes (i 128)
>         (aset standard-display-table (+ i 128) nil))))
>      (or (eq window-system 'pc)
> -     (set-terminal-coding-system coding))))
> +     (set-terminal-coding-system (or coding-system coding)))))
 
>  (defun set-language-environment (language-name)
>    "Set up multi-lingual environment for using LANGUAGE-NAME.
> @@ -1830,7 +1830,7 @@
>           (with-current-buffer (car list)
>             (set-case-table (standard-case-table)))
>           (setq list (cdr list))))))
> -    (set-display-table-and-terminal-coding-system language-name))
> +    (set-display-table-and-terminal-coding-system language-name nil))
 
>    (let ((required-features (get-language-info language-name 'features)))
>      (while required-features
> @@ -2446,7 +2446,8 @@
>         ;; 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-display-table-and-terminal-coding-system
> +          language-name coding-system))
 
>         ;; Set the `keyboard-coding-system' if appropriate (tty
>         ;; only).  At least X and MS Windows can generate


> _______________________________________________
> Emacs-pretest-bug mailing list
> address@hidden
> http://lists.gnu.org/mailman/listinfo/emacs-pretest-bug





reply via email to

[Prev in Thread] Current Thread [Next in Thread]