(autoload): Ignore errors for

executable-find. (XEmacs ecrypto does not require sh-script where
executable.el is located.)
(sha1-use-external): Likewise.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 8115706..c503938 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,10 @@
 2003-12-15  Simon Josefsson  <jas@extundo.com>
 
+       * sha1-el.el (autoload): Ignore errors for
+       executable-find. (XEmacs ecrypto does not require sh-script where
+       executable.el is located.)
+       (sha1-use-external): Likewise.
+
        * sha1-el.el (sha1): Add defgroup.
        (sha1-maximum-internal-length, sha1-program, sha1-use-external)
        (sha1-program): Use 'sha1sum' from GNU CoreUtils instead of OpenSSL.

diff --git a/lisp/sha1-el.el b/lisp/sha1-el.el
index 32fd2fe..7f78451 100644 (file)
--- a/lisp/sha1-el.el
+++ b/lisp/sha1-el.el
@@ -54,7 +54,7 @@
 
 (require 'hex-util)
 
-(autoload 'executable-find "executable")
+(ignore-errors (autoload 'executable-find "executable"))
 
 ;;;
 ;;; external SHA1 function.
@@ -79,7 +79,7 @@ It must be a string \(program name\) or list of strings \(name and its args\)."
   :type '(repeat string)
   :group 'sha1)
 
-(defcustom sha1-use-external (executable-find (car sha1-program))
+(defcustom sha1-use-external (ignore-errors (executable-find (car sha1-program)))
   "*Use external SHA1 program.
 If this variable is set to nil, use internal function only."
   :type 'boolean