Mercurial > emacs

comparison lisp/emacs-lisp/edebug.el @ 17650:dbcf0b5d5265

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(edebug-eval-mode): Add a mode-class property.
author Richard M. Stallman <rms@gnu.org>
date Mon, 05 May 1997 01:03:53 +0000
parents eeff371bfe78
children 4c3a2b58fd72
comparison
equal deleted inserted replaced
17649:28037dab627c 17650:dbcf0b5d5265
7 ;; Keywords: lisp, tools, maint 7 ;; Keywords: lisp, tools, maint
8 8
9 ;; LCD Archive Entry: 9 ;; LCD Archive Entry:
10 ;; edebug|Daniel LaLiberte|liberte@cs.uiuc.edu 10 ;; edebug|Daniel LaLiberte|liberte@cs.uiuc.edu
11 ;; |A source level debugger for Emacs Lisp. 11 ;; |A source level debugger for Emacs Lisp.
12 ;; |$Date: 1997/04/12 08:30:46 $|$Revision: 3.14 $|~/modes/edebug.el| 12 ;; |$Date: 1997/04/14 20:57:39 $|$Revision: 3.15 $|~/modes/edebug.el|
13 13
14 ;; This file is part of GNU Emacs. 14 ;; This file is part of GNU Emacs.
15 15
16 ;; GNU Emacs is free software; you can redistribute it and/or modify 16 ;; GNU Emacs is free software; you can redistribute it and/or modify
17 ;; it under the terms of the GNU General Public License as published by 17 ;; it under the terms of the GNU General Public License as published by
84 ;; For the early revision history, see edebug-history. 84 ;; For the early revision history, see edebug-history.
85 85
86 ;;; Code: 86 ;;; Code:
87 87
88 (defconst edebug-version 88 (defconst edebug-version
89 (let ((raw-version "$Revision: 3.14 $")) 89 (let ((raw-version "$Revision: 3.15 $"))
90 (substring raw-version (string-match "[0-9.]*" raw-version) 90 (substring raw-version (string-match "[0-9.]*" raw-version)
91 (match-end 0)))) 91 (match-end 0))))
92 92
93 (require 'backquote) 93 (require 'backquote)
94 94
4052 (define-key edebug-eval-mode-map "\C-c\C-u" 'edebug-update-eval-list) 4052 (define-key edebug-eval-mode-map "\C-c\C-u" 'edebug-update-eval-list)
4053 (define-key edebug-eval-mode-map "\C-x\C-e" 'edebug-eval-last-sexp) 4053 (define-key edebug-eval-mode-map "\C-x\C-e" 'edebug-eval-last-sexp)
4054 (define-key edebug-eval-mode-map "\C-j" 'edebug-eval-print-last-sexp) 4054 (define-key edebug-eval-mode-map "\C-j" 'edebug-eval-print-last-sexp)
4055 ) 4055 )
4056 4056
4057 (put 'edebug-eval-mode 'mode-class 'special)
4057 4058
4058 (defun edebug-eval-mode () 4059 (defun edebug-eval-mode ()
4059 "Mode for evaluation list buffer while in Edebug. 4060 "Mode for evaluation list buffer while in Edebug.
4060 4061
4061 In addition to all Interactive Emacs Lisp commands there are local and 4062 In addition to all Interactive Emacs Lisp commands there are local and