(directory-files): Use `static-condition-case' instead of `condition-case'.

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

diff --git a/path-util.el b/path-util.el
index 071386e..3835d02 100644 (file)
--- a/path-util.el
+++ b/path-util.el
@@ -24,7 +24,9 @@
 
 ;;; Code:
 
-(condition-case nil
+(eval-when-compile (require 'static))
+
+(static-condition-case nil
     (directory-files "." nil nil t)
   (file-error nil);; unreadable directory.
   (wrong-number-of-arguments