[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 3b04d39: * lisp/custom.el (custom-add-choice): Fix previous commi
From: |
Juri Linkov |
Subject: |
master 3b04d39: * lisp/custom.el (custom-add-choice): Fix previous commit. |
Date: |
Sat, 8 Aug 2020 19:48:38 -0400 (EDT) |
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.
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master 3b04d39: * lisp/custom.el (custom-add-choice): Fix previous commit.,
Juri Linkov <=