[nongnu] elpa/evil-escape 7966f4b1be 084/133: Add cl-lib dependency and provide a initial value to reduce.

[ELPA Syncer]

branch: elpa/evil-escape
commit 7966f4b1be205e6e782c6a23b1e248774332ad4c
Author: sbenner <sylvain.benner@ubisoft.com>
Commit: sbenner <sylvain.benner@ubisoft.com>

    Add cl-lib dependency and provide a initial value to reduce.
    
    Fixes #42 and #43
---
 evil-escape.el | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/evil-escape.el b/evil-escape.el
index 1e1ac1b9d4..e1c3871cca 100644
--- a/evil-escape.el
+++ b/evil-escape.el
@@ -6,7 +6,7 @@
 ;; Keywords: convenience editing evil
 ;; Created: 22 Oct 2014
 ;; Version: 3.09
-;; Package-Requires: ((emacs "24") (evil "1.0.9"))
+;; Package-Requires: ((emacs "24") (evil "1.0.9") (cl-lib "0.5"))
 ;; URL: https://github.com/syl20bnr/evil-escape
 
 ;; This file is not part of GNU Emacs.
@@ -81,6 +81,7 @@
 ;;; Code:
 
 (require 'evil)
+(require 'cl-lib)
 
 (defgroup evil-escape nil
   "Key sequence to escape insert state and everything else."
@@ -182,8 +183,9 @@ with a key sequence."
        (or (equal (this-command-keys) (evil-escape--first-key))
            (and evil-escape-unordered-key-sequence
                 (equal (this-command-keys) (evil-escape--second-key))))
-       (not (reduce (lambda (x y) (or x y))
-                    (mapcar 'funcall evil-escape-inhibit-functions)))))
+       (not (cl-reduce (lambda (x y) (or x y))
+                       (mapcar 'funcall evil-escape-inhibit-functions)
+                       :initial-value nil))))
 
 (defun evil-escape--escape-normal-state ()
   "Escape from normal state."