From: Glenn Morris <rgm@gnu.org>
Date: Tue, 15 Sep 2009 02:35:47 +0000 (+0000)
Subject: (find-lisp-object-file-name): When looking for autoloaded
X-Git-Tag: emacs-pretest-23.1.90~1314
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=273cefaa42993ba487c95a90f0895f8196155a15;p=emacs.git

(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).
---

diff --git a/lisp/help-fns.el b/lisp/help-fns.el
index de60cd5fea2..2425310cd93 100644
--- a/lisp/help-fns.el
+++ b/lisp/help-fns.el
@@ -267,8 +267,9 @@ suitable file is found, return nil."
 		   "^;;; 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))