procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* lisp/emacs-lisp/debug.el (debugger-mode-map): Use easy-menu-define.

Browse source
This commit is contained in:
Gemini Lasswell 2018-07-15 15:41:56 -07:00
parent a3ba34aeac
commit 9879151890
1 changed files with 32 additions and 45 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

77
lisp/emacs-lisp/debug.el
View file

@ -530,8 +530,7 @@ The environment used is the one when entering the activation frame at point."
(defvar debugger-mode-map (defvar debugger-mode-map
(let ((map (make-keymap)) (let ((map (make-keymap)))
(menu-map (make-sparse-keymap)))
(set-keymap-parent map backtrace-mode-map) (set-keymap-parent map backtrace-mode-map)
(define-key map "b" 'debugger-frame) (define-key map "b" 'debugger-frame)
(define-key map "c" 'debugger-continue) (define-key map "c" 'debugger-continue)
@ -544,49 +543,37 @@ The environment used is the one when entering the activation frame at point."
(define-key map "e" 'debugger-eval-expression) (define-key map "e" 'debugger-eval-expression)
(define-key map "R" 'debugger-record-expression) (define-key map "R" 'debugger-record-expression)
(define-key map [mouse-2] 'push-button) (define-key map [mouse-2] 'push-button)
(define-key map [menu-bar debugger] (cons "Debugger" menu-map)) (easy-menu-define nil map ""
(define-key menu-map [deb-top] '("Debugger"
'(menu-item "Quit" debugger-quit ["Step through" debugger-step-through
:help "Quit debugging and return to top level")) :help "Proceed, stepping through subexpressions of this expression"]
(define-key menu-map [deb-s0] '("--")) ["Continue" debugger-continue
(define-key menu-map [deb-descr] :help "Continue, evaluating this expression without stopping"]
'(menu-item "Describe Debugger Mode" describe-mode ["Jump" debugger-jump
:help "Display documentation for debugger-mode")) :help "Continue to exit from this frame, with all debug-on-entry suspended"]
(define-key menu-map [deb-hfol] ["Eval Expression..." debugger-eval-expression
'(menu-item "Help Follow" backtrace-help-follow-symbol :help "Eval an expression, in an environment like that outside the debugger"]
:help "Follow cross-reference")) ["Display and Record Expression" debugger-record-expression
(define-key menu-map [deb-nxt] :help "Display a variable's value and record it in `*Backtrace-record*' buffer"]
'(menu-item "Next Line" next-line ["Return value..." debugger-return-value
:help "Move cursor down")) :help "Continue, specifying value to return."]
(define-key menu-map [deb-s1] '("--")) "--"
(define-key menu-map [deb-lfunc] ["Debug frame" debugger-frame
'(menu-item "List debug on entry functions" debugger-list-functions :help "Request entry to debugger when this frame exits"]
:help "Display a list of all the functions now set to debug on entry")) ["Cancel debug frame" debugger-frame-clear
(define-key menu-map [deb-fclear] :help "Do not enter debugger when this frame exits"]
'(menu-item "Cancel debug frame" debugger-frame-clear ["List debug on entry functions" debugger-list-functions
:help "Do not enter debugger when this frame exits")) :help "Display a list of all the functions now set to debug on entry"]
(define-key menu-map [deb-frame] "--"
'(menu-item "Debug frame" debugger-frame ["Next Line" next-line
:help "Request entry to debugger when this frame exits")) :help "Move cursor down"]
(define-key menu-map [deb-s2] '("--")) ["Help Follow" backtrace-help-follow-symbol
(define-key menu-map [deb-ret] :help "Follow cross-reference"]
'(menu-item "Return value..." debugger-return-value ["Describe Debugger Mode" describe-mode
:help "Continue, specifying value to return.")) :help "Display documentation for debugger-mode"]
(define-key menu-map [deb-rec] "--"
'(menu-item "Display and Record Expression" debugger-record-expression ["Quit" debugger-quit
:help "Display a variable's value and record it in `*Backtrace-record*' buffer")) :help "Quit debugging and return to top level"]))
(define-key menu-map [deb-eval]
'(menu-item "Eval Expression..." debugger-eval-expression
:help "Eval an expression, in an environment like that outside the debugger"))
(define-key menu-map [deb-jump]
'(menu-item "Jump" debugger-jump
:help "Continue to exit from this frame, with all debug-on-entry suspended"))
(define-key menu-map [deb-cont]
'(menu-item "Continue" debugger-continue
:help "Continue, evaluating this expression without stopping"))
(define-key menu-map [deb-step]
'(menu-item "Step through" debugger-step-through
:help "Proceed, stepping through subexpressions of this expression"))
map)) map))
(put 'debugger-mode 'mode-class 'special) (put 'debugger-mode 'mode-class 'special)