mirror of
git://git.sv.gnu.org/emacs.git
synced 2025-12-06 22:41:06 -08:00
Prefer defvar-keymap in emacs-lisp/*.el
* lisp/emacs-lisp/backtrace.el (backtrace-mode-map): * lisp/emacs-lisp/bytecomp.el (emacs-lisp-compilation-mode-map): * lisp/emacs-lisp/checkdoc.el (checkdoc-minor-mode-map): * lisp/emacs-lisp/crm.el (crm-local-completion-map) (crm-local-must-match-map): * lisp/emacs-lisp/debug.el (debugger-mode-map): * lisp/emacs-lisp/edebug.el (edebug-mode-map, edebug-global-map) (edebug-eval-mode-map): * lisp/emacs-lisp/eieio-custom.el (eieio-custom-mode-map): * lisp/emacs-lisp/elp.el (elp-results-symname-map): * lisp/emacs-lisp/lisp-mode.el (lisp-mode-shared-map): * lisp/emacs-lisp/re-builder.el (reb-mode-map) (reb-lisp-mode-map, reb-subexp-mode-map): * lisp/emacs-lisp/tabulated-list.el (tabulated-list-mode-map) (tabulated-list-sort-button-map): * lisp/emacs-lisp/timer-list.el (timer-list-mode-map):
This commit is contained in:
parent
616d3c24e2
commit
162c6c12f9
12 changed files with 314 additions and 347 deletions
|
|
@ -560,52 +560,53 @@ The environment used is the one when entering the activation frame at point."
|
|||
'backtrace-toggle-locals "28.1")
|
||||
|
||||
|
||||
(defvar debugger-mode-map
|
||||
(let ((map (make-keymap)))
|
||||
(set-keymap-parent map backtrace-mode-map)
|
||||
(define-key map "b" 'debugger-frame)
|
||||
(define-key map "c" 'debugger-continue)
|
||||
(define-key map "j" 'debugger-jump)
|
||||
(define-key map "r" 'debugger-return-value)
|
||||
(define-key map "u" 'debugger-frame-clear)
|
||||
(define-key map "d" 'debugger-step-through)
|
||||
(define-key map "l" 'debugger-list-functions)
|
||||
(define-key map "q" 'debugger-quit)
|
||||
(define-key map "e" 'debugger-eval-expression)
|
||||
(define-key map "R" 'debugger-record-expression)
|
||||
(define-key map [mouse-2] 'push-button)
|
||||
(easy-menu-define nil map ""
|
||||
'("Debugger"
|
||||
["Step through" debugger-step-through
|
||||
:help "Proceed, stepping through subexpressions of this expression"]
|
||||
["Continue" debugger-continue
|
||||
:help "Continue, evaluating this expression without stopping"]
|
||||
["Jump" debugger-jump
|
||||
:help "Continue to exit from this frame, with all debug-on-entry suspended"]
|
||||
["Eval Expression..." debugger-eval-expression
|
||||
:help "Eval an expression, in an environment like that outside the debugger"]
|
||||
["Display and Record Expression" debugger-record-expression
|
||||
:help "Display a variable's value and record it in `*Backtrace-record*' buffer"]
|
||||
["Return value..." debugger-return-value
|
||||
:help "Continue, specifying value to return."]
|
||||
"--"
|
||||
["Debug frame" debugger-frame
|
||||
:help "Request entry to debugger when this frame exits"]
|
||||
["Cancel debug frame" debugger-frame-clear
|
||||
:help "Do not enter debugger when this frame exits"]
|
||||
["List debug on entry functions" debugger-list-functions
|
||||
:help "Display a list of all the functions now set to debug on entry"]
|
||||
"--"
|
||||
["Next Line" next-line
|
||||
:help "Move cursor down"]
|
||||
["Help for Symbol" backtrace-help-follow-symbol
|
||||
:help "Show help for symbol at point"]
|
||||
["Describe Debugger Mode" describe-mode
|
||||
:help "Display documentation for debugger-mode"]
|
||||
"--"
|
||||
["Quit" debugger-quit
|
||||
:help "Quit debugging and return to top level"]))
|
||||
map))
|
||||
(defvar-keymap debugger-mode-map
|
||||
:full t
|
||||
:parent backtrace-mode-map
|
||||
"b" #'debugger-frame
|
||||
"c" #'debugger-continue
|
||||
"j" #'debugger-jump
|
||||
"r" #'debugger-return-value
|
||||
"u" #'debugger-frame-clear
|
||||
"d" #'debugger-step-through
|
||||
"l" #'debugger-list-functions
|
||||
"q" #'debugger-quit
|
||||
"e" #'debugger-eval-expression
|
||||
"R" #'debugger-record-expression
|
||||
|
||||
"<mouse-2>" #'push-button
|
||||
|
||||
:menu
|
||||
'("Debugger"
|
||||
["Step through" debugger-step-through
|
||||
:help "Proceed, stepping through subexpressions of this expression"]
|
||||
["Continue" debugger-continue
|
||||
:help "Continue, evaluating this expression without stopping"]
|
||||
["Jump" debugger-jump
|
||||
:help "Continue to exit from this frame, with all debug-on-entry suspended"]
|
||||
["Eval Expression..." debugger-eval-expression
|
||||
:help "Eval an expression, in an environment like that outside the debugger"]
|
||||
["Display and Record Expression" debugger-record-expression
|
||||
:help "Display a variable's value and record it in `*Backtrace-record*' buffer"]
|
||||
["Return value..." debugger-return-value
|
||||
:help "Continue, specifying value to return."]
|
||||
"--"
|
||||
["Debug frame" debugger-frame
|
||||
:help "Request entry to debugger when this frame exits"]
|
||||
["Cancel debug frame" debugger-frame-clear
|
||||
:help "Do not enter debugger when this frame exits"]
|
||||
["List debug on entry functions" debugger-list-functions
|
||||
:help "Display a list of all the functions now set to debug on entry"]
|
||||
"--"
|
||||
["Next Line" next-line
|
||||
:help "Move cursor down"]
|
||||
["Help for Symbol" backtrace-help-follow-symbol
|
||||
:help "Show help for symbol at point"]
|
||||
["Describe Debugger Mode" describe-mode
|
||||
:help "Display documentation for debugger-mode"]
|
||||
"--"
|
||||
["Quit" debugger-quit
|
||||
:help "Quit debugging and return to top level"]))
|
||||
|
||||
(put 'debugger-mode 'mode-class 'special)
|
||||
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue