Remove (provide ...) forms from package autoloads
This commit is contained in:
parent
6571c9eabf
commit
8c4d8d739b
1 changed files with 1 additions and 1 deletions
|
@ -509,7 +509,7 @@ This should be run whenever your `doom!' block or update your packages."
|
||||||
(when (file-exists-p file)
|
(when (file-exists-p file)
|
||||||
(insert "(let ((load-file-name " (prin1-to-string (abbreviate-file-name file)) "))\n")
|
(insert "(let ((load-file-name " (prin1-to-string (abbreviate-file-name file)) "))\n")
|
||||||
(insert-file-contents file)
|
(insert-file-contents file)
|
||||||
(while (re-search-forward "^\\(?:;;\\(.*\n\\)\\|\n\\)" nil t)
|
(while (re-search-forward "^\\(?:;;\\(.*\n\\)\\|\n\\|(provide '[^\n]+\\)" nil t)
|
||||||
(unless (nth 8 (syntax-ppss))
|
(unless (nth 8 (syntax-ppss))
|
||||||
(replace-match "" t t)))
|
(replace-match "" t t)))
|
||||||
(unless (bolp) (insert "\n"))
|
(unless (bolp) (insert "\n"))
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue