* Fix native disassemble on Windows platforms (bug#65455)

* lisp/emacs-lisp/disass.el (disassemble-internal): Improve regexp.

diff --git a/lisp/emacs-lisp/disass.el b/lisp/emacs-lisp/disass.el
index 859a494a6979ecdae37c22b924eb96801861f207..f9f7448d81c28f19e6146d79074ea2a2ab49c014 100644 (file)
--- a/lisp/emacs-lisp/disass.el
+++ b/lisp/emacs-lisp/disass.el
@@ -94,14 +94,11 @@ redefine OBJECT if it is a symbol."
                     (call-process "objdump" nil (current-buffer) t "-S" eln)
                   (error "Missing eln file for #<subr %s>" name)))
               (goto-char (point-min))
-              (re-search-forward (concat "^.*"
+              (re-search-forward (concat "^.*<_?"
                                          (regexp-quote
-                                          (concat "<"
-                                                  (when (eq system-type 'darwin)
-                                                    "_")
-                                                  (comp-c-func-name
-                                                   (subr-name obj) "F" t)
-                                                  ">:"))))
+                                          (comp-c-func-name
+                                           (subr-name obj) "F" t))
+                                         ">:"))
               (beginning-of-line)
               (delete-region (point-min) (point))
               (when (re-search-forward "^.*<.*>:" nil t 2)