diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2020-08-08 13:42:48 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2020-08-08 13:42:48 +0200 |
| commit | c3a6bcac86fd386a31a3287a9818aa7c3568769c (patch) | |
| tree | 857612446783ac7357a8fd49675a4acb6f215d21 /lisp/custom.el | |
| parent | f07bbb67d16365da2abd288b9993f1938dae4c20 (diff) | |
| download | emacs-c3a6bcac86fd386a31a3287a9818aa7c3568769c.tar.gz emacs-c3a6bcac86fd386a31a3287a9818aa7c3568769c.tar.bz2 emacs-c3a6bcac86fd386a31a3287a9818aa7c3568769c.zip | |
Add new utility function custom-add-choice
* lisp/custom.el (custom-add-choice): New function (bug#41225).
Diffstat (limited to 'lisp/custom.el')
| -rw-r--r-- | lisp/custom.el | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/lisp/custom.el b/lisp/custom.el index 885c486c5e4..0cb136330d5 100644 --- a/lisp/custom.el +++ b/lisp/custom.el @@ -1541,6 +1541,20 @@ Each of the arguments ARGS has this form: This means reset VARIABLE. (The argument IGNORED is ignored)." (apply #'custom-theme-reset-variables 'user args)) +(defun custom-add-choice (variable choice) + "Add CHOICE to the custom type of VARIABLE. +If a choice with the same tag already exists, no action is taken." + (let ((choices (get 'tab-bar-new-tab-choice 'custom-type))) + (unless (eq (car choices) 'choice) + (error "Not a choice type: %s" choices)) + (unless (seq-find (lambda (elem) + (equal (caddr (member :tag elem)) + (caddr (member :tag choice)))) + (cdr choices)) + ;; Put the new choice at the end. + (put variable 'custom-type + (append (get variable 'custom-type) (list choice)))))) + ;;; The End. (provide 'custom) |