Mercurial > hg > xemacs-beta

comparison lisp/edebug/edebug.el @ 108:360340f9fd5f r20-1b6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b6
author cvs
date Mon, 13 Aug 2007 09:18:39 +0200
parents 4be1180a9e89
children 9b50b4588a93
comparison
equal deleted inserted replaced
107:523141596bda 108:360340f9fd5f
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/02/24 01:13:06 $|$Revision: 1.2 $|~/modes/edebug.el| 32 ;; |$Date: 1997/03/08 23:25:52 $|$Revision: 1.3 $|~/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.2 $")) 90 (let ((raw-version "$Revision: 1.3 $"))
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
3713 (print-readably nil)) ;; XEmacs uses this. 3713 (print-readably nil)) ;; XEmacs uses this.
3714 (edebug-prin1-to-string value))) 3714 (edebug-prin1-to-string value)))
3715 3715
3716 (defun edebug-compute-previous-result (edebug-previous-value) 3716 (defun edebug-compute-previous-result (edebug-previous-value)
3717 (setq edebug-previous-result 3717 (setq edebug-previous-result
3718 (if (and (numberp edebug-previous-value) 3718 (if (numberp edebug-previous-value)
3719 (< edebug-previous-value 256) 3719 (format "Result: %s" edebug-previous-value)
3720 (>= edebug-previous-value 0))
3721 (format "Result: %s = %s" edebug-previous-value
3722 (single-key-description edebug-previous-value))
3723 (if edebug-unwrap-results 3720 (if edebug-unwrap-results
3724 (setq edebug-previous-value 3721 (setq edebug-previous-value
3725 (edebug-unwrap* edebug-previous-value))) 3722 (edebug-unwrap* edebug-previous-value)))
3726 (concat "Result: " 3723 (concat "Result: "
3727 (edebug-safe-prin1-to-string edebug-previous-value))))) 3724 (edebug-safe-prin1-to-string edebug-previous-value)))))