Mercurial > hg > xemacs-beta
diff lisp/mule/mule-cmds.el @ 406:b8cc9ab3f761 r21-2-33
Import from CVS: tag r21-2-33
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 11:17:09 +0200 |
| parents | 2f8bb876ab1d |
| children | 697ef44129c6 |
line wrap: on
line diff
--- a/lisp/mule/mule-cmds.el Mon Aug 13 11:16:09 2007 +0200 +++ b/lisp/mule/mule-cmds.el Mon Aug 13 11:17:09 2007 +0200 @@ -611,7 +611,8 @@ (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)))) @@ -622,11 +623,12 @@ (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)))) - + (while alist (set-language-info lang-env (car (car alist)) (cdr (car alist))) (setq alist (cdr alist)))))