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> 2005-06-11 Andreas Schwab <schwab@suse.de>
   
* bindings.el: Add binding of `ESC functionkey' for every * bindings.el: Add binding of `ESC functionkey' for every
......
...@@ -4014,20 +4014,19 @@ May only be called from within edebug-recursive-edit." ...@@ -4014,20 +4014,19 @@ May only be called from within edebug-recursive-edit."
(defvar edebug-eval-mode-map nil (defvar edebug-eval-mode-map nil
"Keymap for Edebug Eval mode. Superset of Lisp Interaction mode.") "Keymap for Edebug Eval mode. Superset of Lisp Interaction mode.")
(if edebug-eval-mode-map (unless edebug-eval-mode-map
nil (setq edebug-eval-mode-map (make-sparse-keymap))
(setq edebug-eval-mode-map (copy-keymap lisp-interaction-mode-map)) (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-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-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-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-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) (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. "Mode for evaluation list buffer while in Edebug.
In addition to all Interactive Emacs Lisp commands there are local and In addition to all Interactive Emacs Lisp commands there are local and
...@@ -4039,12 +4038,7 @@ Eval list buffer commands: ...@@ -4039,12 +4038,7 @@ Eval list buffer commands:
\\{edebug-eval-mode-map} \\{edebug-eval-mode-map}
Global commands prefixed by global-edebug-prefix: Global commands prefixed by global-edebug-prefix:
\\{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))
;;; Interface with standard debugger. ;;; 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