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

Minor reformat & refactor keyword intern

Browse source
This commit is contained in:
Henrik Lissner 2018-06-10 17:26:20 +02:00
parent fbdbd26851
commit 9cc190adc9
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
1 changed files with 2 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

5
core/autoload/modules.el
View file

@ -149,8 +149,7 @@ modified."
;; Replace autoload paths (only for module autoloads) with ;; Replace autoload paths (only for module autoloads) with
;; absolute paths for faster resolution during load and ;; absolute paths for faster resolution during load and
;; simpler `load-path' ;; simpler `load-path'
(let ((load-path (append doom-modules-dirs (let ((load-path (append doom-modules-dirs load-path))
load-path))
cache) cache)
(save-excursion (save-excursion
(while (re-search-forward "^\\s-*(autoload\\s-+'[^ ]+\\s-+\"\\([^\"]*\\)\"" nil t) (while (re-search-forward "^\\s-*(autoload\\s-+'[^ ]+\\s-+\"\\([^\"]*\\)\"" nil t)
@ -283,7 +282,7 @@ If RECOMPILE-P is non-nil, only recompile out-of-date files."
(push module targets)) (push module targets))
((pred (string-match "^\\([^/]+\\)/\\([^/]+\\)$")) ((pred (string-match "^\\([^/]+\\)/\\([^/]+\\)$"))
(push (doom-module-locate-path (push (doom-module-locate-path
(intern (format ":%s" (match-string 1 module))) (doom-keyword-intern (match-string 1 module))
(intern (match-string 2 module))) (intern (match-string 2 module)))
targets)))) targets))))
(cl-block 'byte-compile (cl-block 'byte-compile