Mercurial > emacs
comparison lisp/international/mule-cmds.el @ 50614:849192639a83
(describe-language-environment): At
first, require all necessary features.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Wed, 16 Apr 2003 12:25:32 +0000 |
| parents | 4eb84208a499 |
| children | 9e0c5cef06ef |
comparison
equal
deleted
inserted
replaced
| 50613:7fa0113d29be | 50614:849192639a83 |
|---|---|
| 1851 (if (or (null language-name) | 1851 (if (or (null language-name) |
| 1852 (null (get-language-info language-name 'documentation))) | 1852 (null (get-language-info language-name 'documentation))) |
| 1853 (error "No documentation for the specified language")) | 1853 (error "No documentation for the specified language")) |
| 1854 (if (symbolp language-name) | 1854 (if (symbolp language-name) |
| 1855 (setq language-name (symbol-name language-name))) | 1855 (setq language-name (symbol-name language-name))) |
| 1856 (dolist (feature (get-language-info language-name 'features)) | |
| 1857 (require feature)) | |
| 1856 (let ((doc (get-language-info language-name 'documentation)) | 1858 (let ((doc (get-language-info language-name 'documentation)) |
| 1857 pos) | 1859 pos) |
| 1858 (help-setup-xref (list #'describe-language-environment language-name) | 1860 (help-setup-xref (list #'describe-language-environment language-name) |
| 1859 (interactive-p)) | 1861 (interactive-p)) |
| 1860 (with-output-to-temp-buffer (help-buffer) | 1862 (with-output-to-temp-buffer (help-buffer) |