Mercurial > emacs
comparison lisp/emacs-lisp/edebug.el @ 21643:475d7e2df534
(edebug-compute-previous-result):
Don't pass floating value to single-key-description.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 18 Apr 1998 14:36:05 +0000 |
| parents | 6c70fa8e1a5d |
| children | 02b32ae7e637 |
comparison
equal
deleted
inserted
replaced
| 21642:d33cd398d663 | 21643:475d7e2df534 |
|---|---|
| 3688 (print-readably nil)) ;; lemacs uses this. | 3688 (print-readably nil)) ;; lemacs uses this. |
| 3689 (edebug-prin1-to-string value))) | 3689 (edebug-prin1-to-string value))) |
| 3690 | 3690 |
| 3691 (defun edebug-compute-previous-result (edebug-previous-value) | 3691 (defun edebug-compute-previous-result (edebug-previous-value) |
| 3692 (setq edebug-previous-result | 3692 (setq edebug-previous-result |
| 3693 (if (and (numberp edebug-previous-value) | 3693 (if (and (integerp edebug-previous-value) |
| 3694 (< edebug-previous-value 256) | 3694 (< edebug-previous-value 256) |
| 3695 (>= edebug-previous-value 0)) | 3695 (>= edebug-previous-value 0)) |
| 3696 (format "Result: %s = %s" edebug-previous-value | 3696 (format "Result: %s = %s" edebug-previous-value |
| 3697 (single-key-description edebug-previous-value)) | 3697 (single-key-description edebug-previous-value)) |
| 3698 (if edebug-unwrap-results | 3698 (if edebug-unwrap-results |