diff options
| author | Richard M. Stallman | 2001-12-25 08:14:45 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2001-12-25 08:14:45 +0000 |
| commit | f27b0335d14f001c7eb517f0389b708da04591ca (patch) | |
| tree | dde5690dd90549115a93fb2d402afe04a2671e56 | |
| parent | 96c01bd4e39e89cb72d9c246b09016e9e364c1ba (diff) | |
| download | emacs-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.el | 5 |
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 | ||