X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Flib-complete.el;h=ea0bc696ff1fcb808df393758a281327b778b945;hb=126b1c706cde7fda7e1cf5f1851371a25400d5a4;hp=69d5554b4f627b024d12852403bc2baa265815b1;hpb=da416a1945940b3f952144475eb1a1357430527d;p=chise%2Fxemacs-chise.git.1

diff --git a/lisp/lib-complete.el b/lisp/lib-complete.el
index 69d5554..ea0bc69 100644
--- a/lisp/lib-complete.el
+++ b/lisp/lib-complete.el
@@ -128,8 +128,8 @@ Display MESSAGE and evaluate FORMS, returning value of the last one."
 ;;=== Completion caching ==================================================
 
 (defconst lib-complete:cache nil
-  "Used within read-library and read-library-internal to prevent 
-costly repeated calls to library-all-completions.
+  "Used within `read-library' and `read-library-internal' to prevent 
+costly repeated calls to `library-all-completions'.
 Format is a list of lists of the form
 
     ([<path> <subdir>] <cache-record> <cache-record> ...)
@@ -306,10 +306,7 @@ and CODESYS.  The default for DISPLAY-FUNCTION is `find-file'."
   (let ((path (if (or (null library) (equal library ""))
 		   nil
 		(locate-file library load-path
-			     ;; decompression doesn't work with Mule -slb
-			     (if (featurep 'mule)
-				 ":.el:.elc"
-			       ":.el:.el.gz:.el.Z:.elc")))))
+			       ":.el:.el.gz:.el.Z:.elc"))))
     (if path (funcall (if (fboundp display-function)
 			  display-function 'find-file)
 		      path codesys)