(describe-language-environment): At

first, require all necessary features.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 6e402fc2615400832d702f64c11509988ee494dc..d23f77dfa18076ee47fa6291030b30c1ff260381 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2003-04-16  Kenichi Handa  <handa@m17n.org>
+
+       * international/mule-cmds.el (describe-language-environment): At
+       first, require all necessary features.
+
 2003-04-16  Dave Love  <fx@gnu.org>
 
        * progmodes/xscheme.el: Moved from lisp directory.

diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el
index 69643d9793043a18993b610d1e12ae4d4e62d65e..f165bf4c2362905a6e0a75ad9c1b4af4be656537 100644 (file)
--- a/lisp/international/mule-cmds.el
+++ b/lisp/international/mule-cmds.el
@@ -1853,6 +1853,8 @@ of `buffer-file-coding-system' set by this function."
       (error "No documentation for the specified language"))
   (if (symbolp language-name)
       (setq language-name (symbol-name language-name)))
+  (dolist (feature (get-language-info language-name 'features))
+    (require feature))
   (let ((doc (get-language-info language-name 'documentation))
        pos)
     (help-setup-xref (list #'describe-language-environment language-name)