[nongnu] elpa/pacmacs f9c2eada4c 390/472: Move measure-time function to pacmacs-rr module

[ELPA Syncer]

branch: elpa/pacmacs
commit f9c2eada4c13550539de4257ec2d6c0935d2f6cf
Author: rexim <reximkut@gmail.com>
Commit: rexim <reximkut@gmail.com>

    Move measure-time function to pacmacs-rr module
    
    It is used only there
---
 pacmacs-utils.el    | 6 ------
 tools/pacmacs-rr.el | 6 ++++++
 2 files changed, 6 insertions(+), 6 deletions(-)

diff --git a/pacmacs-utils.el b/pacmacs-utils.el
index c52b8f0185..2b805230d2 100644
--- a/pacmacs-utils.el
+++ b/pacmacs-utils.el
@@ -76,12 +76,6 @@ side-effects."
   (when (string-match "\\(map[0-9]+\\)\\.txt" filename)
     (match-string 1 filename)))
 
-(defmacro pacmacs--measure-time (&rest body)
-  "Measure the time it takes to evaluate BODY."
-  `(let ((time (current-time)))
-     ,@body
-     (float-time (time-since time))))
-
 (provide 'pacmacs-utils)
 
 ;;; pacmacs.el ends here
diff --git a/tools/pacmacs-rr.el b/tools/pacmacs-rr.el
index b85b0b3a78..c06d7db494 100644
--- a/tools/pacmacs-rr.el
+++ b/tools/pacmacs-rr.el
@@ -44,6 +44,12 @@
 (defvar pacmacs--tick-times nil)
 (defvar pacmacs-replay-finished-hook nil)
 
+(defmacro pacmacs--measure-time (&rest body)
+  "Measure the time it takes to evaluate BODY."
+  `(let ((time (current-time)))
+     ,@body
+     (float-time (time-since time))))
+
 (defun pacmacs--record-action (action-name)
   (push (cons action-name pacmacs--tick-counter)
         pacmacs--recorded-actions))