procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Bump buffers-menu-max-size to 15 on graphical displays

Browse source 
* lisp/menu-bar.el (buffers-menu-max-size): Bump default to 15 on
graphical displays.  (Bug#64398)
This commit is contained in:
Stefan Kangas 2023-10-01 01:08:17 +02:00
parent 820deac94b
commit 42423b6154
1 changed files with 15 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

25
lisp/menu-bar.el
View file

@ -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,