diff options
| author | Po Lu | 2022-02-03 09:28:43 +0800 |
|---|---|---|
| committer | Po Lu | 2022-02-03 09:29:31 +0800 |
| commit | aa67e10fe97fad65430780439df337ae8a463dac (patch) | |
| tree | 12141fb087d17a0e20dad45cd279b1816374a685 | |
| parent | 7728f493cd1416bac45be4b4495c989e12caf3ac (diff) | |
| download | emacs-aa67e10fe97fad65430780439df337ae8a463dac.tar.gz emacs-aa67e10fe97fad65430780439df337ae8a463dac.zip | |
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)
| -rw-r--r-- | lisp/menu-bar.el | 9 |
1 files changed, 6 insertions, 3 deletions
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.") | |||
| 2342 | (and (lookup-key (current-global-map) [menu-bar buffer]) | 2342 | (and (lookup-key (current-global-map) [menu-bar buffer]) |
| 2343 | (or force (frame-or-buffer-changed-p)) | 2343 | (or force (frame-or-buffer-changed-p)) |
| 2344 | (let ((buffers (buffer-list)) | 2344 | (let ((buffers (buffer-list)) |
| 2345 | (frames (frame-list)) | 2345 | frames buffers-menu) |
| 2346 | buffers-menu) | 2346 | ;; Ignore the initial frame if present. It can happen if |
| 2347 | 2347 | ;; Emacs was started as a daemon. (bug#53740) | |
| 2348 | (dolist (frame (frame-list)) | ||
| 2349 | (unless (eq frame frame-initial-frame) | ||
| 2350 | (push frame frames))) | ||
| 2348 | ;; Make the menu of buffers proper. | 2351 | ;; Make the menu of buffers proper. |
| 2349 | (setq buffers-menu | 2352 | (setq buffers-menu |
| 2350 | (let ((i 0) | 2353 | (let ((i 0) |