diff options
Diffstat (limited to 'lisp/emacs-lisp/disass.el')
| -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) |