X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fcode-files.el;h=d74a11ca15b9f2b59899f2f6cb1c7302f6584ee4;hb=1b26bb036ab438e3e2c98ee8f09b2c6db472692d;hp=accbc0d91fc4a6a6273ec6ee71c226248e2ddcca;hpb=77dcef404dc78635f6ffa8f71a803d2bc7cc8921;p=chise%2Fxemacs-chise.git

diff --git a/lisp/code-files.el b/lisp/code-files.el
index accbc0d..d74a11c 100644
--- a/lisp/code-files.el
+++ b/lisp/code-files.el
@@ -271,7 +271,7 @@ Return t if file exists."
       (if (or (<= (length filename) 0)
 	      (null (setq path
 			  (locate-file filename load-path
-				       (and (not nosuffix) ".elc:.el:")))))
+				       (and (not nosuffix) '(".elc" ".el" ""))))))
 	  (and (null noerror)
 	       (signal 'file-error (list "Cannot open load file" filename)))
 	;; now use the internal load to actually load the file.