* sha1.el (TopLevel): Defun-maybe `sha1-string' when compile.

diff --git a/ChangeLog b/ChangeLog
index 6bd6680..8f1481e 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,9 @@
 2000-01-23  Kenichi OKADA <okada@opaopa.org>
 
+       * sha1.el (TopLevel): Defun-maybe `sha1-string' when compile.
+
+2000-01-23  Kenichi OKADA <okada@opaopa.org>
+
        * smtp.el (smtp-auth-digest-md5): Don't save insecure words.
 
 2000-01-22  Kenichi OKADA <okada@opaopa.org>

diff --git a/sha1.el b/sha1.el
index ad25316..a7265b6 100644 (file)
--- a/sha1.el
+++ b/sha1.el
@@ -42,6 +42,9 @@
 
 (require 'hex-util)
 
+(eval-when-compile
+  (defun-maybe sha1-string (a)))
+
 (defvar sha1-dl-module
   (if (and (fboundp 'sha1-string)
           (subrp (symbol-function 'sha1-string)))