aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorRichard M. Stallman2001-12-25 08:14:45 +0000
committerRichard M. Stallman2001-12-25 08:14:45 +0000
commitf27b0335d14f001c7eb517f0389b708da04591ca (patch)
treedde5690dd90549115a93fb2d402afe04a2671e56
parent96c01bd4e39e89cb72d9c246b09016e9e364c1ba (diff)
downloademacs-f27b0335d14f001c7eb517f0389b708da04591ca.tar.gz
emacs-f27b0335d14f001c7eb517f0389b708da04591ca.zip
(debugger-mode-map): Bind C-m, not `RET'.
(debugger-make-xrefs): Only make a button for the first symbol on any line.
-rw-r--r--lisp/emacs-lisp/debug.el5
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/emacs-lisp/debug.el b/lisp/emacs-lisp/debug.el
index 63e77bb2595..028344612e7 100644
--- a/lisp/emacs-lisp/debug.el
+++ b/lisp/emacs-lisp/debug.el
@@ -337,7 +337,8 @@ That buffer should be current already."
337 ;; help-xref-button needs to operate on something matched 337 ;; help-xref-button needs to operate on something matched
338 ;; by a regexp, so set that up for it. 338 ;; by a regexp, so set that up for it.
339 (re-search-forward "\\(\\(\\sw\\|\\s_\\)+\\)") 339 (re-search-forward "\\(\\(\\sw\\|\\s_\\)+\\)")
340 (help-xref-button 1 'help-function-def sym file)))) 340 (help-xref-button 1 'help-function-def sym file)))
341 (forward-line 1))
341 (widen)) 342 (widen))
342 (setq debugger-previous-backtrace (buffer-string)))) 343 (setq debugger-previous-backtrace (buffer-string))))
343 344
@@ -530,7 +531,7 @@ Applies to the frame whose line point is on in the backtrace."
530 (define-key debugger-mode-map "e" 'debugger-eval-expression) 531 (define-key debugger-mode-map "e" 'debugger-eval-expression)
531 (define-key debugger-mode-map " " 'next-line) 532 (define-key debugger-mode-map " " 'next-line)
532 (define-key debugger-mode-map "R" 'debugger-record-expression) 533 (define-key debugger-mode-map "R" 'debugger-record-expression)
533 (define-key debugger-mode-map [RET] 'help-follow) 534 (define-key debugger-mode-map "\C-m" 'help-follow)
534 (define-key debugger-mode-map [mouse-2] 'push-button) 535 (define-key debugger-mode-map [mouse-2] 'push-button)
535 )) 536 ))
536 537