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