[Emacs-diffs] emacs/lisp help-fns.el

[Glenn Morris]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Glenn Morris <gm>       09/09/15 02:35:47

Modified files:
        lisp           : help-fns.el 

Log message:
        (find-lisp-object-file-name): When looking for autoloaded
        variables, also consider the .elc files, since the .el files are
        normally gzipped (subsequent code locates the .el.gz from the .elc).

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/help-fns.el?cvsroot=emacs&r1=1.138&r2=1.139

Patches:
Index: help-fns.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/help-fns.el,v
retrieving revision 1.138
retrieving revision 1.139
diff -u -b -r1.138 -r1.139
--- help-fns.el 11 Sep 2009 03:40:14 -0000      1.138
+++ help-fns.el 15 Sep 2009 02:35:47 -0000      1.139
@@ -267,8 +267,9 @@
                   "^;;; Generated autoloads from \\(.*\\)" nil t)
              (setq file-name
                    (locate-file
-                    (match-string-no-properties 1)
-                    load-path nil 'readable))))))))
+                    (file-name-sans-extension
+                     (match-string-no-properties 1))
+                    load-path '(".el" ".elc") 'readable))))))))
 
     (cond
      ((and (not file-name) (subrp type))