(require): Handle `file-error' only.

[elisp/apel.git] / path-util.el

diff --git a/path-util.el b/path-util.el
index e6aec37..d774642 100644 (file)
--- a/path-util.el
+++ b/path-util.el
@@ -142,7 +142,7 @@ If suffixes is omitted, `exec-suffix-list' is used."
   (let (files)
     (catch 'tag
       (while suffixes
-       (let (suf (car suffixes))
+       (let ((suf (car suffixes)))
          (if (and (not (string= suf ""))
                   (string-match (concat (regexp-quote suf) "$") file))
              (progn
@@ -197,6 +197,7 @@ If PATHS is omitted, `load-path' is used."
 ;;; @ end
 ;;;
 
-(provide 'path-util)
+(require 'product)
+(product-provide (provide 'path-util) (require 'apel-ver))
 
 ;;; path-util.el ends here