Changeset 3965

Show
Ignore:
Timestamp:
11/14/05 13:15:29 (3 years ago)
Author:
horiguti
Message:

* mule-cmds.el (set-language-info): Call set-language-environment
if lang-env is quual to current-language-environment.

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/lisp/ChangeLog.Meadow

    r3961 r3965  
     12005-11-14  Kyotaro HORIGUCHI  <horiguti@meadowy.org> 
     2 
     3        * mule-cmds.el (set-language-info): Call set-language-environment 
     4        if lang-env is quual to current-language-environment. 
     5 
    162005-11-11  Kyotaro HORIGUCHI  <horiguti@meadowy.org> 
    27 

  • trunk/lisp/international/mule-cmds.el

    r3945 r3965  
    11431143                        (lambda (lang) 
    11441144                          (list 'const lang)) 
    1145                         (sort (mapcar 'car language-info-alist) 'string<)))))) 
     1145                        (sort (mapcar 'car language-info-alist) 'string<)))) 
     1146    (if (and (featurep 'meadow) 
     1147             (equal lang-env current-language-environment)) 
     1148        (set-language-environment lang-env)))) 
    11461149 
    11471150(defun set-language-info-alist (lang-env alist &optional parents)