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

Refactor autoloads generater

Browse source
This commit is contained in:
Henrik Lissner 2019-11-22 22:45:23 -05:00
parent 2153752552
commit 9d9b6e514c
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
1 changed files with 13 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

18
core/cli/autoloads.el
View file

@ -55,9 +55,10 @@ It also caches `load-path', `Info-directory-list', `doom-disabled-packages',
(byte-compile-dynamic-docstrings t)) (byte-compile-dynamic-docstrings t))
(condition-case-unless-debug e (condition-case-unless-debug e
(when (byte-compile-file file) (when (byte-compile-file file)
(prog1 (load file 'noerror 'nomessage 'nosuffix) (unless doom-interactive-mode
(when noninteractive (add-hook 'doom-cli-post-success-execute-hook #'doom--cli-warn-refresh-session-h))
(add-hook 'doom-cli-post-success-execute-hook #'doom--cli-warn-refresh-session-h)))) (let (noninteractive)
(load file 'noerror 'nomessage 'nosuffix)))
((debug error) ((debug error)
(let ((backup-file (concat file ".bk"))) (let ((backup-file (concat file ".bk")))
(print! (warn "Copied backup to %s") (relpath backup-file)) (print! (warn "Copied backup to %s") (relpath backup-file))
@ -100,8 +101,15 @@ even if it doesn't need reloading!"
(cond ((not (doom-file-cookie-p file "if" t)) (cond ((not (doom-file-cookie-p file "if" t))
(print! (debug "Ignoring %s") (relpath file))) (print! (debug "Ignoring %s") (relpath file)))
((let ((generated-autoload-load-name (file-name-sans-extension file))) ((let ((generated-autoload-load-name (file-name-sans-extension file))
(autoload-generate-file-autoloads file (current-buffer))) ;; Prevent `autoload-find-file' from firing file hooks,
;; e.g. adding to recentf.
find-file-hook
write-file-functions
;; Prevent a possible source of crashes when there's a
;; syntax error in the autoloads file
debug-on-error)
(quiet! (autoload-generate-file-autoloads file (current-buffer))))
(print! (debug "Nothing in %s") (relpath file))) (print! (debug "Nothing in %s") (relpath file)))
((cl-incf n) ((cl-incf n)