[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] scratch/backtrace-mode 1d4502d 12/16: * lisp/emacs-lisp/de
From: |
Gemini Lasswell |
Subject: |
[Emacs-diffs] scratch/backtrace-mode 1d4502d 12/16: * lisp/emacs-lisp/debug.el (debugger-mode-map): Use easy-menu-define. |
Date: |
Fri, 27 Jul 2018 15:26:00 -0400 (EDT) |
branch: scratch/backtrace-mode
commit 1d4502d8fda92ad0dd2e570a36519ce2ce2cbf5a
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] branch scratch/backtrace-mode created (now 6b4f622), Gemini Lasswell, 2018/07/27
- [Emacs-diffs] scratch/backtrace-mode c7288cc 08/16: Add link in backtraces to position in buffer being evaluated (bug#14081), Gemini Lasswell, 2018/07/27
- [Emacs-diffs] scratch/backtrace-mode 80d1c52 06/16: Add prefix argument to backtrace-toggle-print-circle, Gemini Lasswell, 2018/07/27
- [Emacs-diffs] scratch/backtrace-mode b0e53a0 07/16: Add links in backtraces to functions written in C (bug#25393), Gemini Lasswell, 2018/07/27
- [Emacs-diffs] scratch/backtrace-mode 9f7943a 02/16: Add methods for strings to cl-print, Gemini Lasswell, 2018/07/27
- [Emacs-diffs] scratch/backtrace-mode 63af8c8 10/16: Change keybinding for backtrace-collapse from '=' to '-', Gemini Lasswell, 2018/07/27
- [Emacs-diffs] scratch/backtrace-mode cf2dded 04/16: Always make buttons from function names in backtraces, Gemini Lasswell, 2018/07/27
- [Emacs-diffs] scratch/backtrace-mode 31cc6ce 13/16: Add a menu for backtrace-mode, Gemini Lasswell, 2018/07/27
- [Emacs-diffs] scratch/backtrace-mode 1d4502d 12/16: * lisp/emacs-lisp/debug.el (debugger-mode-map): Use easy-menu-define.,
Gemini Lasswell <=
- [Emacs-diffs] scratch/backtrace-mode 5d7034a 15/16: Move 'backtrace' from subr.el to backtrace.el, Gemini Lasswell, 2018/07/27
- [Emacs-diffs] scratch/backtrace-mode 6b4f622 16/16: Give two backtrace-mode commands better names, Gemini Lasswell, 2018/07/27
- [Emacs-diffs] scratch/backtrace-mode 1ff16de 05/16: Lazily print backtrace frame local variables, Gemini Lasswell, 2018/07/27
- [Emacs-diffs] scratch/backtrace-mode 50197e3 14/16: Add new commands to Edebug backtraces, Gemini Lasswell, 2018/07/27
- [Emacs-diffs] scratch/backtrace-mode d78464d 01/16: Support ellipsis expansion in cl-print, Gemini Lasswell, 2018/07/27
- [Emacs-diffs] scratch/backtrace-mode 06fc1ba 11/16: Add new command to expand all "..."s in a backtrace frame, Gemini Lasswell, 2018/07/27
- [Emacs-diffs] scratch/backtrace-mode 997d13a 09/16: Add more tests for backtrace-mode, Gemini Lasswell, 2018/07/27
- [Emacs-diffs] scratch/backtrace-mode 86d82db 03/16: Add backtrace-mode and use it in the debugger, ERT and Edebug, Gemini Lasswell, 2018/07/27