Refactor comment/string check in autoloads generator

This commit is contained in:
Henrik Lissner 2020-01-04 17:13:05 -05:00
parent 1c237106aa
commit cf04a44ca7
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395

View file

@ -226,11 +226,10 @@ one wants that.")
;; `load-file-name' is meaningless in a concatenated
;; mega-autoloads file, so we replace references to it with the
;; file they came from.
(or (save-excursion
(let ((ppss (syntax-ppss)))
(or (nth 3 ppss)
(nth 4 ppss))))
(replace-match filestr t t)))))
(let ((ppss (save-excursion (syntax-ppss))))
(or (nth 3 ppss)
(nth 4 ppss)
(replace-match filestr t t))))))
(let ((load-file-name file)
(load-path
(append (list doom-private-dir)