From eb5a453a58a4d7fe1ab213d0fdb746ccb65b9909 Mon Sep 17 00:00:00 2001 From: Stefan Kangas Date: Thu, 5 Oct 2023 20:10:16 +0200 Subject: [PATCH] Set buffers-menu-max-size to 15 unconditionally * lisp/menu-bar.el (buffers-menu-max-size): Set the default value to 15 unconditionally. (Bug#64398) --- lisp/menu-bar.el | 13 +++++-------- 1 file changed, 5 insertions(+), 8 deletions(-) diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el index 2d6abf5d5e3..94c2b50c724 100644 --- a/lisp/menu-bar.el +++ b/lisp/menu-bar.el @@ -2314,12 +2314,12 @@ The menu shows all the killed text sequences stored in `kill-ring'." ;;; Buffers Menu -(defcustom buffers-menu-max-size (if (display-graphic-p) 15 10) +;; Increasing this more might be problematic on TTY frames. See Bug#64398. +(defcustom buffers-menu-max-size 15 "Maximum number of entries which may appear on the Buffers menu. If this is a number, only that many most-recently-selected buffers are shown. If this is nil, all buffers are shown." - :initialize #'custom-initialize-delay :type '(choice natnum (const :tag "All" nil)) :group 'menu @@ -2467,12 +2467,9 @@ It must accept a buffer as its only required argument.") ;; Make the menu of buffers proper. (setq buffers-menu (let ((i 0) - (limit (if (boundp 'buffers-menu-max-size) - (and (integerp buffers-menu-max-size) - (> buffers-menu-max-size 1) - buffers-menu-max-size) - ;; Used when bootstrapping. - 10)) + (limit (and (integerp buffers-menu-max-size) + (> buffers-menu-max-size 1) + buffers-menu-max-size)) alist) ;; Put into each element of buffer-list ;; the name for actual display, -- 2.39.2