Mercurial > emacs
changeset 28828:b8133d80ec1e
(set-language-info-alist): Call define-prefix-command with 3 arguments,
to make the map suitable for a menu.
| author | Eli Zaretskii <eliz@gnu.org> |
|---|---|
| date | Mon, 08 May 2000 11:41:53 +0000 |
| parents | f100ab01a769 |
| children | 2c7d957d3abb |
| files | lisp/international/mule-cmds.el |
| diffstat | 1 files changed, 6 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/international/mule-cmds.el Sun May 07 19:09:25 2000 +0000 +++ b/lisp/international/mule-cmds.el Mon May 08 11:41:53 2000 +0000 @@ -706,17 +706,20 @@ (setup-map setup-language-environment-map)) (if parents (let ((l parents) - map parent-symbol parent) + map parent-symbol parent prompt) (while l (if (symbolp (setq parent-symbol (car l))) (setq parent (symbol-name parent)) (setq parent parent-symbol parent-symbol (intern parent))) (setq map (lookup-key describe-map (vector parent-symbol))) + ;; This prompt string is for define-prefix-command, so + ;; that the map it creates will be suitable for a menu. + (or map (setq prompt (format "%s Environment" parent))) (if (not map) (progn (setq map (intern (format "describe-%s-environment-map" (downcase parent)))) - (define-prefix-command map) + (define-prefix-command map nil prompt) (define-key-after describe-map (vector parent-symbol) (cons parent map) t))) (setq describe-map (symbol-value map)) @@ -725,7 +728,7 @@ (progn (setq map (intern (format "setup-%s-environment-map" (downcase parent)))) - (define-prefix-command map) + (define-prefix-command map nil prompt) (define-key-after setup-map (vector parent-symbol) (cons parent map) t))) (setq setup-map (symbol-value map))