From 3b04d39c3c13d91a4cfbc314b0d10a71e75348fb Mon Sep 17 00:00:00 2001 From: Juri Linkov Date: Sun, 9 Aug 2020 02:48:14 +0300 Subject: [PATCH] * 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 0cb136330d5..db7f6a056d4 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. -- 2.39.2