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

1 files changed, 5 insertions, 5 deletions

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