[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/edebug.el
From: |
Richard M. Stallman |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/edebug.el |
Date: |
Sun, 28 Jul 2002 21:51:10 -0400 |
Index: emacs/lisp/emacs-lisp/edebug.el
diff -c emacs/lisp/emacs-lisp/edebug.el:3.53
emacs/lisp/emacs-lisp/edebug.el:3.54
*** emacs/lisp/emacs-lisp/edebug.el:3.53 Thu Apr 11 23:20:46 2002
--- emacs/lisp/emacs-lisp/edebug.el Sun Jul 28 21:51:09 2002
***************
*** 2423,2467 ****
(defun edebug-debugger (edebug-offset-index edebug-arg-mode edebug-value)
! ;; Check breakpoints and pending input.
! ;; If edebug display should be updated, call edebug-display.
! ;; Return edebug-value.
! (let* (;; This needs to be here since breakpoints may be changed.
! (edebug-breakpoints (car (cdr edebug-data))) ; list of breakpoints
! (edebug-break-data (assq edebug-offset-index edebug-breakpoints))
! (edebug-break-condition (car (cdr edebug-break-data)))
! (edebug-global-break
! (if edebug-global-break-condition
! (condition-case nil
! (setq edebug-global-break-result
! (eval edebug-global-break-condition))
! (error nil))))
! (edebug-break))
;;; (edebug-trace "exp: %s" edebug-value)
! ;; Test whether we should break.
! (setq edebug-break
! (or edebug-global-break
! (and edebug-break-data
! (or (not edebug-break-condition)
! (setq edebug-break-result
! (eval edebug-break-condition))))))
! (if (and edebug-break
! (nth 2 edebug-break-data)) ; is it temporary?
! ;; Delete the breakpoint.
! (setcdr edebug-data
! (cons (delq edebug-break-data edebug-breakpoints)
! (cdr (cdr edebug-data)))))
! ;; Display if mode is not go, continue, or Continue-fast
! ;; or break, or input is pending,
! (if (or (not (memq edebug-execution-mode '(go continue Continue-fast)))
! edebug-break
! (edebug-input-pending-p))
! (edebug-display)) ; <--------------- display
! edebug-value
! ))
;; window-start now stored with each function.
--- 2423,2470 ----
(defun edebug-debugger (edebug-offset-index edebug-arg-mode edebug-value)
! (if inhibit-redisplay
! ;; Don't really try to enter edebug within an eval from redisplay.
! edebug-value
! ;; Check breakpoints and pending input.
! ;; If edebug display should be updated, call edebug-display.
! ;; Return edebug-value.
! (let* ( ;; This needs to be here since breakpoints may be changed.
! (edebug-breakpoints (car (cdr edebug-data))) ; list of breakpoints
! (edebug-break-data (assq edebug-offset-index edebug-breakpoints))
! (edebug-break-condition (car (cdr edebug-break-data)))
! (edebug-global-break
! (if edebug-global-break-condition
! (condition-case nil
! (setq edebug-global-break-result
! (eval edebug-global-break-condition))
! (error nil))))
! (edebug-break))
;;; (edebug-trace "exp: %s" edebug-value)
! ;; Test whether we should break.
! (setq edebug-break
! (or edebug-global-break
! (and edebug-break-data
! (or (not edebug-break-condition)
! (setq edebug-break-result
! (eval edebug-break-condition))))))
! (if (and edebug-break
! (nth 2 edebug-break-data)) ; is it temporary?
! ;; Delete the breakpoint.
! (setcdr edebug-data
! (cons (delq edebug-break-data edebug-breakpoints)
! (cdr (cdr edebug-data)))))
! ;; Display if mode is not go, continue, or Continue-fast
! ;; or break, or input is pending,
! (if (or (not (memq edebug-execution-mode '(go continue Continue-fast)))
! edebug-break
! (edebug-input-pending-p))
! (edebug-display)) ; <--------------- display
! edebug-value
! )))
;; window-start now stored with each function.
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/emacs-lisp/edebug.el,
Richard M. Stallman <=