From xemacs-m  Tue Apr 29 12:33:51 1997
Received: from altair.xemacs.org (steve@xemacs.miranova.com [206.190.83.19])
	by xemacs.org (8.8.5/8.8.5) with ESMTP id MAA28015
	for <xemacs-beta@xemacs.org>; Tue, 29 Apr 1997 12:33:50 -0500 (CDT)
Received: (from steve@localhost)
	by altair.xemacs.org (8.8.5/8.8.5) id KAA16225;
	Tue, 29 Apr 1997 10:46:51 -0700
Mail-Copies-To: never
To: xemacs-beta@xemacs.org
Subject: Re: Bug in x-menubar (19.15)
References: <199704291517.LAA02115@spacely.icd.teradyne.com>
X-Url: http://www.miranova.com/%7Esteve/
X-Face: #!T9!#9s-3o8)*uHlX{Ug[xW7E7Wr!*L46-OxqMu\xz23v|R9q}lH?cRS{rCNe^'[`^sr5"
 f8*@r4ipO6Jl!:Ccq<xoV[Qz2u8<8-+Vwf2gzJ44lf_/y9OaQ`@#Q65{U4/TC)i2`~/M&QI$X>p:9I
 OSS'2{-)-4wBnVeg0S\O4Al@)uC[pD|+
X-Attribution: sb
From: Steven L Baur <steve@miranova.com>
In-Reply-To: Vinnie Shelton's message of Tue, 29 Apr 1997 11:17:38 -0400
Mime-Version: 1.0 (generated by tm-edit 7.106)
Content-Type: text/plain; charset=US-ASCII
Date: 29 Apr 1997 10:46:49 -0700
Message-ID: <m2enbt3enq.fsf@altair.xemacs.org>
Lines: 70
X-Mailer: Gnus v5.4.48/XEmacs 20.2(beta4)

Ack!  Use this patch:


Index: lisp/x11/x-font-menu.el
===================================================================
RCS file: /usr/local/xemacs/xemacs-19.15/lisp/x11/x-font-menu.el,v
retrieving revision 1.1.1.3
retrieving revision 1.1.1.2
diff -u -r1.1.1.3 -r1.1.1.2
--- x-font-menu.el	1996/12/18 03:54:20	1.1.1.3
+++ x-font-menu.el	1996/12/18 03:46:00	1.1.1.2
@@ -452,10 +452,6 @@
 			       (or weight from-weight)
 			       (or size   from-size)
 			       default-name))
-    (setq save-options-font-hack (list 'font-menu-set-font
-				       (or family from-family)
-				       (or weight from-weight)
-				       (or size from-size)))
     (while faces
       (cond ((face-font-instance (car faces))
 	     (message "Changing font of `%s'..." (car faces))


Index: lisp/x11/x-menubar.el
===================================================================
RCS file: /usr/local/xemacs/xemacs-19.15/lisp/x11/x-menubar.el,v
retrieving revision 1.1.1.3
retrieving revision 1.1.1.2
diff -u -r1.1.1.3 -r1.1.1.2
--- x-menubar.el	1996/12/18 03:54:21	1.1.1.3
+++ x-menubar.el	1996/12/18 03:46:00	1.1.1.2
@@ -923,7 +923,6 @@
 
 
 ;;; The Options menu
-(defvar save-options-font-hack nil)
 
 (defconst options-menu-saved-forms
   ;; This is really quite a kludge, but it gets the job done.
@@ -1168,25 +1167,6 @@
 			     (prin1 var))))
 		    (if var (princ "\n")))
 		options-menu-saved-forms)
-	(when save-options-font-hack
-	  (princ "(require 'x-font-menu)\n")
-	  (princ "(setq save-options-font-hack '(")
-	  (princ (car save-options-font-hack))
-	  (princ " ")
-	  (prin1 (cadr save-options-font-hack))
-	  (princ " ")
-	  (prin1 (caddr save-options-font-hack))
-	  (princ " ")
-	  (prin1 (format "%d" (cadddr save-options-font-hack)))
-	  (princ "))\n(")
-	  (princ (car save-options-font-hack))
-	  (princ " ")
-	  (prin1 (cadr save-options-font-hack))
-	  (princ " ")
-	  (prin1 (caddr save-options-font-hack))
-	  (princ " ")
-	  (prin1 (format "%d" (cadddr save-options-font-hack)))
-	  (princ ")\n"))
 	))
     (set-marker options-output-marker nil)
     (save-excursion

-- 
steve@miranova.com baur
Unsolicited commercial e-mail will be billed at $250/message.

