mirror of
git://git.sv.gnu.org/emacs.git
synced 2025-12-06 14:30:50 -08:00
Make Edebug work with Follow Mode.
* emacs-lisp/edebug.el (edebug--display-1): Remove call to edebug-adjust-window. (edebug--recursive-edit): Don't bind pre/post-command-hooks to nil over the recursive edit. (edebug-adjust-window): Remove.
This commit is contained in:
parent
8599360928
commit
3eb4d23a7c
2 changed files with 10 additions and 34 deletions
|
|
@ -2446,9 +2446,6 @@ MSG is printed after `::::} '."
|
|||
edebug-function)
|
||||
))
|
||||
|
||||
(setcdr edebug-window-data
|
||||
(edebug-adjust-window (cdr edebug-window-data)))
|
||||
|
||||
;; Test if there is input, not including keyboard macros.
|
||||
(if (input-pending-p)
|
||||
(progn
|
||||
|
|
@ -2677,12 +2674,6 @@ MSG is printed after `::::} '."
|
|||
(defining-kbd-macro
|
||||
(if edebug-continue-kbd-macro defining-kbd-macro))
|
||||
|
||||
;; Disable command hooks. This is essential when
|
||||
;; a hook function is instrumented - to avoid infinite loop.
|
||||
;; This may be more than we need, however.
|
||||
(pre-command-hook nil)
|
||||
(post-command-hook nil)
|
||||
|
||||
;; others??
|
||||
)
|
||||
|
||||
|
|
@ -2722,31 +2713,6 @@ MSG is printed after `::::} '."
|
|||
|
||||
;;; Display related functions
|
||||
|
||||
(defun edebug-adjust-window (old-start)
|
||||
;; If pos is not visible, adjust current window to fit following context.
|
||||
;; (message "window: %s old-start: %s window-start: %s pos: %s"
|
||||
;; (selected-window) old-start (window-start) (point)) (sit-for 5)
|
||||
(if (not (pos-visible-in-window-p))
|
||||
(progn
|
||||
;; First try old-start
|
||||
(if old-start
|
||||
(set-window-start (selected-window) old-start))
|
||||
(if (not (pos-visible-in-window-p))
|
||||
(progn
|
||||
;; (message "resetting window start") (sit-for 2)
|
||||
(set-window-start
|
||||
(selected-window)
|
||||
(save-excursion
|
||||
(forward-line
|
||||
(if (< (point) (window-start)) -1 ; one line before if in back
|
||||
(- (/ (window-height) 2)) ; center the line moving forward
|
||||
))
|
||||
(beginning-of-line)
|
||||
(point)))))))
|
||||
(window-start))
|
||||
|
||||
|
||||
|
||||
(defconst edebug-arrow-alist
|
||||
'((Continue-fast . "=")
|
||||
(Trace-fast . "-")
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue