From 52158b67bcf667bf5ba264e01eb300745393d2a3 Mon Sep 17 00:00:00 2001 From: Dave Love Date: Tue, 23 Jan 2001 14:29:38 +0000 Subject: [PATCH] (custom-add-to-group): Revert change inherited from XEmacs. --- lisp/custom.el | 11 +++++------ 1 file changed, 5 insertions(+), 6 deletions(-) diff --git a/lisp/custom.el b/lisp/custom.el index c2964c23c55..5ff42526460 100644 --- a/lisp/custom.el +++ b/lisp/custom.el @@ -329,12 +329,11 @@ information." (defun custom-add-to-group (group option widget) "To existing GROUP add a new OPTION of type WIDGET. -If there already is an entry for that option, overwrite it." - (let* ((members (get group 'custom-group)) - (old (assq option members))) - (if old - (setcar (cdr old) widget) - (put group 'custom-group (nconc members (list (list option widget))))))) +If there already is an entry for OPTION and WIDGET, nothing is done." + (let ((members (get group 'custom-group)) + (entry (list option widget))) + (unless (member entry members) + (put group 'custom-group (nconc members (list entry)))))) ;;; Properties. -- 2.39.5