/[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.194.2.8 by miles, Tue May 11 02:34:46 2004 UTC revision 1.194.2.9 by miles, Tue Jul 6 10:10:48 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.194.2.8  
changed lines
  Added in v.1.194.2.9

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