From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Thu, 23 Mar 2023 17:43:45 +0000 (-0400)
Subject: * lisp/help-fns.el (find-lisp-object-file-name): Fix bug#62376 part2
X-Git-Tag: emacs-29.0.90~101
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d93a439846f03dfb2be28d6b5c2e963ef6be0c22;p=emacs.git

* lisp/help-fns.el (find-lisp-object-file-name): Fix bug#62376 part2

Nowadays `loaddefs.el` are byte-compiled, so adjust pattern accordingly
---

diff --git a/lisp/help-fns.el b/lisp/help-fns.el
index a81051cee03..a1fc2267564 100644
--- a/lisp/help-fns.el
+++ b/lisp/help-fns.el
@@ -437,7 +437,7 @@ the C sources, too."
       (setq file-name
 	    (locate-file file-name load-path '(".el" ".elc") 'readable)))
      ((and (stringp file-name)
-	   (string-match "[.]*loaddefs.el\\'" file-name))
+	   (string-match "[.]*loaddefs.elc?\\'" file-name))
       ;; An autoloaded variable or face.  Visit loaddefs.el in a buffer
       ;; and try to extract the defining file.  The following form is
       ;; from `describe-function-1' and `describe-variable'.