mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-10 09:12:15 +00:00
Code Issues Releases Activity

Mark breakpoints in edebug with highlights

Browse Source 
* lisp/emacs-lisp/edebug.el (edebug--overlay-breakpoints)
(edebug--overlay-breakpoints-remove): New functions (bug#23468).
(edebug-modify-breakpoint): Use them to highlight breakpoints.
(edebug--display-1): Restore breakpoint highlights.
(edebug--recursive-edit): Remove highlights on exit.
This commit is contained in:
Lars Ingebrigtsen 2019-10-20 12:07:42 +02:00
parent 41ba8231ef
commit e8b3a15cb6
1 changed files with 23 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
lisp/emacs-lisp/edebug.el
View File

@ -2723,6 +2723,7 @@ See `edebug-behavior-alist' for implementations.")
(edebug-stop))
(edebug-overlay-arrow)
(edebug--overlay-breakpoints edebug-function)
(unwind-protect
(if (or edebug-stop
@ -2905,6 +2906,7 @@ See `edebug-behavior-alist' for implementations.")
(setq signal-hook-function #'edebug-signal)
(if edebug-backtrace-buffer
(kill-buffer edebug-backtrace-buffer))
(edebug--overlay-breakpoints-remove (point-min) (point-max))
;; Remember selected-window after recursive-edit.
;; (setq edebug-inside-window (selected-window))
@ -3186,7 +3188,27 @@ the breakpoint."
(setcar (cdr edebug-data) edebug-breakpoints)
(goto-char (+ edebug-def-mark (aref offset-vector index)))
))))
(edebug--overlay-breakpoints edebug-def-name)))))
(defun edebug--overlay-breakpoints (function)
(let* ((data (get function 'edebug))
(start (nth 0 data))
(breakpoints (nth 1 data))
(offsets (nth 2 data)))
;; First remove all old breakpoint overlays.
(edebug--overlay-breakpoints-remove
start (+ start (aref offsets (1- (length offsets)))))
;; Then make overlays for the breakpoints.
(dolist (breakpoint breakpoints)
(let* ((pos (+ start (aref offsets (car breakpoint))))
(overlay (make-overlay pos (1+ pos))))
(overlay-put overlay 'edebug t)
(overlay-put overlay 'face 'highlight)))))
(defun edebug--overlay-breakpoints-remove (start end)
(dolist (overlay (overlays-in start end))
(when (overlay-get overlay 'edebug)
(delete-overlay overlay))))
(defun edebug-set-breakpoint (arg)
"Set the breakpoint of nearest sexp.