Merge branch 'feature/native-comp' into feature/native-comp-macos-fixesfeature/native-comp-macos-fixes

1 files changed, 2 insertions, 4 deletions

diff --git a/lisp/help-fns.el b/lisp/help-fns.el
index afca2cd932e..49cdb4ed5e4 100644
--- a/lisp/help-fns.el
+++ b/lisp/help-fns.el
@@ -333,10 +333,8 @@ suitable file is found, return nil."
                          object (or (if (symbolp type) type) 'defun))))
          (file-name (if (and true-name
                              (string-match "[.]eln\\'" true-name))
-                        (expand-file-name (concat (file-name-base true-name)
-                                                  ".el")
-                                          (concat (file-name-directory true-name)
-                                                  ".."))
+                        (gethash (file-name-nondirectory true-name)
+                                 comp-eln-to-el-h)
                       true-name)))
     (cond
      (autoloaded