alx/eyebrowse
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Limit buffer history size

Browse Source
This commit is contained in:
Seth Ladygo
2025-04-22 13:54:39 -10:00
parent 1bac80a0ee
commit 2034ec7a44
1 changed files with 7 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
eyebrowse.el
View File

@ -185,6 +185,12 @@ If t, ask for confirmation."
:type 'boolean :type 'boolean
:group 'eyebrowse) :group 'eyebrowse)
(defcustom eyebrowse-buffer-list-count 20
"How many buffers to keep in the recent list.
Large numbers slow down switching."
:type 'integer
:group 'eyebrowse)
(defvar eyebrowse-mode-prefix-map (defvar eyebrowse-mode-prefix-map
(let ((prefix-map (make-sparse-keymap))) (let ((prefix-map (make-sparse-keymap)))
(define-key prefix-map (kbd "<") 'eyebrowse-prev-window-config) (define-key prefix-map (kbd "<") 'eyebrowse-prev-window-config)
@ -358,7 +364,7 @@ If a buffer name equal to OLD is found, it is replaced with NEW."
(eyebrowse--fixup-window-config window-config) (eyebrowse--fixup-window-config window-config)
(window-state-put window-config (frame-root-window) 'safe) (window-state-put window-config (frame-root-window) 'safe)
(when buffer-list (when buffer-list
(update-buffer-list buffer-list))))) (update-buffer-list (take eyebrowse-buffer-list-count buffer-list))))))
(defun eyebrowse--string-to-number (x) (defun eyebrowse--string-to-number (x)
"Version of `string-to-number' that returns nil if not a number." "Version of `string-to-number' that returns nil if not a number."