-(static-condition-case nil
- (directory-files nil nil nil nil nil)
- (wrong-number-of-arguments
- (defmacro smime-directory-files
- (directory &optional full match nosort files-only)
- (if files-only
- `(delq nil (mapcar
- (lambda (file)
- ,(if (eq files-only t)
- `(if (file-directory-p file) nil file)
- `(if (file-directory-p file) file nil)))
- (directory-files ,directory ,full ,match ,nosort)))
- `(directory-files ,directory ,full ,match ,nosort))))
- (error
- (defalias 'smime-directory-files 'directory-files)))
-