Require `button'.
(debugger-mode-map): Set the parent keymap to `button-buffer-map', to get TAB and <backtab> bindings.
This commit is contained in:
parent
afcdd7bd28
commit
bb9a622e93
1 changed files with 4 additions and 1 deletions
|
@ -1,6 +1,6 @@
|
|||
;;; debug.el --- debuggers and related commands for Emacs
|
||||
|
||||
;; Copyright (C) 1985, 1986, 1994 Free Software Foundation, Inc.
|
||||
;; Copyright (C) 1985, 1986, 1994, 2001 Free Software Foundation, Inc.
|
||||
|
||||
;; Maintainer: FSF
|
||||
;; Keywords: lisp, tools, maint
|
||||
|
@ -28,6 +28,8 @@
|
|||
|
||||
;;; Code:
|
||||
|
||||
(require 'button)
|
||||
|
||||
(defgroup debugger nil
|
||||
"Debuggers and related commands for Emacs."
|
||||
:prefix "debugger-"
|
||||
|
@ -526,6 +528,7 @@ Applies to the frame whose line point is on in the backtrace."
|
|||
(unless debugger-mode-map
|
||||
(let ((loop ? ))
|
||||
(setq debugger-mode-map (make-keymap))
|
||||
(set-keymap-parent debugger-mode-map button-buffer-map)
|
||||
(suppress-keymap debugger-mode-map)
|
||||
(define-key debugger-mode-map "-" 'negative-argument)
|
||||
(define-key debugger-mode-map "b" 'debugger-frame)
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue