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

* lisp/tab-line.el: Use defcustom for group sort variables (bug#59438).

Browse source 
(tab-line-tabs-buffer-group-sort-function)
(tab-line-tabs-buffer-groups-sort-function): Turn defvar into defcustom.
Suggested by Gabriel do Nascimento Ribeiro <gabriel376@hotmail.com>.
(tab-line-tabs-buffer-group-name): Fall back to
'tab-line-tabs-buffer-group-by-mode' when
'tab-line-tabs-buffer-group-function' is nil (its previous default value).
This commit is contained in:
Juri Linkov 2024-05-05 21:32:22 +03:00
parent 6f16ef1c04
commit 12132ec1ef
1 changed files with 25 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

30
lisp/tab-line.el
View file

@ -408,15 +408,34 @@ as a group name."
:group 'tab-line
:version "30.1")
(defvar tab-line-tabs-buffer-group-sort-function
(defcustom tab-line-tabs-buffer-group-sort-function
#'tab-line-tabs-buffer-group-sort-by-name
"Function to sort buffers in a group.")
"Function to sort buffers in a group."
:type '(choice (const :tag "Don't sort" nil)
(const :tag "Sort by name alphabetically"
tab-line-tabs-buffer-group-sort-by-name)
(function :tag "Custom function"))
:initialize 'custom-initialize-default
:set (lambda (sym val)
(set-default sym val)
(force-mode-line-update))
:group 'tab-line
:version "30.1")
(defun tab-line-tabs-buffer-group-sort-by-name (a b)
(string< (buffer-name a) (buffer-name b)))
(defvar tab-line-tabs-buffer-groups-sort-function #'string<
"Function to sort group names.")
(defcustom tab-line-tabs-buffer-groups-sort-function #'string<
"Function to sort group names."
:type '(choice (const :tag "Don't sort" nil)
(const :tag "Sort alphabetically" string<)
(function :tag "Custom function"))
:initialize 'custom-initialize-default
:set (lambda (sym val)
(set-default sym val)
(force-mode-line-update))
:group 'tab-line
:version "30.1")
(defvar tab-line-tabs-buffer-groups mouse-buffer-menu-mode-groups
"How to group various major modes together in the tab line.
@ -445,7 +464,8 @@ named the same as the mode.")
(defun tab-line-tabs-buffer-group-name (&optional buffer)
(if (functionp tab-line-tabs-buffer-group-function)
(funcall tab-line-tabs-buffer-group-function buffer)))
(funcall tab-line-tabs-buffer-group-function buffer)
(tab-line-tabs-buffer-group-by-mode buffer)))
(defun tab-line-tabs-buffer-groups ()
"Return a list of tabs that should be displayed in the tab line.