[elpa] externals/hyperbole ad66862122 2/8: Fix undefined lexical var, use key-val from let*

[ELPA Syncer]

branch: externals/hyperbole
commit ad66862122f9094d179d960fc751a718a4f9aea7
Author: Mats Lidell <mats.lidell@lidells.se>
Commit: Mats Lidell <mats.lidell@lidells.se>

    Fix undefined lexical var, use key-val from let*
---
 hasht.el | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/hasht.el b/hasht.el
index 0e9746cd94..7088d6f2b6 100644
--- a/hasht.el
+++ b/hasht.el
@@ -317,9 +317,9 @@ if KEY or HASH-TABLE are of the wrong type."
       (let* ((key-sym (intern key))
             (key-val (gethash key-sym hash-table)))
        (if key-sym
-           (if (listp key-value) ;; allowed to be nil
-               (puthash key-sym (cons value key-value) hash-table)
-             (error "(hash-prepend): `%s' key's value is not a list:" key 
key-val))
+           (if (listp key-val) ;; allowed to be nil
+               (puthash key-sym (cons value key-val) hash-table)
+             (error "(hash-prepend): `%s' key's value `%s' is not a list:" key 
key-val))
          (error "(hash-prepend): Invalid hash-table key: %s" key)))))
 
 (defun hash-prin1 (hash-table &optional stream)