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

Add a menu for backtrace-mode

Browse source 
* lisp/emacs-lisp/backtrace.el (backtrace-mode-map): Add a menu.
* lisp/emacs-lisp/debug.el (debugger-mode-map): Change menu text for
'backtrace-help-follow-symbol' to better describe what it does.
This commit is contained in:
Gemini Lasswell 2018-07-15 15:45:43 -07:00
parent 9879151890
commit 1459ad2c67
2 changed files with 24 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

22
lisp/emacs-lisp/backtrace.el
View file

@ -194,6 +194,28 @@ This is commonly used to recompute `backtrace-frames'.")
(define-key map "." 'backtrace-expand-ellipses)
(define-key map [follow-link] 'mouse-face)
(define-key map [mouse-2] 'mouse-select-window)
(easy-menu-define nil map ""
'("Backtrace"
["Next Frame" backtrace-forward-frame
:help "Move cursor forwards to the start of a backtrace frame"]
["Previous Frame" backtrace-backward-frame
:help "Move cursor backwards to the start of a backtrace frame"]
"--"
["Show Variables" backtrace-toggle-locals
:style toggle
:active (backtrace-get-index)
:selected (plist-get (backtrace-get-view) :show-locals)
:help "Show or hide the local variables for the frame at point"]
["Expand \"...\"s" backtrace-expand-ellipses
:help "Expand all the abbreviated forms in the current frame"]
["Show on Multiple Lines" backtrace-pretty-print
:help "Use line breaks and indentation to make a form more readable"]
["Collapse to Single Line" backtrace-collapse]
"--"
["Help for Symbol" backtrace-help-follow-symbol
:help "Show help for symbol at point"]
["Describe Backtrace Mode" describe-mode
:help "Display documentation for backtrace-mode"]))
map)
"Local keymap for `backtrace-mode' buffers.")

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

@ -567,8 +567,8 @@ The environment used is the one when entering the activation frame at point."
"--"
["Next Line" next-line
:help "Move cursor down"]
["Help Follow" backtrace-help-follow-symbol
:help "Follow cross-reference"]
["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"]
"--"