Commit e5d79aa5 authored by Lute Kamstra's avatar Lute Kamstra
Browse files

(edebug-eval-mode-map): Don't copy lisp-interaction-mode-map but make

it the parent.
(edebug-eval-mode): Use define-derived-mode.
parent 480c8cd3
2005-06-11 Lute Kamstra <lute@gnu.org>
* emacs-lisp/edebug.el (edebug-eval-mode-map): Don't copy
lisp-interaction-mode-map but make it the parent.
(edebug-eval-mode): Use define-derived-mode.
2005-06-11 Andreas Schwab <schwab@suse.de>
 
* bindings.el: Add binding of `ESC functionkey' for every
......
......@@ -4014,20 +4014,19 @@ May only be called from within edebug-recursive-edit."
(defvar edebug-eval-mode-map nil
"Keymap for Edebug Eval mode. Superset of Lisp Interaction mode.")
(if edebug-eval-mode-map
nil
(setq edebug-eval-mode-map (copy-keymap lisp-interaction-mode-map))
(unless edebug-eval-mode-map
(setq edebug-eval-mode-map (make-sparse-keymap))
(set-keymap-parent edebug-eval-mode-map lisp-interaction-mode-map)
(define-key edebug-eval-mode-map "\C-c\C-w" 'edebug-where)
(define-key edebug-eval-mode-map "\C-c\C-d" 'edebug-delete-eval-item)
(define-key edebug-eval-mode-map "\C-c\C-u" 'edebug-update-eval-list)
(define-key edebug-eval-mode-map "\C-x\C-e" 'edebug-eval-last-sexp)
(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))
(put 'edebug-eval-mode 'mode-class 'special)
(defun edebug-eval-mode ()
(define-derived-mode edebug-eval-mode lisp-interaction-mode "Edebug Eval"
"Mode for evaluation list buffer while in Edebug.
In addition to all Interactive Emacs Lisp commands there are local and
......@@ -4039,12 +4038,7 @@ Eval list buffer commands:
\\{edebug-eval-mode-map}
Global commands prefixed by global-edebug-prefix:
\\{global-edebug-map}
"
(lisp-interaction-mode)
(setq major-mode 'edebug-eval-mode)
(setq mode-name "Edebug Eval")
(use-local-map edebug-eval-mode-map))
\\{global-edebug-map}")
;;; Interface with standard debugger.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment