[Emacs-diffs] Changes to emacs/lisp/help-fns.el,v

[Martin Rudalics]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Martin Rudalics <m061211>       08/09/08 06:36:23

Index: help-fns.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/help-fns.el,v
retrieving revision 1.125
retrieving revision 1.126
diff -u -b -r1.125 -r1.126
--- help-fns.el 1 Sep 2008 08:04:40 -0000       1.125
+++ help-fns.el 8 Sep 2008 06:36:23 -0000       1.126
@@ -295,7 +295,9 @@
        ;; When the Elisp source file can be found in the install
        ;; directory return the name of that file - `file-name' should
        ;; have become an absolute file name ny now.
-       (and (file-readable-p lib-name) lib-name)))
+       (or (and (file-readable-p lib-name) lib-name)
+           ;; The library might be compressed.
+           (and (file-readable-p (concat lib-name ".gz")) lib-name))))
      ((let* ((lib-name (file-name-nondirectory file-name))
             ;; The next form is from `describe-simplify-lib-file-name'.
             (file-name