/[emacs]/emacs/lisp/emacs-lisp/edebug.el
ViewVC logotype

Diff of /emacs/lisp/emacs-lisp/edebug.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 3.72 by jurta, Sun Nov 28 07:56:25 2004 UTC revision 3.73 by lute, Sat Jun 11 08:39:39 2005 UTC
# Line 4014  May only be called from within edebug-re Line 4014  May only be called from within edebug-re
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
# Line 4039  Eval list buffer commands: Line 4038  Eval list buffer commands:
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    

Legend:
Removed from v.3.72  
changed lines
  Added in v.3.73

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26