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

Refactor unneeded arg out of local function _load

Browse source 
In doom-initialize-packages.
This commit is contained in:
Henrik Lissner 2018-06-10 17:18:39 +02:00
parent 7e00a83acc
commit b079db8ec3
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
2 changed files with 5 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

2
core/core-dispatcher.el
View file

@ -173,7 +173,7 @@ respectively."
(def-dispatcher! test (def-dispatcher! test
"Run Doom unit tests." "Run Doom unit tests."
(load! "autoload/test") (require 'core-unit-tests)
(doom//run-tests args)) (doom//run-tests args))
(def-dispatcher! info (def-dispatcher! info

8
core/core-packages.el
View file

@ -368,17 +368,17 @@ them."
(setq doom-packages nil) (setq doom-packages nil)
(cl-flet (cl-flet
((_load ((_load
(file &optional noerror interactive) (file &optional noerror)
(condition-case-unless-debug ex (condition-case-unless-debug ex
(let ((noninteractive (not interactive))) (load file noerror 'nomessage 'nosuffix)
(load file noerror 'nomessage 'nosuffix))
('error ('error
(lwarn 'doom-initialize-packages :warning (lwarn 'doom-initialize-packages :warning
"%s in %s: %s" "%s in %s: %s"
(car ex) (car ex)
(file-relative-name file doom-emacs-dir) (file-relative-name file doom-emacs-dir)
(error-message-string ex)))))) (error-message-string ex))))))
(let ((doom--stage 'packages)) (let ((doom--stage 'packages)
(noninteractive t))
(_load (expand-file-name "packages.el" doom-core-dir)) (_load (expand-file-name "packages.el" doom-core-dir))
;; We load the private packages file twice to ensure disabled ;; We load the private packages file twice to ensure disabled
;; packages are seen ASAP, and a second time to ensure privately ;; packages are seen ASAP, and a second time to ensure privately