changeset 51687:64b052fa52ff

(menu-bar-options-menu): Move mouse-set-fonts item here.
author Richard M. Stallman <rms@gnu.org>
date Sat, 28 Jun 2003 11:54:09 +0000
parents 17c015f1f795
children a5090ef2f76b
files lisp/menu-bar.el
diffstat 1 files changed, 5 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/menu-bar.el	Fri Jun 27 22:54:26 2003 +0000
+++ b/lisp/menu-bar.el	Sat Jun 28 11:54:09 2003 +0000
@@ -654,6 +654,11 @@
 (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"))