From: yamaoka <yamaoka>
Date: Fri, 27 Aug 1999 05:11:01 +0000 (+0000)
Subject: (directory-files): Use `static-condition-case' instead of `condition-case'.
X-Git-Tag: apel-9_22~35
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=cee4a4a3f3024b08c3c95120b2c5d690260a8f49;p=elisp%2Fapel.git

(directory-files): Use `static-condition-case' instead of `condition-case'.
(TopLevel): Require `static' with `eval-when-compile'.
---

diff --git a/path-util.el b/path-util.el
index 071386e..3835d02 100644
--- 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