4014 |
(defvar edebug-eval-mode-map nil |
(defvar edebug-eval-mode-map nil |
4015 |
"Keymap for Edebug Eval mode. Superset of Lisp Interaction mode.") |
"Keymap for Edebug Eval mode. Superset of Lisp Interaction mode.") |
4016 |
|
|
4017 |
(if edebug-eval-mode-map |
(unless edebug-eval-mode-map |
4018 |
nil |
(setq edebug-eval-mode-map (make-sparse-keymap)) |
4019 |
(setq edebug-eval-mode-map (copy-keymap lisp-interaction-mode-map)) |
(set-keymap-parent edebug-eval-mode-map lisp-interaction-mode-map) |
4020 |
|
|
4021 |
(define-key edebug-eval-mode-map "\C-c\C-w" 'edebug-where) |
(define-key edebug-eval-mode-map "\C-c\C-w" 'edebug-where) |
4022 |
(define-key edebug-eval-mode-map "\C-c\C-d" 'edebug-delete-eval-item) |
(define-key edebug-eval-mode-map "\C-c\C-d" 'edebug-delete-eval-item) |
4023 |
(define-key edebug-eval-mode-map "\C-c\C-u" 'edebug-update-eval-list) |
(define-key edebug-eval-mode-map "\C-c\C-u" 'edebug-update-eval-list) |
4024 |
(define-key edebug-eval-mode-map "\C-x\C-e" 'edebug-eval-last-sexp) |
(define-key edebug-eval-mode-map "\C-x\C-e" 'edebug-eval-last-sexp) |
4025 |
(define-key edebug-eval-mode-map "\C-j" 'edebug-eval-print-last-sexp) |
(define-key edebug-eval-mode-map "\C-j" 'edebug-eval-print-last-sexp)) |
|
) |
|
4026 |
|
|
4027 |
(put 'edebug-eval-mode 'mode-class 'special) |
(put 'edebug-eval-mode 'mode-class 'special) |
4028 |
|
|
4029 |
(defun edebug-eval-mode () |
(define-derived-mode edebug-eval-mode lisp-interaction-mode "Edebug Eval" |
4030 |
"Mode for evaluation list buffer while in Edebug. |
"Mode for evaluation list buffer while in Edebug. |
4031 |
|
|
4032 |
In addition to all Interactive Emacs Lisp commands there are local and |
In addition to all Interactive Emacs Lisp commands there are local and |
4038 |
\\{edebug-eval-mode-map} |
\\{edebug-eval-mode-map} |
4039 |
|
|
4040 |
Global commands prefixed by global-edebug-prefix: |
Global commands prefixed by global-edebug-prefix: |
4041 |
\\{global-edebug-map} |
\\{global-edebug-map}") |
|
" |
|
|
(lisp-interaction-mode) |
|
|
(setq major-mode 'edebug-eval-mode) |
|
|
(setq mode-name "Edebug Eval") |
|
|
(use-local-map edebug-eval-mode-map)) |
|
4042 |
|
|
4043 |
;;; Interface with standard debugger. |
;;; Interface with standard debugger. |
4044 |
|
|