mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-11 09:20:51 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Richard M. Stallman 1994-04-13 04:27:50 +00:00
parent 463d60ff44
commit b622e49c55
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lisp/menu-bar.el
View File

@ -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