(cond
((equal library "") DEFAULT)
(FULL (locate-file library read-library-internal-search-path
- ;; decompression doesn't work with Mule -slb
- (if (featurep 'mule)
- ".el:.elc"
- ".el:.el.gz:.elc")))
+ '(".el" ".el.gz" ".elc")))
(t library))))
;; NOTE: as a special case, read-library may be used to read a filename