From: Po Lu Date: Thu, 3 Feb 2022 01:28:43 +0000 (+0800) Subject: Prevent the initial frame from showing up in the frame menu X-Git-Tag: emacs-29.0.90~2567 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=aa67e10fe97fad65430780439df337ae8a463dac;p=emacs.git 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 bde34ac910d..891cdfd5d59 100644 --- 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)