set-language-environment

set-language-environment

[Yoichi NAKAYAMA]

docstring of the variable current-language-environment says:
> This variable should be set only with M-x customize, which is equivalent
> to using the function `set-language-environment'.

Although (set-language-environment "jApAnEse") does set
current-language-environment to the wrong value (so the above two
are not "equivalent").  Following patch will fix it.

Index: mule-cmds.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/international/mule-cmds.el,v
retrieving revision 1.237
diff -u -r1.237 mule-cmds.el
--- mule-cmds.el	29 Jun 2003 10:36:59 -0000	1.237
+++ mule-cmds.el	5 Jul 2003 17:10:11 -0000
@@ -1707,7 +1707,9 @@
       (if (symbolp language-name)
 	  (setq language-name (symbol-name language-name)))
     (setq language-name "English"))
-  (or (assoc-ignore-case language-name language-info-alist)
+  (or (setq language-name
+	    (car-safe
+	     (assoc-ignore-case language-name language-info-alist)))
       (error "Language environment not defined: %S" language-name))
   (if current-language-environment
       (let ((func (get-language-info current-language-environment

Regards,
-- 
Yoichi Nakayama

Re: set-language-environment

[Kenichi Handa]

In article <87llvcopox.wl%yoichi@geiin.org>, Yoichi NAKAYAMA <yoichi@geiin.org> writes:
> docstring of the variable current-language-environment says:
>>  This variable should be set only with M-x customize, which is equivalent
>>  to using the function `set-language-environment'.

> Although (set-language-environment "jApAnEse") does set
> current-language-environment to the wrong value (so the above two
> are not "equivalent").  Following patch will fix it.

You are right, but with your patch, the error message
is always as this:
	Language environment not defined: nil
So, I've just installed the attached change instead.

---
Ken'ichi HANDA
handa@m17n.org

Index: mule-cmds.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/international/mule-cmds.el,v
retrieving revision 1.240
retrieving revision 1.241
diff -u -c -r1.240 -r1.241
cvs server: conflicting specifications of output style
*** mule-cmds.el	9 Jul 2003 16:18:21 -0000	1.240
--- mule-cmds.el	11 Jul 2003 02:40:01 -0000	1.241
***************
*** 1708,1715 ****
        (if (symbolp language-name)
  	  (setq language-name (symbol-name language-name)))
      (setq language-name "English"))
