Re: Make font menu available in menu bar

[Kevin Rodgers]

Kai Großjohann wrote:

> Richard Stallman <address@hidden> writes:
> > That seems plausible.  Ok, I will put it directly under Options.
> > Having it under Mule does not make sense.
>
> I've now done that.  I hope it was okay.
>
> Index: lisp/international/mule-cmds.el
> ===================================================================
> RCS file: /cvsroot/emacs/emacs/lisp/international/mule-cmds.el,v
> retrieving revision 1.234
> retrieving revision 1.235
> diff -u -u -r1.234 -r1.235
> --- lisp/international/mule-cmds.el     21 Jun 2003 02:26:58 -0000      1.234
> +++ lisp/international/mule-cmds.el     27 Jun 2003 20:19:21 -0000      1.235
> @@ -64,7 +64,7 @@
>  (define-key-after mule-menu-keymap [set-language-environment]
>    (list 'menu-item  "Set Language Environment" setup-language-environment-map
>         :help "Multilingual environment suitable for a specific language"))
> -(define-key-after mule-menu-keymap [mouse-set-font]
> +(define-key-after menu-bar-options-menu [mouse-set-font]
>    '(menu-item "Set Font/Fontset" mouse-set-font
>                :visible (fboundp 'generate-fontset-menu)
>                :help "Select a font from list of known fonts/fontsets"))

Why not move the whole (define-key-after ...) form to lisp/menu-bar.el, with

all the other references to menu-bar-options-menu?

--
<a href="mailto:&lt;kevin.rodgers&#64;ihs.com&gt;";>Kevin Rodgers</a>