From 42423b615463182a56ea59023967784c4596506e Mon Sep 17 00:00:00 2001 From: Stefan Kangas Date: Sun, 1 Oct 2023 01:08:17 +0200 Subject: [PATCH] Bump buffers-menu-max-size to 15 on graphical displays * lisp/menu-bar.el (buffers-menu-max-size): Bump default to 15 on graphical displays. (Bug#64398) --- lisp/menu-bar.el | 25 +++++++++++++++---------- 1 file changed, 15 insertions(+), 10 deletions(-) diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el index fdadb5d1140..3a348ebcdc6 100644 --- a/lisp/menu-bar.el +++ b/lisp/menu-bar.el @@ -2314,14 +2314,16 @@ The menu shows all the killed text sequences stored in `kill-ring'." ;;; Buffers Menu -(defcustom buffers-menu-max-size 10 +(defcustom buffers-menu-max-size (if (display-graphic-p) 15 10) "Maximum number of entries which may appear on the Buffers menu. -If this is 10, then only the ten most-recently-selected buffers are shown. -If this is nil, then all buffers are shown. -A large number or nil slows down menu responsiveness." - :type '(choice integer - (const :tag "All" nil)) - :group '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 + :version "30.1") (defcustom buffers-menu-buffer-name-length 30 "Maximum length of the buffer name on the Buffers menu. @@ -2465,9 +2467,12 @@ It must accept a buffer as its only required argument.") ;; Make the menu of buffers proper. (setq buffers-menu (let ((i 0) - (limit (and (integerp buffers-menu-max-size) - (> buffers-menu-max-size 1) - buffers-menu-max-size)) + (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)) alist) ;; Put into each element of buffer-list ;; the name for actual display, -- 2.39.5