Mercurial > emacs
comparison lisp/emacs-lisp/edebug.el @ 72347:494f2c627b5b
Minor fix to last change.
| author | Chong Yidong <cyd@stupidchicken.com> |
|---|---|
| date | Thu, 10 Aug 2006 16:07:43 +0000 |
| parents | 79197e6c8618 |
| children | 7a3f13e2dd57 7f3f771c85fa |
comparison
equal
deleted
inserted
replaced
| 72346:adbd3421e276 | 72347:494f2c627b5b |
|---|---|
| 2573 (unwind-protect | 2573 (unwind-protect |
| 2574 (let ((overlay-arrow-position overlay-arrow-position) | 2574 (let ((overlay-arrow-position overlay-arrow-position) |
| 2575 (overlay-arrow-string overlay-arrow-string) | 2575 (overlay-arrow-string overlay-arrow-string) |
| 2576 (cursor-in-echo-area nil) | 2576 (cursor-in-echo-area nil) |
| 2577 (default-cursor-in-non-selected-windows t) | 2577 (default-cursor-in-non-selected-windows t) |
| 2578 (unread-command-events nil) | 2578 (unread-command-events unread-command-events) |
| 2579 ;; any others?? | 2579 ;; any others?? |
| 2580 ) | 2580 ) |
| 2581 (if (not (buffer-name edebug-buffer)) | 2581 (if (not (buffer-name edebug-buffer)) |
| 2582 (let ((debug-on-error nil)) | 2582 (let ((debug-on-error nil)) |
| 2583 (error "Buffer defining %s not found" edebug-function))) | 2583 (error "Buffer defining %s not found" edebug-function))) |
| 2662 (message "Break")) | 2662 (message "Break")) |
| 2663 (t))) | 2663 (t))) |
| 2664 | 2664 |
| 2665 (t (message ""))) | 2665 (t (message ""))) |
| 2666 | 2666 |
| 2667 (setq unread-command-events nil) | |
| 2667 (if (eq 'after edebug-arg-mode) | 2668 (if (eq 'after edebug-arg-mode) |
| 2668 (progn | 2669 (progn |
| 2669 ;; Display result of previous evaluation. | 2670 ;; Display result of previous evaluation. |
| 2670 (if (and edebug-break | 2671 (if (and edebug-break |
| 2671 (not (eq edebug-execution-mode 'Continue-fast))) | 2672 (not (eq edebug-execution-mode 'Continue-fast))) |