diff options
| author | Andrea Corallo <acorallo@gnu.org> | 2023-08-27 16:51:16 +0200 |
|---|---|---|
| committer | Andrea Corallo <acorallo@gnu.org> | 2023-08-27 17:04:08 +0200 |
| commit | 91d2d8439bb3a3e5ff739396af44bd0314b6f3c3 (patch) | |
| tree | 2d9ebc2ec6fa76d910758482b0499e9fdb86aecf /lisp/emacs-lisp | |
| parent | e7ac50a153901a2ae05eee797959874a3297faa4 (diff) | |
| download | emacs-91d2d8439bb3a3e5ff739396af44bd0314b6f3c3.tar.gz emacs-91d2d8439bb3a3e5ff739396af44bd0314b6f3c3.tar.bz2 emacs-91d2d8439bb3a3e5ff739396af44bd0314b6f3c3.zip | |
* Handle missing eln file when trying to disassble (bug#65455)
* lisp/emacs-lisp/disass.el (disassemble-internal): Handle missing
eln file.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/disass.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/emacs-lisp/disass.el b/lisp/emacs-lisp/disass.el index 9dd08d00920..859a494a697 100644 --- a/lisp/emacs-lisp/disass.el +++ b/lisp/emacs-lisp/disass.el @@ -89,8 +89,10 @@ redefine OBJECT if it is a symbol." (subr-native-elisp-p obj)) (progn (require 'comp) - (call-process "objdump" nil (current-buffer) t "-S" - (native-comp-unit-file (subr-native-comp-unit obj))) + (let ((eln (native-comp-unit-file (subr-native-comp-unit obj)))) + (if (file-exists-p eln) + (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 "^.*" (regexp-quote |