Prevent the initial frame from showing up in the frame menu

* lisp/menu-bar.el (menu-bar-update-buffers): Ignore initial
frame when generating frame list.  (bug#53740)

diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el
index bde34ac910d86ca5b672730f497f574a6404a828..891cdfd5d597f33a22387efc1f50a044e82d53a5 100644 (file)
--- a/lisp/menu-bar.el
+++ b/lisp/menu-bar.el
@@ -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)