projects
/
chise
/
xemacs-chise.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
XEmacs 21.2.33 "Melpomene".
[chise/xemacs-chise.git]
/
lisp
/
mule
/
mule-cmds.el
diff --git
a/lisp/mule/mule-cmds.el
b/lisp/mule/mule-cmds.el
index
1222b27
..
546dd8c
100644
(file)
--- a/
lisp/mule/mule-cmds.el
+++ b/
lisp/mule/mule-cmds.el
@@
-611,7
+611,8
@@
ALIST is an alist of KEY and INFO values. See the documentation of
(eval-after-load
"menubar-items.elc"
`(add-menu-button
(eval-after-load
"menubar-items.elc"
`(add-menu-button
- '("Mule" "Describe Language Support")
+ '("%_Edit" "%_Multilingual (\"Mule\")"
+ "%_Describe Language Support")
(vector ,lang-env
'(describe-language-environment ,lang-env)
t))))
(vector ,lang-env
'(describe-language-environment ,lang-env)
t))))
@@
-622,11
+623,12
@@
ALIST is an alist of KEY and INFO values. See the documentation of
(eval-after-load
"menubar-items.elc"
`(add-menu-button
(eval-after-load
"menubar-items.elc"
`(add-menu-button
- '("Mule" "Set Language Environment")
+ '("%_Edit" "%_Multilingual (\"Mule\")"
+ "%_Set Language Environment")
(vector ,lang-env
'(set-language-environment ,lang-env)
t))))
(vector ,lang-env
'(set-language-environment ,lang-env)
t))))
-
+
(while alist
(set-language-info lang-env (car (car alist)) (cdr (car alist)))
(setq alist (cdr alist)))))
(while alist
(set-language-info lang-env (car (car alist)) (cdr (car alist)))
(setq alist (cdr alist)))))