Mercurial > emacs

changeset 6843:7976a0643802

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(mouse-menu-bar-buffers): Put Frames pane behind Buffers.
author Richard M. Stallman <rms@gnu.org>
date Wed, 13 Apr 1994 04:27:50 +0000
parents a5d8611cbad8
children 208d3f9f831d
files lisp/menu-bar.el
diffstat 1 files changed, 5 insertions(+), 5 deletions(-) [+]
line wrap: on
line diff
--- 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