default the hash abstraction function

nicferrier · Apr 23, 2014 · 36e6ca2 · 36e6ca2
1 parent 09f6750
commit 36e6ca2
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/elnode.el b/elnode.el
@@ -3175,7 +3175,8 @@ different function can implement different hashing algorithms.
 AUTH-TEST is passed a username and must return a token.
 AUTH-TEST can be used to change the hashed token lookup to find
 the token in a particular database."
-  (let ((token (funcall make-hash username password)))
+  (let ((token (funcall (or make-hash 'elnode-auth-make-hash)
+                        username password)))
     (equal token (funcall auth-test username))))