mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-06 06:20:55 -08:00
Code Issues Projects Releases Wiki Activity

Remove code I did not intend to commit

Browse source
This commit is contained in:
John Wiegley 2015-03-19 18:47:15 -05:00
parent f45c4f0edd
commit b30b279a99
1 changed files with 0 additions and 38 deletions
Download patch file Download diff file Expand all files Collapse all files

38
lisp/use-package/use-package.el
View file

@ -103,44 +103,6 @@ then your byte-compiled init file is as minimal as possible."
:type 'boolean
:group 'use-package)
(defvar use-package-extra-keywords nil
"A list of extra keywords to be accepted in the use-package form.")
(defconst use-package-phases
'(setup-load-path
pre-compile-load
preface
setup-autoloads
register-load-on-idle
declare-functions
init
register-eval-after-load
deferred-config
package-load
config
wrapup)
"A list of phases that capture the sequence of `use-package'.
This is used by `use-package-add-keywords' in order to register
new keywords, and to specify when their handler should be
called.
Each phase registers a `before-' and `after-' counterpart, so
that you can register new keywords as follows:
(use-package-add-keywords :ensure 'after-preface)
Which is identical to saying:
(use-package-add-keywords :ensure 'before-setup-autoloads)
The reason for duplicating the sequence points with redundant
before and after monikers is to make keyword-adding resilient to
the creation of new phases in future.")
(defun use-package-add-keywords (&rest args)
(let ((keywords (cl-remove-if #'(lambda (x) (not (keywordp args)))))
(phases (cl-remove-if #'(lambda (x) (keywordp args))))))
)
(defun use-package-expand (name label form)
"FORM is a list of forms, so `((foo))' if only `foo' is being called."
(declare (indent 1))