X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=sha1-dl.el;h=4716d4d8c575e7270d2783205db2eec225c2230f;hb=e5c7b43a6c221963df842517e333f56d172340c2;hp=7edccdd26e0f67537cce5080e7b7908ac241d272;hpb=cfbeb2aa70dd2506c32ce4a2e1d232731a93701d;p=elisp%2Fflim.git

diff --git a/sha1-dl.el b/sha1-dl.el
index 7edccdd..4716d4d 100644
--- a/sha1-dl.el
+++ b/sha1-dl.el
@@ -1,6 +1,6 @@
 ;;; sha1-dl.el --- SHA1 Secure Hash Algorithm using DL module.
 
-;; Copyright (C) 1999 Shuhei KOBAYASHI
+;; Copyright (C) 1999, 2001  Free Software Foundation, Inc.
 
 ;; Author: Shuhei KOBAYASHI <shuhei@aqua.ocn.ne.jp>
 ;; Keywords: SHA1, FIPS 180-1
@@ -27,15 +27,10 @@
 ;;; Code:
 
 (provide 'sha1-dl)			; beware of circular dependency.
-(eval-when-compile
-  (require 'sha1)			; sha1-dl-module.
-  (defun-maybe dynamic-link (a))
-  (defun-maybe dynamic-call (a b)))
-
-(defvar sha1-dl-handle
-  (and (stringp sha1-dl-module)
-       (file-exists-p sha1-dl-module)
-       (dynamic-link sha1-dl-module)))
+(eval-when-compile (require 'sha1))	; sha1-dl-module.
+
+;;; This file is loaded (from "sha1.el") only when sha1-dl-module exists.
+(defvar sha1-dl-handle (dynamic-link sha1-dl-module))
 
 ;;; sha1-dl-module provides `sha1-string' and `sha1-binary'.
 (dynamic-call "emacs_sha1_init" sha1-dl-handle)