(custom-add-to-group): Revert change inherited from XEmacs.

diff --git a/lisp/custom.el b/lisp/custom.el
index c2964c23c55325e76a2588f9c4036a83d7646ca0..5ff42526460254205f1e24509d4fb6267de27699 100644 (file)
--- 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.