From ea5fd6c96bcf62e999ed2b8491b7a80e9e52ec33 Mon Sep 17 00:00:00 2001 From: Andrea Corallo Date: Sun, 27 Aug 2023 18:59:40 +0200 Subject: [PATCH] * Fix native disassemble on Windows platforms (bug#65455) * lisp/emacs-lisp/disass.el (disassemble-internal): Improve regexp. --- lisp/emacs-lisp/disass.el | 11 ++++------- 1 file changed, 4 insertions(+), 7 deletions(-) diff --git a/lisp/emacs-lisp/disass.el b/lisp/emacs-lisp/disass.el index 859a494a697..f9f7448d81c 100644 --- 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 #" 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) -- 2.39.2