From: Richard Stallman <rms@gnu.org>
Cc: bug-gnu-emacs@gnu.org, Kai.Grossjohann@CS.Uni-Dortmund.DE
Subject: Re: Bug: debug/mode-line/Tramp
Date: Sun, 28 Jul 2002 19:12:43 -0600 (MDT) [thread overview]
Message-ID: <200207290112.g6T1Chj12906@aztec.santafe.edu> (raw)
In-Reply-To: <001101c235ae$b7385860$d78e2fc3@x874761> (larsh@math.ku.dk)
This change (which I made in the current development sources)
seems to fix it. Does it work for you? It won't let you actually
enter edebug within computing the mode line--that would be very hard.
*** edebug.el.~3.53.~ Sat Apr 13 13:18:00 2002
--- edebug.el Sun Jul 28 16:18:33 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,2469 ----
(defun edebug-debugger (edebug-offset-index edebug-arg-mode edebug-value)
! (if inhibit-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.
next prev parent reply other threads:[~2002-07-29 1:12 UTC|newest]
Thread overview: 5+ messages / expand[flat|nested] mbox.gz Atom feed top
2002-07-27 20:46 Bug: debug/mode-line/Tramp Lars Hansen
2002-07-28 10:13 ` Kai Großjohann
2002-07-28 13:03 ` Lars Hansen
2002-07-29 1:12 ` Richard Stallman [this message]
2002-07-29 18:02 ` Lars Hansen
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
List information: https://www.gnu.org/software/emacs/
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=200207290112.g6T1Chj12906@aztec.santafe.edu \
--to=rms@gnu.org \
--cc=Kai.Grossjohann@CS.Uni-Dortmund.DE \
--cc=bug-gnu-emacs@gnu.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/emacs.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).