From b622e49c556ac33f95425b25b211697c87a94f3e Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Wed, 13 Apr 1994 04:27:50 +0000 Subject: [PATCH] (mouse-menu-bar-buffers): Put Frames pane behind Buffers. --- lisp/menu-bar.el | 10 +++++----- 1 file 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