Mercurial > hg > xemacs-beta

comparison lisp/edebug/edebug.el @ 124:9b50b4588a93 r20-1b15

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b15
author cvs
date Mon, 13 Aug 2007 09:26:39 +0200
parents 360340f9fd5f
children b980b6286996
comparison
equal deleted inserted replaced
123:c77884c6318d 124:9b50b4588a93
27 ;;; Commentary: 27 ;;; Commentary:
28 28
29 ;; LCD Archive Entry: 29 ;; LCD Archive Entry:
30 ;; edebug|Daniel LaLiberte|liberte@cs.uiuc.edu 30 ;; edebug|Daniel LaLiberte|liberte@cs.uiuc.edu
31 ;; |A source level debugger for Emacs Lisp. 31 ;; |A source level debugger for Emacs Lisp.
32 ;; |$Date: 1997/03/08 23:25:52 $|$Revision: 1.3 $|~/modes/edebug.el| 32 ;; |$Date: 1997/04/13 03:13:54 $|$Revision: 1.4 $|~/modes/edebug.el|
33 33
34 ;; This minor mode allows programmers to step through Emacs Lisp 34 ;; This minor mode allows programmers to step through Emacs Lisp
35 ;; source code while executing functions. You can also set 35 ;; source code while executing functions. You can also set
36 ;; breakpoints, trace (stopping at each expression), evaluate 36 ;; breakpoints, trace (stopping at each expression), evaluate
37 ;; expressions as if outside Edebug, reevaluate and display a list of 37 ;; expressions as if outside Edebug, reevaluate and display a list of
85 ;; For the early revision history, see edebug-history. 85 ;; For the early revision history, see edebug-history.
86 86
87 ;;; Code: 87 ;;; Code:
88 88
89 (defconst edebug-version 89 (defconst edebug-version
90 (let ((raw-version "$Revision: 1.3 $")) 90 (let ((raw-version "$Revision: 1.4 $"))
91 (substring raw-version (string-match "[0-9.]*" raw-version) 91 (substring raw-version (string-match "[0-9.]*" raw-version)
92 (match-end 0)))) 92 (match-end 0))))
93 93
94 (require 'backquote) 94 (require 'backquote)
95 95
1103 (defun edebug-read-and-maybe-wrap-form () 1103 (defun edebug-read-and-maybe-wrap-form ()
1104 ;; Read a form and wrap it with edebug calls, if the conditions are right. 1104 ;; Read a form and wrap it with edebug calls, if the conditions are right.
1105 ;; Here we just catch any no-match not caught below and signal an error. 1105 ;; Here we just catch any no-match not caught below and signal an error.
1106 1106
1107 ;; Run the setup hook. 1107 ;; Run the setup hook.
1108 (run-hooks 'edebug-setup-hook) 1108 (let ((temp-hook edebug-setup-hook))
1109 (setq edebug-setup-hook nil) 1109 (setq edebug-setup-hook nil)
1110 (run-hooks 'temp-hook))
1110 1111
1111 (let (result 1112 (let (result
1112 edebug-top-window-data 1113 edebug-top-window-data
1113 edebug-def-name;; make sure it is locally nil 1114 edebug-def-name;; make sure it is locally nil
1114 ;; I don't like these here!! 1115 ;; I don't like these here!!