(make-directory PIXMAPDIR t))
(let* ((case-fold-search t)
(icons (directory-files ICONDIR t
- (cond ((or (featurep 'xemacs)
- (and (boundp 'emacs-major-version)
- (>= emacs-major-version 21)))
+ (cond ((featurep 'xemacs)
"\\.x[bp]m$")
+ ((and (boundp 'emacs-major-version)
+ (>= emacs-major-version 21))
+ "\\.img$\\|\\.x[bp]m$")
((featurep 'mule)
"\\.img$\\|\\.xbm$"))))
icon dest)