master eb5a453a58a: Set buffers-menu-max-size to 15 unconditionally

[Stefan Kangas]

branch: master
commit eb5a453a58a4d7fe1ab213d0fdb746ccb65b9909
Author: Stefan Kangas <stefankangas@gmail.com>
Commit: Stefan Kangas <stefankangas@gmail.com>

    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,