FLIM-ELS: Install sha1-el.el when dynamic-link is available and built…

…-in sha1 library is not available.
wanderlust · Apr 15, 2014 · 8e0feca · 8e0feca
1 parent 64bcf2a
commit 8e0feca
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 3 deletions.
diff --git a/ChangeLog b/ChangeLog
@@ -1,3 +1,8 @@
+2014-04-15  Kazuhiro Ito  <kzhr@d1.dion.ne.jp>
+
+	* FLIM-ELS: Install sha1-el.el when dynamic-link is available and
+	built-in sha1 library is not available.
+
 2014-04-05  Kazuhiro Ito  <kzhr@d1.dion.ne.jp>
 
 	* std11.el (std11-narrow-to-header)

diff --git a/FLIM-ELS b/FLIM-ELS
@@ -42,9 +42,9 @@
 (unless (and (fboundp 'sha1)
 	     (or (subrp (symbol-function 'secure-hash))
 		 (subrp (symbol-function 'sha1))))
-  (if (fboundp 'dynamic-link)
-      (setq hmac-modules (cons 'sha1-dl hmac-modules))
-    (setq hmac-modules (cons 'sha1-el hmac-modules))))
+  (when (fboundp 'dynamic-link)
+    (setq hmac-modules (cons 'sha1-dl hmac-modules)))
+  (setq hmac-modules (cons 'sha1-el hmac-modules)))
 
 (setq flim-modules (nconc hmac-modules flim-modules))