- (let* ((chr (sref string i))
- (ret (assoc-if (function
- (lambda (key)
- (if (functionp key)
- (funcall key chr)
- (memq chr key)
- )))
- filename-replacement-alist))
- )
+ (let ((chr (sref string i))
+ (lst filename-replacement-alist)
+ ret)
+ (while (and lst (not ret))
+ (if (if (functionp (car (car lst)))
+ (setq ret (funcall (car (car lst)) chr))
+ (setq ret (memq chr (car (car lst)))))
+ t ; quit this loop.
+ (setq lst (cdr lst))))