X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Ffinder.el;h=6124ce8de2d1a9ef09cbd5928d52af44217a26bc;hb=83362aeab5a2eda87ff44bb0513f5233199175d7;hp=cbed603e67dc271569452ee162d2f509b875e8d8;hpb=59eec5f21669e81977b5b1fe9bf717cab49cf7fb;p=chise%2Fxemacs-chise.git.1

diff --git a/lisp/finder.el b/lisp/finder.el
index cbed603..6124ce8 100644
--- a/lisp/finder.el
+++ b/lisp/finder.el
@@ -287,7 +287,7 @@ arguments compiles from `load-path'."
 	  found)
       (while (and dirs (not found))
 	(if (file-exists-p (expand-file-name (concat file ".el") (car dirs)))
-	    (setq found (expand-file-name file (car dirs)))
+	    (setq found (expand-file-name (concat file ".el") (car dirs)))
 	  (if (file-exists-p (expand-file-name file (car dirs)))
 	      (setq found (expand-file-name file (car dirs)))))
 	(setq dirs (cdr dirs)))