[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 42423b61546: Bump buffers-menu-max-size to 15 on graphical displa
From: |
Stefan Kangas |
Subject: |
master 42423b61546: Bump buffers-menu-max-size to 15 on graphical displays |
Date: |
Sat, 30 Sep 2023 19:09:32 -0400 (EDT) |
branch: master
commit 42423b615463182a56ea59023967784c4596506e
Author: Stefan Kangas <stefankangas@gmail.com>
Commit: Stefan Kangas <stefankangas@gmail.com>
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,
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master 42423b61546: Bump buffers-menu-max-size to 15 on graphical displays,
Stefan Kangas <=