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

[Juri Linkov]

branch: master
commit 3b04d39c3c13d91a4cfbc314b0d10a71e75348fb
Author: Juri Linkov <juri@linkov.net>
Commit: Juri Linkov <juri@linkov.net>

    * lisp/custom.el (custom-add-choice): Fix previous commit.
---
 lisp/custom.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lisp/custom.el b/lisp/custom.el
index 0cb1363..db7f6a0 100644
--- a/lisp/custom.el
+++ b/lisp/custom.el
@@ -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.