emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Refactor doom-cli--generate-autoloads

Browse source
This commit is contained in:
Henrik Lissner 2019-12-30 17:06:49 -05:00
parent 497a6a206e
commit 0b1ab39a00
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
1 changed files with 26 additions and 26 deletions
Download patch file Download diff file Expand all files Collapse all files

52
core/cli/autoloads.el
View file

@ -219,29 +219,29 @@ it is nil, it will try to reload both."
(defun doom-cli--generate-autoloads (files &optional scan)
(require 'autoload)
(let (autoloads)
(dolist (file files (delq nil (nreverse autoloads)))
(and (file-readable-p file)
(with-temp-buffer
(save-excursion
(if scan
(doom-cli--generate-autoloads-buffer file)
(insert-file-contents-literally file)))
(save-excursion
(let ((filestr (prin1-to-string file)))
(while (re-search-forward "\\_<load-file-name\\_>" nil t)
;; `load-file-name' is meaningless in a concatenated
;; mega-autoloads file, so we replace references to it with the
;; file they came from.
(unless (doom-point-in-string-or-comment-p)
(replace-match filestr t t)))))
(let ((load-file-name file)
(load-path
(append (list doom-private-dir)
doom-modules-dirs
load-path)))
(condition-case _
(while t
(push (doom-cli--filter-form (read (current-buffer))
scan)
autoloads))
(end-of-file))))))))
(dolist (file
(cl-remove-if-not #'file-readable-p files)
(nreverse (delq nil autoloads)))
(with-temp-buffer
(if scan
(doom-cli--generate-autoloads-buffer file)
(insert-file-contents-literally file))
(save-excursion
(let ((filestr (prin1-to-string file)))
(while (re-search-forward "\\_<load-file-name\\_>" nil t)
;; `load-file-name' is meaningless in a concatenated
;; mega-autoloads file, so we replace references to it with the
;; file they came from.
(unless (doom-point-in-string-or-comment-p)
(replace-match filestr t t)))))
(let ((load-file-name file)
(load-path
(append (list doom-private-dir)
doom-modules-dirs
load-path)))
(condition-case _
(while t
(push (doom-cli--filter-form (read (current-buffer))
scan)
autoloads))
(end-of-file)))))))