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 ;; `load-file-name' is meaningless in a concatenated
;; mega-autoloads file, so we replace references to it with the ;; mega-autoloads file, so we replace references to it with the
;; file they came from. ;; file they came from.
(or (save-excursion (let ((ppss (save-excursion (syntax-ppss))))
(let ((ppss (syntax-ppss))) (or (nth 3 ppss)
(or (nth 3 ppss) (nth 4 ppss)
(nth 4 ppss)))) (replace-match filestr t t))))))
(replace-match filestr t t)))))
(let ((load-file-name file) (let ((load-file-name file)
(load-path (load-path
(append (list doom-private-dir) (append (list doom-private-dir)