[elpa] master 34dbcad 04/10: Updated use of when-let

[Ian Dunn]

branch: master
commit 34dbcadc7f126d530035c247941236fcea2982b7
Author: Ian Dunn <address@hidden>
Commit: Ian Dunn <address@hidden>

    Updated use of when-let
    
    * hook-helpers.el (when-let*): Add macro for compatibility.
      (hkhlp-update-helper):
      (create-hook-helper): Use it.
---
 hook-helpers.el | 12 ++++++++----
 1 file changed, 8 insertions(+), 4 deletions(-)

diff --git a/hook-helpers.el b/hook-helpers.el
index 82a8667..e6f10ef 100644
--- a/hook-helpers.el
+++ b/hook-helpers.el
@@ -7,7 +7,7 @@
 ;; Keywords: development, hooks
 ;; Package-Requires: ((emacs "25.1"))
 ;; URL: https://savannah.nongnu.org/projects/hook-helpers-el/
-;; Version: 1.1
+;; Version: 1.1.1
 ;; Created: 06 May 2016
 ;; Modified: 23 Apr 2017
 
@@ -39,7 +39,11 @@
 
 ;;; Code:
 
-(require 'subr-x)
+(eval-when-compile (require 'subr-x))
+
+;; Compatibility for Emacs < 26.1
+(unless (fboundp 'when-let*)
+  (defalias 'when-let* 'when-let))
 
 (defvar hkhlp--helpers-map nil
   "Map of IDs to helpers.")
@@ -101,7 +105,7 @@ For each hook HOOK in the original:
          ((not hook-val) nil)
          ((member hook new-hooks)
           ;; Update the helper in hooks
-          (when-let ((elt (cl-position old-func hook-val :test 'equal)))
+          (when-let* ((elt (cl-position old-func hook-val :test 'equal)))
             (setf (nth elt hook-val) new-func)))
          (t
           ;; Delete the helper from the hooks
@@ -138,7 +142,7 @@ See `hkhlp-normalize-hook-spec' for an explanation of HOOKS.
                                       :source-file source-file
                                       :hooks (mapcar 'car normalized-hooks))))
        ;; Update an old helper
-       (when-let ((old-helper (alist-get id-sym hkhlp--helpers-map)))
+       (when-let* ((old-helper (alist-get id-sym hkhlp--helpers-map)))
          (hkhlp-update-helper old-helper helper))
        (setf (alist-get id-sym hkhlp--helpers-map) helper)
        ;; Add to the new hook-spec