diff options
| author | Miles Bader | 2002-03-14 09:02:36 +0000 |
|---|---|---|
| committer | Miles Bader | 2002-03-14 09:02:36 +0000 |
| commit | bb9a622e93f18f58509611ce66e9deed371fed05 (patch) | |
| tree | 5e91b6a6f9505a8a90b5bef107b1c227be98211d | |
| parent | afcdd7bd284aa9fe8ab4bbf9783750b31bca612d (diff) | |
| download | emacs-bb9a622e93f18f58509611ce66e9deed371fed05.tar.gz emacs-bb9a622e93f18f58509611ce66e9deed371fed05.zip | |
Require `button'.
(debugger-mode-map): Set the parent keymap to `button-buffer-map',
to get TAB and <backtab> bindings.
| -rw-r--r-- | lisp/emacs-lisp/debug.el | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/debug.el b/lisp/emacs-lisp/debug.el index a768d39b492..1f3f4b3f56c 100644 --- a/lisp/emacs-lisp/debug.el +++ b/lisp/emacs-lisp/debug.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; debug.el --- debuggers and related commands for Emacs | 1 | ;;; debug.el --- debuggers and related commands for Emacs |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1985, 1986, 1994 Free Software Foundation, Inc. | 3 | ;; Copyright (C) 1985, 1986, 1994, 2001 Free Software Foundation, Inc. |
| 4 | 4 | ||
| 5 | ;; Maintainer: FSF | 5 | ;; Maintainer: FSF |
| 6 | ;; Keywords: lisp, tools, maint | 6 | ;; Keywords: lisp, tools, maint |
| @@ -28,6 +28,8 @@ | |||
| 28 | 28 | ||
| 29 | ;;; Code: | 29 | ;;; Code: |
| 30 | 30 | ||
| 31 | (require 'button) | ||
| 32 | |||
| 31 | (defgroup debugger nil | 33 | (defgroup debugger nil |
| 32 | "Debuggers and related commands for Emacs." | 34 | "Debuggers and related commands for Emacs." |
| 33 | :prefix "debugger-" | 35 | :prefix "debugger-" |
| @@ -526,6 +528,7 @@ Applies to the frame whose line point is on in the backtrace." | |||
| 526 | (unless debugger-mode-map | 528 | (unless debugger-mode-map |
| 527 | (let ((loop ? )) | 529 | (let ((loop ? )) |
| 528 | (setq debugger-mode-map (make-keymap)) | 530 | (setq debugger-mode-map (make-keymap)) |
| 531 | (set-keymap-parent debugger-mode-map button-buffer-map) | ||
| 529 | (suppress-keymap debugger-mode-map) | 532 | (suppress-keymap debugger-mode-map) |
| 530 | (define-key debugger-mode-map "-" 'negative-argument) | 533 | (define-key debugger-mode-map "-" 'negative-argument) |
| 531 | (define-key debugger-mode-map "b" 'debugger-frame) | 534 | (define-key debugger-mode-map "b" 'debugger-frame) |