aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorGemini Lasswell2018-06-25 13:23:03 -0700
committerGemini Lasswell2018-08-03 08:53:02 -0700
commit9aa9d79e4420f367242312aedd61594fd173dec6 (patch)
tree12b8c1e81574ead6cdf4d3a2e64a6b3b56e08669
parentbb9de872e86372c8a2475503e6be6b6bd64e06d6 (diff)
downloademacs-9aa9d79e4420f367242312aedd61594fd173dec6.tar.gz
emacs-9aa9d79e4420f367242312aedd61594fd173dec6.zip
Add links in backtraces to functions written in C (bug#25393)
* lisp/emacs-lisp/backtrace.el (backtrace--print-func-and-args): Look up file names for built-in functions with evaluated arguments.
-rw-r--r--lisp/emacs-lisp/backtrace.el6
1 files changed, 5 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/backtrace.el b/lisp/emacs-lisp/backtrace.el
index d6c04bb4c67..bec57f29245 100644
--- a/lisp/emacs-lisp/backtrace.el
+++ b/lisp/emacs-lisp/backtrace.el
@@ -651,7 +651,11 @@ Format it according to VIEW."
651 (evald (backtrace-frame-evald frame)) 651 (evald (backtrace-frame-evald frame))
652 (fun (backtrace-frame-fun frame)) 652 (fun (backtrace-frame-fun frame))
653 (args (backtrace-frame-args frame)) 653 (args (backtrace-frame-args frame))
654 (fun-file (symbol-file fun 'defun)) 654 (def (and (symbolp fun) (fboundp fun) (symbol-function fun)))
655 (fun-file (or (symbol-file fun 'defun)
656 (and (subrp def)
657 (not (eq 'unevalled (cdr (subr-arity def))))
658 (find-lisp-object-file-name fun def))))
655 (fun-pt (point))) 659 (fun-pt (point)))
656 (cond 660 (cond
657 ((and evald (not debugger-stack-frame-as-list)) 661 ((and evald (not debugger-stack-frame-as-list))