Refactor comment/string check in autoloads generator
This commit is contained in:
parent
1c237106aa
commit
cf04a44ca7
1 changed files with 4 additions and 5 deletions
|
@ -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)
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue