Don't overwrite cus-load dependencies

* lisp/cus-dep.el (custom-make-dependencies): Don't overwrite
elements added by packages (bug#58015).
This commit is contained in:
Lars Ingebrigtsen 2022-09-23 18:06:38 +02:00
parent 212e94c3f4
commit 75b3f4d0ac

View file

@ -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.