masscollaborationlabs/emacs
2
0
Fork 0
mirror of https://github.com/masscollaborationlabs/emacs.git synced 2025-07-06 04:09:37 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Rename use-package-with-elapsed-timer at an internal name

Browse source 
See https://github.com/jwiegley/use-package/issues/185
This commit is contained in:
John Wiegley 2015-03-19 18:48:14 -05:00
parent b30b279a99
commit 94ad68330d
1 changed files with 5 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -145,7 +145,7 @@ ARGS is a list of forms, so `((foo))' if only `foo' is being called."
',(intern (concat "use-package--" name-string ',(intern (concat "use-package--" name-string
"--post-" keyword-name "-hook"))))))))))) "--post-" keyword-name "-hook")))))))))))
(defun use-package-with-elapsed-timer (text body) (defun use-package--with-elapsed-timer (text body)
"BODY is a list of forms, so `((foo))' if only `foo' is being called." "BODY is a list of forms, so `((foo))' if only `foo' is being called."
(declare (indent 1)) (declare (indent 1))
(if use-package-expand-minimally (if use-package-expand-minimally
@ -163,7 +163,7 @@ ARGS is a list of forms, so `((foo))' if only `foo' is being called."
(message "%s...done" ,text)))))) (message "%s...done" ,text))))))
body)))) body))))
(put 'use-package-with-elapsed-timer 'lisp-indent-function 1) (put 'use-package--with-elapsed-timer 'lisp-indent-function 1)
(defsubst use-package-error (msg) (defsubst use-package-error (msg)
"Report MSG as an error, so the user knows it came from this package." "Report MSG as an error, so the user knows it came from this package."
@ -437,7 +437,7 @@ ARGS is a list of forms, so `((foo))' if only `foo' is being called."
;; These are all the configurations to be made after the package has ;; These are all the configurations to be made after the package has
;; loaded. ;; loaded.
(config-body (config-body
(use-package-with-elapsed-timer (use-package--with-elapsed-timer
(format "Configuring package %s" name-string) (format "Configuring package %s" name-string)
(use-package-cat-maybes (use-package-cat-maybes
(use-package-hook-injector name-string :config args) (use-package-hook-injector name-string :config args)
@ -497,7 +497,7 @@ ARGS is a list of forms, so `((foo))' if only `foo' is being called."
;; '(,config-defun) ;; '(,config-defun)
',(macroexp-progn config-body)))) ',(macroexp-progn config-body))))
(list t)) (list t))
(use-package-with-elapsed-timer (use-package--with-elapsed-timer
(format "Loading package %s" name-string) (format "Loading package %s" name-string)
(if use-package-expand-minimally (if use-package-expand-minimally
(use-package-cat-maybes (use-package-cat-maybes
@ -633,7 +633,7 @@ deferred until the prefix key sequence is pressed."
package keymap-symbol)))) package keymap-symbol))))
(defconst use-package-font-lock-keywords (defconst use-package-font-lock-keywords
'(("(\\(use-package\\(?:-with-elapsed-timer\\)?\\)\\_>[ \t']*\\(\\(?:\\sw\\|\\s_\\)+\\)?" '(("(\\(use-package\\)\\_>[ \t']*\\(\\(?:\\sw\\|\\s_\\)+\\)?"
(1 font-lock-keyword-face) (1 font-lock-keyword-face)
(2 font-lock-constant-face nil t)))) (2 font-lock-constant-face nil t))))