/[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.240 by rms, Wed Jul 9 16:18:21 2003 UTC revision 1.241 by handa, Fri Jul 11 02:40:01 2003 UTC
# Line 1708  specifies the character set for the majo Line 1708  specifies the character set for the majo
1708        (if (symbolp language-name)        (if (symbolp language-name)
1709            (setq language-name (symbol-name language-name)))            (setq language-name (symbol-name language-name)))
1710      (setq language-name "English"))      (setq language-name "English"))
1711    (or (assoc-ignore-case language-name language-info-alist)    (let ((slot (assoc-ignore-case language-name language-info-alist)))
1712        (unless slot
1713        (error "Language environment not defined: %S" language-name))        (error "Language environment not defined: %S" language-name))
1714        (setq language-name (car slot)))
1715    (if current-language-environment    (if current-language-environment
1716        (let ((func (get-language-info current-language-environment        (let ((func (get-language-info current-language-environment
1717                                       'exit-function)))                                       'exit-function)))

Legend:
Removed from v.1.240  
changed lines
  Added in v.1.241

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