diff options
| author | John Wiegley <johnw@newartisans.com> | 2015-03-19 18:48:14 -0500 |
|---|---|---|
| committer | John Wiegley <johnw@newartisans.com> | 2015-03-19 18:48:14 -0500 |
| commit | 94ad68330da0b7bc92e2d45a5172bf9e936fa281 (patch) | |
| tree | d2eb7f0b2bb5b3cf5ae540b5e5da7bba388c1691 | |
| parent | b30b279a99e118e7896a0236489ef9953341e710 (diff) | |
| download | emacs-94ad68330d.tar.gz | |
Rename use-package-with-elapsed-timer at an internal name
See https://github.com/jwiegley/use-package/issues/185
| -rw-r--r-- | lisp/use-package/use-package.el | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/lisp/use-package/use-package.el b/lisp/use-package/use-package.el index 13fe760d90c..d584f4b5636 100644 --- a/lisp/use-package/use-package.el +++ b/lisp/use-package/use-package.el @@ -145,7 +145,7 @@ ARGS is a list of forms, so `((foo))' if only `foo' is being called." ',(intern (concat "use-package--" name-string "--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." (declare (indent 1)) (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)))))) 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) "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 ;; loaded. (config-body - (use-package-with-elapsed-timer + (use-package--with-elapsed-timer (format "Configuring package %s" name-string) (use-package-cat-maybes (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) ',(macroexp-progn config-body)))) (list t)) - (use-package-with-elapsed-timer + (use-package--with-elapsed-timer (format "Loading package %s" name-string) (if use-package-expand-minimally (use-package-cat-maybes @@ -633,7 +633,7 @@ deferred until the prefix key sequence is pressed." package keymap-symbol)))) (defconst use-package-font-lock-keywords - '(("(\\(use-package\\(?:-with-elapsed-timer\\)?\\)\\_>[ \t']*\\(\\(?:\\sw\\|\\s_\\)+\\)?" + '(("(\\(use-package\\)\\_>[ \t']*\\(\\(?:\\sw\\|\\s_\\)+\\)?" (1 font-lock-keyword-face) (2 font-lock-constant-face nil t)))) |