# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 766211270 0
# Node ID 7976a06438028ed1967ca4906851e33b322625e2
# Parent  a5d8611cbad8e313c139a44c2bb31119ab19db93
(mouse-menu-bar-buffers): Put Frames pane behind Buffers.

diff -r a5d8611cbad8 -r 7976a0643802 lisp/menu-bar.el
--- a/lisp/menu-bar.el	Wed Apr 13 00:24:21 1994 +0000
+++ b/lisp/menu-bar.el	Wed Apr 13 04:27:50 1994 +0000
@@ -291,17 +291,17 @@
 							  0) ?\ )
 					"List All Buffers")
 				'list-buffers))))))
-    (setq menu (list menu))
-
     (if (cdr (frame-list))
 	(setq menu
-	      (cons (cons "Select Frame"
+	      (list menu
+		    (cons "Select Frame"
 			  (mapcar (lambda (frame)
 				    (cons (cdr (assq 'name
 						     (frame-parameters frame)))
 					  frame))
-				  (frame-list)))
-		    menu)))
+				  (frame-list)))))
+      (setq menu (list menu)))
+
     (setq menu (cons "Buffer and Frame Menu" menu))
 
     (let ((buf (x-popup-menu (if (listp event) event