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))) |