[nongnu] elpa/exec-path-from-shell 4ea306a76f 103/114: Prefer cl-gensym to gensym for better compatibility across emacs versions

[ELPA Syncer]

branch: elpa/exec-path-from-shell
commit 4ea306a76f0f8371053dd12d77a3b5b4438974d3
Author: Steve Purcell <steve@sanityinc.com>
Commit: Steve Purcell <steve@sanityinc.com>

    Prefer cl-gensym to gensym for better compatibility across emacs versions
---
 exec-path-from-shell.el | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/exec-path-from-shell.el b/exec-path-from-shell.el
index 87a9e88f69..e0e381f42e 100644
--- a/exec-path-from-shell.el
+++ b/exec-path-from-shell.el
@@ -6,7 +6,7 @@
 ;; Keywords: unix, environment
 ;; URL: https://github.com/purcell/exec-path-from-shell
 ;; Package-Version: 0
-;; Package-Requires: ((emacs "24.1"))
+;; Package-Requires: ((emacs "24.1") (cl-lib "0.6"))
 
 ;; This file is not part of GNU Emacs.
 
@@ -75,6 +75,7 @@
 
 ;; Satisfy the byte compiler
 (eval-when-compile (require 'eshell))
+(require 'cl-lib)
 
 (defgroup exec-path-from-shell nil
   "Make Emacs use shell-defined values for $PATH etc."
@@ -141,8 +142,8 @@ The default value denotes an interactive login shell."
 (defmacro exec-path-from-shell--warn-duration (&rest body)
   "Evaluate BODY and warn if execution duration exceeds a time limit.
 The limit is given by `exec-path-from-shell-warn-duration-millis'."
-  (let ((start-time (gensym))
-        (duration-millis (gensym)))
+  (let ((start-time (cl-gensym))
+        (duration-millis (cl-gensym)))
     `(let ((,start-time (current-time)))
        (prog1
            (progn ,@body)