Re: No directory-files-and-attributes in XEmacs

[Kevin Greiner <kevin.greiner@vignette.com>]

Done.
Kevin

Katsumi Yamaoka <yamaoka@jpl.org> writes:

>>>>>> In <E1C5Yf1-0000gc-00@quimby.gnus.org> Kevin Greiner wrote:
>
>>     Date: Friday, September 10, 2004 @ 01:49:03
>>   Author: cvs
>>     Path: /usr/local/cvsroot/gnus/lisp
>
>> Modified: gnus-agent.el
>
>> 	* gnus-agent.el (gnus-agent-cat-groups): rewrote avoiding defsetf
>> 	to avoid run-time CL dependencies.
>
> [...]
>
>> 	(gnus-agent-update-files-total-fetched-for): Use
>> 	directory-files-and-attributes to improve performance.
>
> Unfortunately, XEmacs complained about it as follows:
>
> While compiling the end of the data in file gnus/lisp/gnus-agent.el:
>   ** the function directory-files-and-attributes is not known to be defined.
>
> It is indeed not available in XEmacs.  How about adding
> something like the following?
>
> (eval-and-compile
>   (unless (fboundp 'directory-files-and-attributes)
>     (defun directory-files-and-attributes (directory
> 					   &optional full match nosort)
>       (let (result)
> 	(dolist (file (directory-files directory full match nosort))
> 	  (push (cons file (file-attributes file)) result))
> 	(nreverse result)))))