From: Richard M. Stallman <rms@gnu.org>
Date: Wed, 13 Apr 1994 04:27:50 +0000 (+0000)
Subject: (mouse-menu-bar-buffers): Put Frames pane behind Buffers.
X-Git-Tag: emacs-19.34~9010
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b622e49c556ac33f95425b25b211697c87a94f3e;p=emacs.git

(mouse-menu-bar-buffers): Put Frames pane behind Buffers.
---

diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el
index c4c11053860..51686bfda3a 100644
--- a/lisp/menu-bar.el
+++ b/lisp/menu-bar.el
@@ -291,17 +291,17 @@ and selects that window."
 							  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