[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
emacs-29 91d2d8439bb: * Handle missing eln file when trying to disassble
From: |
Andrea Corallo |
Subject: |
emacs-29 91d2d8439bb: * Handle missing eln file when trying to disassble (bug#65455) |
Date: |
Sun, 27 Aug 2023 11:40:49 -0400 (EDT) |
branch: emacs-29
commit 91d2d8439bb3a3e5ff739396af44bd0314b6f3c3
Author: Andrea Corallo <acorallo@gnu.org>
Commit: Andrea Corallo <acorallo@gnu.org>
* Handle missing eln file when trying to disassble (bug#65455)
* lisp/emacs-lisp/disass.el (disassemble-internal): Handle missing
eln file.
---
lisp/emacs-lisp/disass.el | 6 ++++--
1 file 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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- emacs-29 91d2d8439bb: * Handle missing eln file when trying to disassble (bug#65455),
Andrea Corallo <=