Mercurial > emacs
diff lisp/emacs-lisp/debug.el @ 40583:87996dd441b7
easy source access from the *debugger* buffer
author | Sam Steingold <sds@gnu.org> |
---|---|
date | Wed, 31 Oct 2001 19:32:26 +0000 |
parents | 5385b12ef9a8 |
children | d3f3e805f0fc |
line wrap: on
line diff
--- a/lisp/emacs-lisp/debug.el Wed Oct 31 18:28:11 2001 +0000 +++ b/lisp/emacs-lisp/debug.el Wed Oct 31 19:32:26 2001 +0000 @@ -267,7 +267,20 @@ (prin1 (if (eq (car debugger-args) 'nil) (cdr debugger-args) debugger-args) (current-buffer)) - (insert ?\n)))) + (insert ?\n))) + (debugger-make-xrefs)) + +(defun debugger-make-xrefs (&optional buffer) + "Create cross-references in the debugger buffer." + (interactive "b") + (save-excursion + (set-buffer (or buffer (current-buffer))) + (goto-char (point-min)) + (let ((buffer-read-only nil)) + (while (re-search-forward "^[* ] (?\\(\\(\\sw\\|\\s_\\)+\\)" nil t) + (let* ((sym (intern-soft (match-string 1))) + (file (symbol-file sym))) + (when file (help-xref-button 1 'help-function-def sym file))))))) (defun debugger-step-through () "Proceed, stepping through subexpressions of this expression. @@ -441,8 +454,7 @@ (debugger-env-macro (eval-expression exp))) (defvar debugger-mode-map nil) -(if debugger-mode-map - nil +(unless debugger-mode-map (let ((loop ? )) (setq debugger-mode-map (make-keymap)) (suppress-keymap debugger-mode-map) @@ -459,6 +471,8 @@ (define-key debugger-mode-map "e" 'debugger-eval-expression) (define-key debugger-mode-map " " 'next-line) (define-key debugger-mode-map "R" 'debugger-record-expression) + (define-key debugger-mode-map [RET] 'help-follow) + (define-key debugger-mode-map [mouse-2] 'push-button) ))