Don't overwrite cus-load dependencies

* lisp/cus-dep.el (custom-make-dependencies): Don't overwrite
elements added by packages (bug#58015).

diff --git a/lisp/cus-dep.el b/lisp/cus-dep.el
index bb07a0694a1c3d8dff3b2562ec8f7797976fa36f..163a2da1f129ed73306a00a36e3c9e27ce568909 100644 (file)
--- a/lisp/cus-dep.el
+++ b/lisp/cus-dep.el
@@ -175,7 +175,10 @@ Usage: emacs -batch -l ./cus-dep.el -f custom-make-dependencies DIRS"
                                    (prin1 (sort found #'string<))))
                            alist))))))
     (dolist (e (sort alist (lambda (e1 e2) (string< (car e1) (car e2)))))
-      (insert "(put '" (car e) " 'custom-loads '" (cdr e) ")\n")))
+      ;; Don't overwrite elements added by packages.
+      (insert "(put '" (car e)
+              " 'custom-loads (append '" (cdr e)
+              " (get '" (car e) " 'custom-loads)))\n")))
   (insert "\
 
 ;; The remainder of this file is for handling :version.