]> git.eshelyaron.com Git - emacs.git/commitdiff
* lisp/help-fns.el (find-lisp-object-file-name): Fix bug#62376 part2
authorStefan Monnier <monnier@iro.umontreal.ca>
Thu, 23 Mar 2023 17:43:45 +0000 (13:43 -0400)
committerStefan Monnier <monnier@iro.umontreal.ca>
Thu, 23 Mar 2023 17:43:45 +0000 (13:43 -0400)
Nowadays `loaddefs.el` are byte-compiled, so adjust pattern accordingly

lisp/help-fns.el

index a81051cee03ab7150921fcd2b0f7a06b884afa83..a1fc22675649407a1abda2318e39050ef1cdfbd6 100644 (file)
@@ -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'.