From: Kenichi Handa <handa@m17n.org>
Date: Sat, 11 Apr 1998 02:18:31 +0000 (+0000)
Subject: (describe-language-environment):
X-Git-Tag: emacs-20.3~1603
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a33c9d6fcfe292d94c0cc407126afc2be3d7a33c;p=emacs.git

(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 a6526ff0160..8f0eac97663 100644
--- 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)