!   (or (assoc-ignore-case language-name language-info-alist)
        (error "Language environment not defined: %S" language-name))
    (if current-language-environment
        (let ((func (get-language-info current-language-environment
  				     'exit-function)))
--- 1708,1717 ----
        (if (symbolp language-name)
  	  (setq language-name (symbol-name language-name)))
      (setq language-name "English"))
!   (let ((slot (assoc-ignore-case language-name language-info-alist)))
!     (unless slot
        (error "Language environment not defined: %S" language-name))
+     (setq language-name (car slot)))
    (if current-language-environment
        (let ((func (get-language-info current-language-environment
  				     'exit-function)))

set-language-environment

[Peter Dyballa]

Hello!

Setting this value to German executes line #2170 in mule-cmds.el:

     ("de" "German" iso-8859-1)

Since almost one decade we live in the Euro zone. Iso-8859-1 is  
completely wrong, iso-8859-15 is the right choice in the 8 bit encoding.

Look, here is a map of those countries that have the € as their local  
currency: http://www.ecb.de/bc/intro/html/map.en.html. In the next  
years more will follow.

--
Greetings

   Pete

If all else fails read the instructions.
                                          - Donald Knuth

Re: set-language-environment

[David Kastrup]

Peter Dyballa <Peter_Dyballa@Web.DE> writes:

> Hello!
>
> Setting this value to German executes line #2170 in mule-cmds.el:
>
>     ("de" "German" iso-8859-1)
>
> Since almost one decade we live in the Euro zone. Iso-8859-1 is
> completely wrong, iso-8859-15 is the right choice in the 8 bit
> encoding.

I don't think so.  "de" is iso-8859-1.  "de@euro" is iso-8859-15.  The
problem is rather that we don't have the "@euro" correspondes in the
file.

> Look, here is a map of those countries that have the € as their
> local currency: http://www.ecb.de/bc/intro/html/map.en.html. In the
> next years more will follow.

Does not change the locale definitions magically.  Here are the
entries for "de" from /usr/share/i18/SUPPORTED on my system:

de_AT.UTF-8 UTF-8
de_AT ISO-8859-1
de_AT@euro ISO-8859-15
de_BE.UTF-8 UTF-8
de_BE ISO-8859-1
de_BE@euro ISO-8859-15
de_CH.UTF-8 UTF-8
de_CH ISO-8859-1
de_DE.UTF-8 UTF-8
de_DE ISO-8859-1
de_DE@euro ISO-8859-15
de_LU.UTF-8 UTF-8
de_LU ISO-8859-1
de_LU@euro ISO-8859-15

-- 
David Kastrup, Kriemhildstr. 15, 44793 Bochum

Re: set-language-environment

[David Kastrup]

David Kastrup <dak@gnu.org> writes:

> Peter Dyballa <Peter_Dyballa@Web.DE> writes:
>
>> Hello!
>>
>> Setting this value to German executes line #2170 in mule-cmds.el:
>>
>>     ("de" "German" iso-8859-1)
>>
>> Since almost one decade we live in the Euro zone. Iso-8859-1 is
>> completely wrong, iso-8859-15 is the right choice in the 8 bit
>> encoding.
>
> I don't think so.  "de" is iso-8859-1.  "de@euro" is iso-8859-15.  The
> problem is rather that we don't have the "@euro" correspondes in the
> file.

Oops, upon closer looking, we do have the "@euro" stuff treated there.

So I guess you are just wrong.

-- 
David Kastrup, Kriemhildstr. 15, 44793 Bochum

Re: set-language-environment

[Kenichi Handa]

In article <85bqr0hihg.fsf@lola.goethe.zz>, David Kastrup <dak@gnu.org> writes:

>> Setting this value to German executes line #2170 in mule-cmds.el:
>> 
>> ("de" "German" iso-8859-1)
>> 
>> Since almost one decade we live in the Euro zone. Iso-8859-1 is
>> completely wrong, iso-8859-15 is the right choice in the 8 bit
>> encoding.

> I don't think so.  "de" is iso-8859-1.  "de@euro" is iso-8859-15.  

Yes.

> The problem is rather that we don't have the "@euro"
> correspondes in the file.

?? When you run Emacs as this:
% LANG=de_DE@euro emacs

Emacs is in German language environment and the default
coding system is set to iso-8859-15.

---
Kenichi Handa
handa@m17n.org

Re: set-language-environment

[Peter Dyballa]

Am 04.08.2006 um 13:10 schrieb Kenichi Handa:

> Emacs is in German language environment and the default
> coding system is set to iso-8859-15.

Definitely not in my copy of GNU Emacs 22.0.50:

In GNU Emacs 22.0.50.1 (powerpc-apple-darwin8.7.0, X toolkit, Xaw3d  
scroll bars)
of 2006-08-03 on Latsche
X server distributor `The XFree86 Project, Inc', version 11.0.40400000
configured using `configure '--without-carbon' '--with-x' '--without- 
sound' '--without-pop' '--with-xpm' '--with-jpeg' '--with-tiff' '-- 
with-gif' '--with-png' '--enable-locallisppath=/Library/Application  
Support/Emacs/calendar22:/Library/Application Support/Emacs/preview:/ 
Library/Application Support/Emacs/auctex/images:/Library/Application  
Support/Emacs/auctex:/Library/Application Support/Emacs' 'CFLAGS=- 
ggdb -pipe -fPIC -mcpu=7450 -fast -mtune=7450 -mpim-altivec -ftree- 
vectorize -fomit-frame-pointer -foptimize-register-move -fcprop- 
registers -frename-registers -freorder-blocks -fpeephole -fno- 
crossjumping' 'CPPFLAGS=-no-cpp-precomp -I/usr/include/openssl -I/usr/ 
local/include -I/sw/include' 'LDFLAGS=-dead_strip -L/usr/X11R6/lib -L/ 
usr/local/lib -L/sw/lib/ncurses -L/sw/lib''

Important settings:
   value of $LC_ALL: nil
   value of $LC_COLLATE: nil
   value of $LC_CTYPE: de_DE.UTF-8
   value of $LC_MESSAGES: nil
   value of $LC_MONETARY: nil
   value of $LC_NUMERIC: nil
   value of $LC_TIME: nil
   value of $LANG: de_DE.UTF-8
   locale-coding-system: utf-8
   default-enable-multibyte-characters: t

Major mode: Fundamental

Minor modes in effect:
   TeX-PDF-mode: t
   shell-dirtrack-mode: t
   display-time-mode: t
   desktop-save-mode: t
   tooltip-mode: t
   tool-bar-mode: t
   mouse-wheel-mode: t
   menu-bar-mode: t
   file-name-shadow-mode: t
   global-font-lock-mode: t
   font-lock-mode: t
   blink-cursor-mode: t
   unify-8859-on-encoding-mode: t
   utf-translate-cjk-mode: t
   auto-compression-mode: t
   column-number-mode: t
   line-number-mode: t
   transient-mark-mode: t

Having in .emacs

	(set-language-environment       'German)

*scratch*, *Messages*, *mail*, dired buffers ... have a modeline  
starting with

	-1:

which does not stand for ISO 8859-15. '0' stands stands for ISO  
8859-15. And relying on LC_CTYPE or LANG, as usual, I get utf-8  
encoded buffers, just as I wish and prefer.


When I first used this statement I thought that GNU Emacs would set a  
few things 'right,' and prefer German man pages, too, or messages/ 
tool tips/comand output/holidays/calendar would come in German. It  
took a long time for me to understand that this particular statement  
was resetting what I had prepared with shell environment variables.

Could be set-language-environment is an obsolete function now that  
GNU Emacs understands LC_ALL or LANG ...

--
Greetings

   Pete

Sometimes I think the surest sign that intelligent life exists  
elsewhere in the universe is that none of it has tried to contact us.
                     -- Bill Watterson, in his comic strip Calvin and  
Hobbes

Re: set-language-environment

[Richard Stallman]

    Could be set-language-environment is an obsolete function now that  
    GNU Emacs understands LC_ALL or LANG ...

It is not obsolete, but using it is unnecessary if things are set up properly
by default.