diff options
| author | Andrea Corallo <acorallo@gnu.org> | 2023-08-27 18:59:40 +0200 |
|---|---|---|
| committer | Andrea Corallo <acorallo@gnu.org> | 2023-08-27 19:03:48 +0200 |
| commit | ea5fd6c96bcf62e999ed2b8491b7a80e9e52ec33 (patch) | |
| tree | 9a0e0de866d01cc4d61d056842f0e412e447d374 /lisp/emacs-lisp | |
| parent | 91d2d8439bb3a3e5ff739396af44bd0314b6f3c3 (diff) | |
| download | emacs-ea5fd6c96bcf62e999ed2b8491b7a80e9e52ec33.tar.gz emacs-ea5fd6c96bcf62e999ed2b8491b7a80e9e52ec33.tar.bz2 emacs-ea5fd6c96bcf62e999ed2b8491b7a80e9e52ec33.zip | |
* Fix native disassemble on Windows platforms (bug#65455)
* lisp/emacs-lisp/disass.el (disassemble-internal): Improve regexp.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/disass.el | 11 |
1 files 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 #<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) |