mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-05 07:01:11 -08:00
Code Issues Projects Releases Wiki Activity

Prevent the initial frame from showing up in the frame menu

Browse source 
* lisp/menu-bar.el (menu-bar-update-buffers): Ignore initial
frame when generating frame list.  (bug#53740)
This commit is contained in:
Po Lu 2022-02-03 09:28:43 +08:00
parent 7728f493cd
commit aa67e10fe9
1 changed files with 6 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

9
lisp/menu-bar.el
View file

@ -2342,9 +2342,12 @@ It must accept a buffer as its only required argument.")
(and (lookup-key (current-global-map) [menu-bar buffer])
(or force (frame-or-buffer-changed-p))
(let ((buffers (buffer-list))
(frames (frame-list))
buffers-menu)
frames buffers-menu)
;; Ignore the initial frame if present. It can happen if
;; Emacs was started as a daemon. (bug#53740)
(dolist (frame (frame-list))
(unless (eq frame frame-initial-frame)
(push frame frames)))
;; Make the menu of buffers proper.
(setq buffers-menu
(let ((i 0)