From xemacs-m  Mon Mar 24 05:59:39 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 FAA03437
	for <xemacs-beta@xemacs.org>; Mon, 24 Mar 1997 05:59:38 -0600 (CST)
Received: (from steve@localhost)
	by altair.xemacs.org (8.8.5/8.8.5) id EAA00689;
	Mon, 24 Mar 1997 04:11:18 -0800
To: xemacs-beta@xemacs.org
Subject: [Wernke zur Borg <wzb@anitesystems.de>] Re: popup-mode-menu()
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>
Mime-Version: 1.0 (generated by tm-edit 7.106)
Content-Type: multipart/mixed;
 boundary="Multipart_Mon_Mar_24_04:11:17_1997-1"
Content-Transfer-Encoding: 7bit
Date: 24 Mar 1997 04:11:17 -0800
Message-ID: <m2u3m1h4m2.fsf@altair.xemacs.org>
Lines: 110
X-Mailer: Gnus v5.4.36/XEmacs 20.1(beta10)

--Multipart_Mon_Mar_24_04:11:17_1997-1
Content-Type: text/plain; charset=US-ASCII

(Yet another good reason to not email me personally with XEmacs
problems, sigh :-()

Can anyone help this person?  I give up.  The patch he is referring to 
is:

Index: lisp/x11/x-menubar.el
===================================================================
RCS file: /usr/local/xemacs/xemacs-20.0/lisp/x11/x-menubar.el,v
retrieving revision 1.13
diff -u -r1.13 x-menubar.el
--- x-menubar.el	1997/03/16 03:06:04	1.13
+++ x-menubar.el	1997/03/24 08:40:34
@@ -1413,7 +1413,8 @@
 		 (items (cdr mode-popup-menu))
 		 filters)
 	    ;; Strip keywords from local menu for attaching them at the top
-	    (while (not (vectorp (car items)))
+	    (while (and items
+			(symbolp (car items)))
 	      (setq items (append filters (list (car items))))
 	      (setq items (cdr items)))
 	    ;; If filters contains a keyword already present in

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

--Multipart_Mon_Mar_24_04:11:17_1997-1
Content-Type: message/rfc822

X-From-Line: wzb@anitesystems.de  Mon Mar 24 01:37:12 1997
Return-Path: <wzb@anitesystems.de>
Received: from anitesystems.de ([194.233.54.4])
	by deanna.miranova.com (8.8.5/8.8.5) with SMTP id BAA32646
	for <steve@miranova.com>; Mon, 24 Mar 1997 01:37:10 -0800
Received: from sce85.anitesystems.de by anitesystems.de (SMI-8.6/SMI-SVR4)
	id LAA27060; Mon, 24 Mar 1997 11:35:12 +0100
Received: by sce85.anitesystems.de (SMI-8.6/SMI-SVR4)
	id LAA24609; Mon, 24 Mar 1997 11:35:09 +0100
Date: Mon, 24 Mar 1997 11:35:09 +0100
Message-Id: <199703241035.LAA24609@sce85.anitesystems.de>
From: Wernke zur Borg <wzb@anitesystems.de>
MIME-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
To: Steven L Baur <steve@miranova.com>
Subject: Re: popup-mode-menu()
In-Reply-To: <m2iv2hfzhn.fsf@altair.xemacs.org>
References: <199702170743.IAA03296@sce85.Cray>
	<m2k9nbnpvh.fsf@altair.xemacs.org>
	<199703140951.KAA20073@sce85.anitesystems.de>
	<m2ybbpg57e.fsf@altair.xemacs.org>
	<199703171030.LAA20667@sce85.anitesystems.de>
	<m2u3ma26he.fsf@altair.xemacs.org>
	<199703171224.NAA20677@sce85.anitesystems.de>
	<m2iv2hfzhn.fsf@altair.xemacs.org>
Reply-To: wzb@anitesystems.de
X-Face: qZZMgS$Ofb]S/;mHV2ZHV;**u(ST"M2KW#F'X;w,<P29tKPa7>f\l}?Lx^_\yNbFfp/``w9
 'N8'$'_eDj{;DN>zv|r'TUn"A7HR<.Ap-)^u>c@#*jwvMs<hP:ShUO{>ruElrAgq{]dw;N{Wt#y'w}
 R]4-"[^":PO+6d.|y=PymD5W:-832xRWHfOQP7M=4fI|vqS8zhXa9e+A7T9k!_|
Lines: 41
Xref: altair.xemacs.org inbox:9458

Steven L Baur writes:
 > 
 > O.K.  I don't understand what you're trying to accomplish, but this
 > patch fixes the infinite loop.  (I warned you at the outset that I'm
 > not familiar with the menu code).
 > 

Thanks for the new attempt. It still does not work as expected,
although the loop bug seems to be corrected. I don't understand why
you don't understand what I want. I simply want the popup-mode-menu()
function to work as intended, i.e., to combine the global-popup-menu
with the mode-popup-menu. What else is it expected to do?

What happens now depends on the mode. For instance:

c-mode: global-popup-menu is suppressed

text-mode: mode-popup-menu is suppressed

emacs-lisp-mode: ok! global-popup-menu and mode-popup-menu are
		 correctly combined.

"suppressed" above means that the menu items are not visible. Only the
title still gets displayed.

You can easily reproduce that:

- Assign a valid menu to global-popup-menu

- Create a buffer with suitable extensions and/or set modes
  explicitly.

- Press mouse-3 and look at the menu.

Regards
______________________________________________________________________
 Wernke zur Borg                                Tel:  +49-6155-8717-15
 Anite Systems GmbH                             Fax:  +49-6155-8717-87
 Im Leuschnerpark 4                         email: wzb@AniteSystems.de
 D-64347 Griesheim / Germany


--Multipart_Mon_Mar_24_04:11:17_1997-1--

