[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master 9879151 12/19: * lisp/emacs-lisp/debug.el (debugger
From: |
Gemini Lasswell |
Subject: |
[Emacs-diffs] master 9879151 12/19: * lisp/emacs-lisp/debug.el (debugger-mode-map): Use easy-menu-define. |
Date: |
Fri, 3 Aug 2018 13:32:58 -0400 (EDT) |
branch: master
commit 98791518902f5e7ccaf8661f43e222c28cac22c7
Author: Gemini Lasswell <address@hidden>
Commit: Gemini Lasswell <address@hidden>
* lisp/emacs-lisp/debug.el (debugger-mode-map): Use easy-menu-define.
---
lisp/emacs-lisp/debug.el | 77 ++++++++++++++++++++----------------------------
1 file changed, 32 insertions(+), 45 deletions(-)
diff --git a/lisp/emacs-lisp/debug.el b/lisp/emacs-lisp/debug.el
index 48ca32d..c6057b0 100644
--- a/lisp/emacs-lisp/debug.el
+++ b/lisp/emacs-lisp/debug.el
@@ -530,8 +530,7 @@ The environment used is the one when entering the
activation frame at point."
(defvar debugger-mode-map
- (let ((map (make-keymap))
- (menu-map (make-sparse-keymap)))
+ (let ((map (make-keymap)))
(set-keymap-parent map backtrace-mode-map)
(define-key map "b" 'debugger-frame)
(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 "R" 'debugger-record-expression)
(define-key map [mouse-2] 'push-button)
- (define-key map [menu-bar debugger] (cons "Debugger" menu-map))
- (define-key menu-map [deb-top]
- '(menu-item "Quit" debugger-quit
- :help "Quit debugging and return to top level"))
- (define-key menu-map [deb-s0] '("--"))
- (define-key menu-map [deb-descr]
- '(menu-item "Describe Debugger Mode" describe-mode
- :help "Display documentation for debugger-mode"))
- (define-key menu-map [deb-hfol]
- '(menu-item "Help Follow" backtrace-help-follow-symbol
- :help "Follow cross-reference"))
- (define-key menu-map [deb-nxt]
- '(menu-item "Next Line" next-line
- :help "Move cursor down"))
- (define-key menu-map [deb-s1] '("--"))
- (define-key menu-map [deb-lfunc]
- '(menu-item "List debug on entry functions" debugger-list-functions
- :help "Display a list of all the functions now set to debug
on entry"))
- (define-key menu-map [deb-fclear]
- '(menu-item "Cancel debug frame" debugger-frame-clear
- :help "Do not enter debugger when this frame exits"))
- (define-key menu-map [deb-frame]
- '(menu-item "Debug frame" debugger-frame
- :help "Request entry to debugger when this frame exits"))
- (define-key menu-map [deb-s2] '("--"))
- (define-key menu-map [deb-ret]
- '(menu-item "Return value..." debugger-return-value
- :help "Continue, specifying value to return."))
- (define-key menu-map [deb-rec]
- '(menu-item "Display and Record Expression" debugger-record-expression
- :help "Display a variable's value and record it in
`*Backtrace-record*' buffer"))
- (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"))
+ (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 Follow" backtrace-help-follow-symbol
+ :help "Follow cross-reference"]
+ ["Describe Debugger Mode" describe-mode
+ :help "Display documentation for debugger-mode"]
+ "--"
+ ["Quit" debugger-quit
+ :help "Quit debugging and return to top level"]))
map))
(put 'debugger-mode 'mode-class 'special)
- [Emacs-diffs] master 5b50fa5 04/19: Always make buttons from function names in backtraces, (continued)
- [Emacs-diffs] master 5b50fa5 04/19: Always make buttons from function names in backtraces, Gemini Lasswell, 2018/08/03
- [Emacs-diffs] master 2ede75c 10/19: Change keybinding for backtrace-collapse from '=' to '-', Gemini Lasswell, 2018/08/03
- [Emacs-diffs] master 8a76209 02/19: Add methods for strings to cl-print, Gemini Lasswell, 2018/08/03
- [Emacs-diffs] master d6b364e 05/19: Lazily print backtrace frame local variables, Gemini Lasswell, 2018/08/03
- [Emacs-diffs] master eba16e5 01/19: Support ellipsis expansion in cl-print, Gemini Lasswell, 2018/08/03
- [Emacs-diffs] master af5f377 08/19: Add link in backtraces to position in buffer being evaluated (bug#14081), Gemini Lasswell, 2018/08/03
- [Emacs-diffs] master 95b2ab3 18/19: Fix some documentation formatting nits, Gemini Lasswell, 2018/08/03
- [Emacs-diffs] master 58be6cb 17/19: Fix typo in edebug-backtrace-hide-instrumentation's docstring., Gemini Lasswell, 2018/08/03
- [Emacs-diffs] master ca98377 14/19: Add new commands to Edebug backtraces, Gemini Lasswell, 2018/08/03
- [Emacs-diffs] master bb9de87 06/19: Add prefix argument to backtrace-toggle-print-circle, Gemini Lasswell, 2018/08/03
- [Emacs-diffs] master 9879151 12/19: * lisp/emacs-lisp/debug.el (debugger-mode-map): Use easy-menu-define.,
Gemini Lasswell <=
- [Emacs-diffs] master 1459ad2 13/19: Add a menu for backtrace-mode, Gemini Lasswell, 2018/08/03
- [Emacs-diffs] master 3cd6a68 16/19: Give two backtrace-mode commands better names, Gemini Lasswell, 2018/08/03
- [Emacs-diffs] master 83af893 15/19: Move 'backtrace' from subr.el to backtrace.el, Gemini Lasswell, 2018/08/03
- [Emacs-diffs] master 04cc0b6 09/19: Add more tests for backtrace-mode, Gemini Lasswell, 2018/08/03
- [Emacs-diffs] master a3ba34a 11/19: Add new command to expand all "..."s in a backtrace frame, Gemini Lasswell, 2018/08/03
- [Emacs-diffs] master e09120d 03/19: Add backtrace-mode and use it in the debugger, ERT and Edebug, Gemini Lasswell, 2018/08/03
- [Emacs-diffs] master da0054c 19/19: Merge branch 'scratch/backtrace-mode', Gemini Lasswell, 2018/08/03