From ad885416c06ae7744f3fdd9cb24a5a63df6b7af9 Mon Sep 17 00:00:00 2001 From: shuhei Date: Sun, 18 Mar 2001 12:24:46 +0000 Subject: [PATCH] Removed hack for compiler. (sha1-dl-handle): Do `dynamic-link' unconditionally. --- sha1-dl.el | 13 ++++--------- 1 file changed, 4 insertions(+), 9 deletions(-) diff --git a/sha1-dl.el b/sha1-dl.el index b60969a..4716d4d 100644 --- a/sha1-dl.el +++ b/sha1-dl.el @@ -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) -- 1.7.10.4