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

* lisp/tab-line.el (tab-line-tabs-fixed-window-buffers): More optimizations.

Browse source 
Use :size arg of 'make-hash-table' as a hint how many buffers
the table will have.  Add ':in-place t' to 'sort'.
This commit is contained in:
Juri Linkov 2024-12-04 20:38:41 +02:00
parent d706be4b34
commit 25b4bf7fcd
1 changed files with 4 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/tab-line.el
View file

@ -555,12 +555,15 @@ This means that switching to a buffer previously shown in the same
window will keep the same order of tabs that was before switching.
And newly displayed buffers are added to the end of the tab line."
(let* ((old-buffers (window-parameter nil 'tab-line-buffers))
(buffer-positions (let ((index-table (make-hash-table :test 'eq)))
(buffer-positions (let ((index-table (make-hash-table
:size (length old-buffers)
:test #'eq)))
(seq-do-indexed
(lambda (buf idx) (puthash buf idx index-table))
old-buffers)
index-table))
(new-buffers (sort (tab-line-tabs-window-buffers)
:in-place t
:key (lambda (buffer)
(gethash buffer buffer-positions
most-positive-fixnum)))))