update.

[chise/xemacs-chise.git-] / lisp / lib-complete.el

diff --git a/lisp/lib-complete.el b/lisp/lib-complete.el
index ea0bc69..bbdc5d8 100644 (file)
--- a/lisp/lib-complete.el
+++ b/lisp/lib-complete.el
@@ -306,7 +306,10 @@ and CODESYS.  The default for DISPLAY-FUNCTION is `find-file'."
   (let ((path (if (or (null library) (equal library ""))
                   nil
                (locate-file library load-path
-                              ":.el:.el.gz:.el.Z:.elc"))))
+                            ;; decompression doesn't work with Mule -slb
+                            (if (featurep 'mule)
+                                ":.el:.elc"
+                              ":.el:.el.gz:.el.Z:.elc")))))
     (if path (funcall (if (fboundp display-function)
                          display-function 'find-file)
                      path codesys)