From xemacs-m  Tue Jul  1 09:40:25 1997
Received: from jagor.srce.hr (hniksic@jagor.srce.hr [161.53.2.130])
	by xemacs.org (8.8.5/8.8.5) with ESMTP id JAA06194
	for <xemacs-beta@xemacs.org>; Tue, 1 Jul 1997 09:40:23 -0500 (CDT)
Received: (from hniksic@localhost)
          by jagor.srce.hr (8.8.5/8.8.4)
	  id QAA04278; Tue, 1 Jul 1997 16:40:22 +0200 (MET DST)
To: XEmacs Developers <xemacs-beta@xemacs.org>
Subject: [PATCH] bookmark submenu beautification
X-Attribution: Hrv
X-Face: Mie8:rOV<\c/~z{s.X4A{!?vY7{drJ([U]0O=W/<W*SMo/Mv:58:*_y~ki>xDi&N7XG
        KV^$k0m3Oe/)'e%3=$PCR&3ITUXH,cK>]bci&<qQ>Ff%x_>1`T(+M2Gg/fgndU%k*ft
        [(7._6e0n-V%|%'[c|q:;}td$#INd+;?!-V=c8Pqf}3J
From: Hrvoje Niksic <hniksic@srce.hr>
Date: 01 Jul 1997 16:40:21 +0200
Message-ID: <kighgee6dka.fsf@jagor.srce.hr>
Lines: 30

This will make it look better (and will prevent some consing, but
that's being anal.)

--- lisp/x11/x-menubar.el.orig	Tue Jul  1 16:30:57 1997
+++ lisp/x11/x-menubar.el	Tue Jul  1 16:32:13 1997
@@ -847,7 +847,7 @@
       (mapcar
        #'(lambda (bmk)
 	   (vector bmk `(bookmark-jump ',bmk) t)) (bookmark-all-names))
-    (list "No Bookmarks Set")))
+    '(["No Bookmarks Set" nil nil])))
 
 (defun bookmark-delete-filter (menu-items)
   "*Build the bookmark delete submenu dynamically from all defined bookmarks."
@@ -855,7 +855,7 @@
       (mapcar
        #'(lambda (bmk)
 	   (vector bmk `(bookmark-delete ',bmk) t)) (bookmark-all-names))
-    (list "No Bookmarks Set")))
+    '(["No Bookmarks Set" nil nil])))
 
 ;;; The Buffers menu
 


-- 
Hrvoje Niksic <hniksic@srce.hr> | Student at FER Zagreb, Croatia
--------------------------------+--------------------------------
4.  Thou shalt not warlorde a sig if it bee the sig of Kibo, nor if
    it bee the sig of the Inner Circle.

