/[emacs]/emacs/lisp/international/mule-cmds.el
ViewVC logotype

Diff of /emacs/lisp/international/mule-cmds.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.256 by jasonr, Sun May 9 15:39:00 2004 UTC revision 1.257 by handa, Sat Jun 12 02:21:21 2004 UTC
# Line 1834  specifies the character set for the majo Line 1834  specifies the character set for the majo
1834    (let ((func (get-language-info language-name 'setup-function)))    (let ((func (get-language-info language-name 'setup-function)))
1835      (if (functionp func)      (if (functionp func)
1836          (funcall func)))          (funcall func)))
1837      (if (and utf-translate-cjk-mode
1838               utf-translate-cjk-lang-env
1839               (not (eq utf-translate-cjk-lang-env language-name))
1840               (catch 'tag
1841                 (dolist (charset (get-language-info language-name 'charset))
1842                   (if (memq charset utf-translate-cjk-charsets)
1843                       (throw 'tag t)))
1844                 nil))
1845          (utf-translate-cjk-load-tables))
1846    (run-hooks 'set-language-environment-hook)    (run-hooks 'set-language-environment-hook)
1847    (force-mode-line-update t))    (force-mode-line-update t))
1848    

Legend:
Removed from v.1.256  
changed lines
  Added in v.1.257

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26