mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-09 09:16:02 -08:00
Code Issues Projects Releases Wiki Activity

(set-language-info-alist): Call define-prefix-command with 3 arguments,

Browse source 
to make the map suitable for a menu.
This commit is contained in:
Eli Zaretskii 2000-05-08 11:44:29 +00:00
parent 4f37b78af8
commit 9deed82f09
2 changed files with 12 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/ChangeLog
View file

@ -1,3 +1,9 @@
2000-05-08 Eli Zaretskii <eliz@is.elta.co.il>
* international/mule-cmds.el (set-language-info-alist): Call
define-prefix-command with 3 arguments, to make the map suitable
for a menu.
2000-05-07 Dave Love <fx@gnu.org>
* time.el: Small doc fixes from Pavel Janic.

9
lisp/international/mule-cmds.el
View file

@ -706,17 +706,20 @@ in the European submenu in each of those two menus."
(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 @@ in the European submenu in each of those two menus."
(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))