(describe-language-environment):

Print the languge environment at the head.

diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el
index a6526ff01609527beb6cb9074ebff52b59050545..8f0eac976632fd38320963d279ec35eca8b5bdf1 100644 (file)
--- a/lisp/international/mule-cmds.el
+++ b/lisp/international/mule-cmds.el
@@ -897,6 +897,7 @@ specifies the character set for the major languages of Western Europe."
       (setq language-name (symbol-name language-name)))
   (let ((doc (get-language-info language-name 'documentation)))
     (with-output-to-temp-buffer "*Help*"
+      (princ-list language-name " language environment" "\n")
       (if (stringp doc)
          (progn
            (princ-list doc)