summaryrefslogtreecommitdiff
path: root/lisp/international
diff options
context:
space:
mode:
authorKenichi Handa <handa@m17n.org>1998-04-11 02:18:31 +0000
committerKenichi Handa <handa@m17n.org>1998-04-11 02:18:31 +0000
commita33c9d6fcfe292d94c0cc407126afc2be3d7a33c (patch)
tree80fe419ba56dc29fd40ca8f990ab0e043da19a43 /lisp/international
parent1d9356692360b1be498cc52e0a95c636548f56dc (diff)
downloademacs-a33c9d6fcfe292d94c0cc407126afc2be3d7a33c.tar.gz
(describe-language-environment):
Print the languge environment at the head.
Diffstat (limited to 'lisp/international')
-rw-r--r--lisp/international/mule-cmds.el1
1 files changed, 1 insertions, 0 deletions
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)