mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-06 14:30:50 -08:00
Code Issues Projects Releases Wiki Activity

* emacs-lisp/debug.el (debugger-mode-map):

Browse source 
* textmodes/conf-mode.el (conf-mode-map): Add a menu.
(conf-align-assignments): Only work on the region if it is active.
(conf-quote-normal): Use when instead of if.  Remove redundant test.
This commit is contained in:
Dan Nicolaescu 2008-04-02 06:35:21 +00:00
parent 5e8bbcc4c9
commit b23718189d
2 changed files with 128 additions and 36 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -585,7 +585,8 @@ Applies to the frame whose line point is on in the backtrace."
(debugger-env-macro (eval-expression exp)))
(defvar debugger-mode-map
(let ((map (make-keymap)))
(let ((map (make-keymap))
(menu-map (make-sparse-keymap)))
(set-keymap-parent map button-buffer-map)
(suppress-keymap map)
(define-key map "-" 'negative-argument)
@ -603,6 +604,49 @@ Applies to the frame whose line point is on in the backtrace."
(define-key map "R" 'debugger-record-expression)
(define-key map "\C-m" 'debug-help-follow)
(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" top-level
:help "Quit debugging and return to top leve"))
(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" debug-help-follow
: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"))
map))
(put 'debugger-mode 'mode-class 'special)