From: Andrea Corallo <acorallo@gnu.org>
Date: Sun, 27 Aug 2023 14:51:16 +0000 (+0200)
Subject: * Handle missing eln file when trying to disassble (bug#65455)
X-Git-Tag: emacs-29.1.90~171
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=91d2d8439bb;p=emacs.git

* Handle missing eln file when trying to disassble (bug#65455)

* lisp/emacs-lisp/disass.el (disassemble-internal): Handle missing
eln file.
---

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