# HG changeset patch
# User Sam Steingold <sds@gnu.org>
# Date 1004556746 0
# Node ID 87996dd441b7d5ae3d242be2d8eaad44b2c75c69
# Parent  f520d592859d1d32e9d141b7b0af902e6f0fee6d
easy source access from the *debugger* buffer

diff -r f520d592859d -r 87996dd441b7 lisp/ChangeLog
--- a/lisp/ChangeLog	Wed Oct 31 18:28:11 2001 +0000
+++ b/lisp/ChangeLog	Wed Oct 31 19:32:26 2001 +0000
@@ -1,3 +1,9 @@
+2001-10-31  Sam Steingold  <sds@gnu.org>
+
+	* emacs-lisp/debug.el (debugger-make-xrefs): New function.
+	(debugger-setup-buffer): Call it.
+	(debugger-mode-map): Bind RET and mouse-2.
+
 2001-10-31  Pavel Jan,Bm(Bk  <Pavel@Janik.cz>
 
 	* startup.el: Document command line option --no-window-system
diff -r f520d592859d -r 87996dd441b7 lisp/emacs-lisp/debug.el
--- 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)
     ))