Mercurial > hg > xemacs-beta
diff lisp/edebug/edebug.el @ 48:56c54cf7c5b6 r19-16b90
Import from CVS: tag r19-16b90
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 08:56:04 +0200 |
| parents | 441bb1e64a06 |
| children | 131b0175ea99 |
line wrap: on
line diff
--- a/lisp/edebug/edebug.el Mon Aug 13 08:55:32 2007 +0200 +++ b/lisp/edebug/edebug.el Mon Aug 13 08:56:04 2007 +0200 @@ -29,7 +29,7 @@ ;; LCD Archive Entry: ;; edebug|Daniel LaLiberte|liberte@cs.uiuc.edu ;; |A source level debugger for Emacs Lisp. -;; |$Date: 1997/03/02 03:42:50 $|$Revision: 1.2 $|~/modes/edebug.el| +;; |$Date: 1997/08/21 06:23:41 $|$Revision: 1.3 $|~/modes/edebug.el| ;; This minor mode allows programmers to step through Emacs Lisp ;; source code while executing functions. You can also set @@ -87,7 +87,7 @@ ;;; Code: (defconst edebug-version - (let ((raw-version "$Revision: 1.2 $")) + (let ((raw-version "$Revision: 1.3 $")) (substring raw-version (string-match "[0-9.]*" raw-version) (match-end 0)))) @@ -3715,11 +3715,8 @@ (defun edebug-compute-previous-result (edebug-previous-value) (setq edebug-previous-result - (if (and (numberp edebug-previous-value) - (< edebug-previous-value 256) - (>= edebug-previous-value 0)) - (format "Result: %s = %s" edebug-previous-value - (single-key-description edebug-previous-value)) + (if (numberp edebug-previous-value) + (format "Result: %s" edebug-previous-value) (if edebug-unwrap-results (setq edebug-previous-value (edebug-unwrap* edebug-previous-value)))