mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-06 06:20:55 -08:00
Code Issues Projects Releases Wiki Activity

* lisp/custom.el (custom-add-choice): Fix previous commit.

Browse source
This commit is contained in:
Juri Linkov 2020-08-09 02:48:14 +03:00
parent 444e404325
commit 3b04d39c3c
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/custom.el
View file

@ -1544,7 +1544,7 @@ This means reset VARIABLE. (The argument IGNORED is ignored)."
(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)))
(let ((choices (get variable 'custom-type)))
(unless (eq (car choices) 'choice)
(error "Not a choice type: %s" choices))
(unless (seq-find (lambda (elem)
@ -1553,7 +1553,7 @@ If a choice with the same tag already exists, no action is taken."
(cdr choices))
;; Put the new choice at the end.
(put variable 'custom-type
(append (get variable 'custom-type) (list choice))))))
(append choices (list choice))))))
;;; The End.