find-library, find-function: Mule DOES support decompression, slb.
I use Debian GNU/Linux, and have the lisp source installed. The
source files are gzipped. I attempted to use "find-library", and got
the byte compiled program rather than the elisp source itself. It
tried "M-x find-function find-library", and found this:
8<------------------------------------------------------------>8
(defun find-library (library &optional codesys display-function)
"Find and display in the current window the source for the Elisp LIBRARY.
LIBRARY should be a name without any path information and may include or omit
the \".el\" suffix. Under XEmacs/Mule, the optional second argument CODESYS
specifies the coding system to use when decoding the file. Interactively,
with a prefix argument, this prompts for the coding system. Optional third
argument DISPLAY-FUNCTION must take two arguments, the filename to display
and CODESYS. The default for DISPLAY-FUNCTION is `find-file'."
(interactive
(list (read-library-name "Find library: ")
(if current-prefix-arg
(read-coding-system "Coding System: "))))
(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")))))
(if path (funcall (if (fboundp display-function)
display-function 'find-file)
path codesys)
(error "(find-library): Cannot locate library `%s'" library))))
8<------------------------------------------------------------>8
Note that in order to have found that, decompression must have worked,
therefore "slb" is WRONG and that "if" can go away please.
(featurep 'mule)
==> t
... is the case with this XEmacs "Honest Recruiter".
--
As any limb well and duly exercised, grows stronger,
the nerves of the body are corroborated thereby. --I. Watts. .''`.
We are deB.ORG; You will be freed. : :' :
<URL:http://www.debian.org/social_contract> `. `'