Mercurial > hg > xemacs-beta
diff lisp/utils/lib-complete.el @ 48:56c54cf7c5b6 r19-16b90
Import from CVS: tag r19-16b90
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 08:56:04 +0200 |
| parents | 0293115a14e9 |
| children | 131b0175ea99 |
line wrap: on
line diff
--- a/lisp/utils/lib-complete.el Mon Aug 13 08:55:32 2007 +0200 +++ b/lisp/utils/lib-complete.el Mon Aug 13 08:56:04 2007 +0200 @@ -5,7 +5,7 @@ ;; Last Modified By: Heiko M|nkel <muenkel@tnt.uni-hannover.de> ;; Additional XEmacs integration By: Chuck Thompson <cthomp@cs.uiuc.edu> ;; Last Modified On: Thu Jul 1 14:23:00 1994 -;; RCS Info : $Revision: 1.2 $ $Locker: $ +;; RCS Info : $Revision: 1.3 $ $Locker: $ ;; ======================================================================== ;; NOTE: this file must be recompiled if changed. ;; @@ -273,7 +273,11 @@ FILTER (or MUST-MATCH FULL) nil))) (cond ((equal library "") DEFAULT) - (FULL (locate-file library read-library-internal-search-path ".el:.elc")) + (FULL (locate-file library read-library-internal-search-path + ;; decompression doesn't work with Mule -slb + (if (featurep 'mule) + ".el:.elc" + ".el:.el.gz:.elc"))) (t library)))) ;; NOTE: as a special case, read-library may be used to read a filename @@ -286,8 +290,11 @@ "Front end to read-library" (read-library "Find Library file: " load-path nil t t (function (lambda (fn) - (cond - ((string-match "\\.el$" fn) + (cond + ;; decompression doesn't work with mule -slb + ((string-match (if (featurep 'mule) + "\\.el$" + "\\.el\\(\\.gz\\)?$") fn) (substring fn 0 (match-beginning 0)))))) ))