1853 |
(error "No documentation for the specified language")) |
(error "No documentation for the specified language")) |
1854 |
(if (symbolp language-name) |
(if (symbolp language-name) |
1855 |
(setq language-name (symbol-name language-name))) |
(setq language-name (symbol-name language-name))) |
1856 |
|
(dolist (feature (get-language-info language-name 'features)) |
1857 |
|
(require feature)) |
1858 |
(let ((doc (get-language-info language-name 'documentation)) |
(let ((doc (get-language-info language-name 'documentation)) |
1859 |
pos) |
pos) |
1860 |
(help-setup-xref (list #'describe-language-environment language-name) |
(help-setup-xref (list #'describe-language-environment language-name) |