Re: Make font menu available in menu bar

[kai.grossjohann@gmx.net (Kai Großjohann)]

Richard Stallman <rms@gnu.org> 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"))


-- 
~/.signature