Mercurial > hg > xemacs-beta

comparison lisp/lib-complete.el @ 953:c1e8977783ed

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2002-08-04 00:05:43 by youngs] 2002-08-03 Steve Youngs <youngs@xemacs.org> * lib-complete.el (find-library): Remove check for mule because decompression DOES work on Mule.
author youngs
date Sun, 04 Aug 2002 00:05:48 +0000
parents 943eaba38521
children 37bdd24225ef
comparison
equal deleted inserted replaced
952:c10d0c3f965f 953:c1e8977783ed
326 (if current-prefix-arg 326 (if current-prefix-arg
327 (read-coding-system "Coding System: ")))) 327 (read-coding-system "Coding System: "))))
328 (let ((path (if (or (null library) (equal library "")) 328 (let ((path (if (or (null library) (equal library ""))
329 nil 329 nil
330 (locate-file library (or find-library-source-path load-path) 330 (locate-file library (or find-library-source-path load-path)
331 ;; decompression doesn't work with Mule -slb 331 ":.el:.el.gz:.el.Z:.elc"))))
332 ;; !!#### fix this
333 (if (featurep 'mule)
334 ":.el:.elc"
335 ":.el:.el.gz:.el.Z:.elc")))))
336 (if path (funcall (if (fboundp display-function) 332 (if path (funcall (if (fboundp display-function)
337 display-function 'find-file) 333 display-function 'find-file)
338 path codesys) 334 path codesys)
339 (error "(find-library): Cannot locate library `%s'" library)))) 335 (error "(find-library): Cannot locate library `%s'" library))))
340 336