diff options
Diffstat (limited to 'lisp/custom.el')
| -rw-r--r-- | lisp/custom.el | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/lisp/custom.el b/lisp/custom.el index 352b5b0e160..604b1a3ff48 100644 --- a/lisp/custom.el +++ b/lisp/custom.el @@ -1707,6 +1707,13 @@ If a choice with the same tag already exists, no action is taken." (put variable 'custom-type (append choices (list choice)))))) +(defun custom--add-custom-loads (symbol loads) + ;; Don't overwrite existing `custom-loads'. + (dolist (load (get symbol 'custom-loads)) + (unless (memq load loads) + (push load loads))) + (put symbol 'custom-loads loads)) + (provide 'custom) ;;; custom.el ends here |