From 8f7e878caf03abbf42a4b59dd31edf03a1bc5bb3 Mon Sep 17 00:00:00 2001 From: Adam Spiers Date: Wed, 18 Dec 2013 11:33:51 +0000 Subject: [PATCH] add 'use-package-' prefix to 'with-elapsed-timer' Fixes https://github.com/jwiegley/use-package/issues/35. --- lisp/use-package/use-package.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/lisp/use-package/use-package.el b/lisp/use-package/use-package.el index df0d2310da9..1a99e1258c9 100644 --- a/lisp/use-package/use-package.el +++ b/lisp/use-package/use-package.el @@ -58,7 +58,7 @@ :type 'number :group 'use-package) -(defmacro with-elapsed-timer (text &rest forms) +(defmacro use-package-with-elapsed-timer (text &rest forms) (let ((body `(progn ,@forms))) (if use-package-verbose (let ((nowvar (make-symbol "now"))) @@ -72,7 +72,7 @@ (message "%s...done" ,text)))))) body))) -(put 'with-elapsed-timer 'lisp-indent-function 1) +(put 'use-package-with-elapsed-timer 'lisp-indent-function 1) (defvar use-package-idle-timer nil) (defvar use-package-idle-forms nil) @@ -341,13 +341,13 @@ For full documentation. please see commentary. `(eval-after-load ,(if (stringp name) name `',name) `(,(lambda () (if ,requires-test - (with-elapsed-timer + (use-package-with-elapsed-timer ,(format "Configuring package %s" name-string) ,config-body)))))) t)) `(if (and ,(or predicate t) ,requires-test) - (with-elapsed-timer + (use-package-with-elapsed-timer ,(format "Loading package %s" name-string) (if (not ,(if (stringp name) `(load ,name t) -- 2.39.2