From 6022eb441a0de8315559e1b7e5beb50b5ecc32b5 Mon Sep 17 00:00:00 2001 From: Simon Josefsson Date: Mon, 15 Dec 2003 01:31:53 +0000 Subject: [PATCH] (autoload): Ignore errors for executable-find. (XEmacs ecrypto does not require sh-script where executable.el is located.) (sha1-use-external): Likewise. --- lisp/ChangeLog | 5 +++++ lisp/sha1-el.el | 4 ++-- 2 files changed, 7 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 8115706cd..c503938e3 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,10 @@ 2003-12-15 Simon Josefsson + * 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 32fd2fe78..7f78451b5 100644 --- 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 -- 2.25.1