Mercurial > hg > xemacs-beta

comparison lisp/finder.el @ 2983:2997ff5f2aba

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2005-10-09 10:41:37 by adrian] xemacs-21.5-clean: finder-find-library to return filename actually searched for -------------------- ChangeLog entries follow: -------------------- lisp/ChangeLog addition: 2005-10-09 Adrian Aichner <adrian@xemacs.org> * finder.el (finder-find-library): Return filename actually searched for.
author adrian
date Sun, 09 Oct 2005 10:41:38 +0000
parents 70921960b980
children ffa5a6e7f2dd
comparison
equal deleted inserted replaced
2982:29faf6b3d098 2983:2997ff5f2aba
286 file 286 file
287 (let ((dirs load-path) 287 (let ((dirs load-path)
288 found) 288 found)
289 (while (and dirs (not found)) 289 (while (and dirs (not found))
290 (if (file-exists-p (expand-file-name (concat file ".el") (car dirs))) 290 (if (file-exists-p (expand-file-name (concat file ".el") (car dirs)))
291 (setq found (expand-file-name file (car dirs))) 291 (setq found (expand-file-name (concat file ".el") (car dirs)))
292 (if (file-exists-p (expand-file-name file (car dirs))) 292 (if (file-exists-p (expand-file-name file (car dirs)))
293 (setq found (expand-file-name file (car dirs))))) 293 (setq found (expand-file-name file (car dirs)))))
294 (setq dirs (cdr dirs))) 294 (setq dirs (cdr dirs)))
295 found))) 295 found)))
296 296