+ (let ((file (if (file-name-absolute-p filename)
+ ;; For absolute file names, we don't have on choice on the
+ ;; location, but sound extensions however can still be tried
+ (setq file (locate-file filename
+ (list (file-name-directory filename))
+ (split-string sound-extension-list
+ ":")))
+ (setq file (locate-file filename
+ default-sound-directory-list
+ (split-string sound-extension-list
+ ":")))))
+ buf data)