diff options
| author | Kenichi Handa | 1998-04-11 02:18:31 +0000 |
|---|---|---|
| committer | Kenichi Handa | 1998-04-11 02:18:31 +0000 |
| commit | a33c9d6fcfe292d94c0cc407126afc2be3d7a33c (patch) | |
| tree | 80fe419ba56dc29fd40ca8f990ab0e043da19a43 | |
| parent | 1d9356692360b1be498cc52e0a95c636548f56dc (diff) | |
| download | emacs-a33c9d6fcfe292d94c0cc407126afc2be3d7a33c.tar.gz emacs-a33c9d6fcfe292d94c0cc407126afc2be3d7a33c.zip | |
(describe-language-environment):
Print the languge environment at the head.
| -rw-r--r-- | lisp/international/mule-cmds.el | 1 |
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." | |||
| 897 | (setq language-name (symbol-name language-name))) | 897 | (setq language-name (symbol-name language-name))) |
| 898 | (let ((doc (get-language-info language-name 'documentation))) | 898 | (let ((doc (get-language-info language-name 'documentation))) |
| 899 | (with-output-to-temp-buffer "*Help*" | 899 | (with-output-to-temp-buffer "*Help*" |
| 900 | (princ-list language-name " language environment" "\n") | ||
| 900 | (if (stringp doc) | 901 | (if (stringp doc) |
| 901 | (progn | 902 | (progn |
| 902 | (princ-list doc) | 903 | (princ-list doc) |