From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 28 Jun 2003 11:54:09 +0000 (+0000)
Subject: (menu-bar-options-menu): Move mouse-set-fonts item here.
X-Git-Tag: ttn-vms-21-2-B4~9547
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3f9f1c1fba5a86d29330d2128e8d41b25be9541a;p=emacs.git

(menu-bar-options-menu): Move mouse-set-fonts item here.
---

diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el
index 469d0b09a42..783dbb9ec87 100644
--- a/lisp/menu-bar.el
+++ b/lisp/menu-bar.el
@@ -654,6 +654,11 @@ PROPS are additional properties."
 (define-key menu-bar-options-menu [custom-separator]
   '("--"))
 
+(define-key menu-bar-options-menu [mouse-set-font]
+  '(menu-item "Set Font/Fontset" mouse-set-font
+	       :visible (display-multi-font-p)
+	       :help "Select a font from list of known fonts/fontsets"))
+
 ;; The "Show/Hide" submenu of menu "Options"
 
 (defvar menu-bar-showhide-menu (make-sparse-keymap "Show/Hide"))