From xemacs-m  Mon Mar 10 13:39:20 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 NAA02333
	for <xemacs-beta@xemacs.org>; Mon, 10 Mar 1997 13:39:16 -0600 (CST)
Received: (from steve@localhost)
	by altair.xemacs.org (8.8.5/8.8.5) id LAA30236;
	Mon, 10 Mar 1997 11:51:15 -0800
Mail-Copies-To: never
To: xemacs-beta@xemacs.org
Subject: Re: more fonst madness! [WAS Re: 20.1-b5: Setting fonts?]
References: <199703062143.QAA07193@spacely.icd.teradyne.com> 	<m3afog31we.fsf@jens.metrix.de> <199703071540.KAA05372@anthem.CNRI.Reston.Va.US> <yvtybbz82il.fsf@corona.pixar.com> <m24tenvv2t.fsf@altair.xemacs.org> <yvtvi737xh7.fsf_-_@corona.pixar.com> <rjendqvh08.fsf@zuse.dina.kvl.dk> <yvtsp238t6p.fsf@corona.pixar.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: Hunter Kelly's message of 10 Mar 1997 11:04:30 -0800
Mime-Version: 1.0 (generated by tm-edit 7.105)
Content-Type: text/plain; charset=US-ASCII
Date: 10 Mar 1997 11:51:09 -0800
Message-ID: <m2zpwbcyqa.fsf@altair.xemacs.org>
Lines: 30
X-Mailer: Gnus v5.4.25/XEmacs 20.1

Hunter Kelly writes:

> Steven, do you want me to whip up a patch to fix the above error?

If I understand correctly the second part of the or drops away like
this?

Index: lisp/x11/x-menubar.el
===================================================================
RCS file: /usr/local/xemacs/xemacs-20.0/lisp/x11/x-menubar.el,v
retrieving revision 1.12
diff -u -r1.12 x-menubar.el
--- x-menubar.el	1997/03/08 23:27:17	1.12
+++ x-menubar.el	1997/03/10 19:49:30
@@ -1209,9 +1209,8 @@
   "This function will return a list of all faces that have not been
 'customized'."
   (delq nil (mapcar '(lambda (face)
-		       (if (not (or (get face 'saved-face)
-				   (get face 'factory-face)))
-			  face))
+		       (unless (get face 'saved-face)
+			 face))
 		    (face-list))))
 
 (defun save-options-specifier-spec-list (face property)

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

