diff options
| author | Kenichi Handa <handa@m17n.org> | 2003-07-11 02:42:54 +0000 |
|---|---|---|
| committer | Kenichi Handa <handa@m17n.org> | 2003-07-11 02:42:54 +0000 |
| commit | 95498fd0b3ba7e19e93fb123ec362956faf64d08 (patch) | |
| tree | 562339302f43754fae4d4f9cc0b1a19c0605778c | |
| parent | e22ba851aa4a00b3d9e6062bdbad0e49604f6a5b (diff) | |
| download | emacs-95498fd0b3ba7e19e93fb123ec362956faf64d08.tar.gz | |
(set-language-environment): Set
current-language-environment to the correct string.
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/international/mule-cmds.el | 4 |
2 files changed, 8 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 974c2c80d7f..1e50aa1d438 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2003-07-11 Kenichi Handa <handa@m17n.org> + + * international/mule-cmds.el (set-language-environment): Set + current-language-environment to the correct string. + 2003-07-10 Vinicius Jose Latorre <viniciusjl@ig.com.br> * ps-print.el: Print line number correctly in a region. Reported by diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el index 49eaa1db9ad..d56c382c990 100644 --- a/lisp/international/mule-cmds.el +++ b/lisp/international/mule-cmds.el @@ -1708,8 +1708,10 @@ specifies the character set for the major languages of Western Europe." (if (symbolp language-name) (setq language-name (symbol-name language-name))) (setq language-name "English")) - (or (assoc-ignore-case language-name language-info-alist) + (let ((slot (assoc-ignore-case language-name language-info-alist))) + (unless slot (error "Language environment not defined: %S" language-name)) + (setq language-name (car slot))) (if current-language-environment (let ((func (get-language-info current-language-environment 'exit-function))) |