diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2019-10-20 14:09:36 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2019-10-20 14:09:36 +0200 |
| commit | 34744278ba44d78d2a3718135ac20f2dada303e4 (patch) | |
| tree | 84f965b458fa6e6dc0362eb7504740e993448eba /lisp/emacs-lisp/edebug.el | |
| parent | db1907233c8ecc7ca562e365125c24d60bb40c54 (diff) | |
| download | emacs-34744278ba44d78d2a3718135ac20f2dada303e4.tar.gz | |
Add a new edebug-breakpoint face
* doc/lispref/edebug.texi (Breakpoints): Mention it.
* lisp/emacs-lisp/edebug.el (edebug-breakpoint): New face.
Diffstat (limited to 'lisp/emacs-lisp/edebug.el')
| -rw-r--r-- | lisp/emacs-lisp/edebug.el | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/edebug.el b/lisp/emacs-lisp/edebug.el index f59123094ac..a3ab23c1a1e 100644 --- a/lisp/emacs-lisp/edebug.el +++ b/lisp/emacs-lisp/edebug.el @@ -63,6 +63,9 @@ "A source-level debugger for Emacs Lisp." :group 'lisp) +(defface edebug-breakpoint '((t :inherit highlight)) + "Face used to mark breakpoints." + :version "27.1") (defcustom edebug-setup-hook nil "Functions to call before edebug is used. @@ -3226,7 +3229,7 @@ the breakpoint." (let* ((pos (+ start (aref offsets (car breakpoint)))) (overlay (make-overlay pos (1+ pos)))) (overlay-put overlay 'edebug t) - (overlay-put overlay 'face 'highlight)))))) + (overlay-put overlay 'face 'edebug-breakpoint)))))) (defun edebug--overlay-breakpoints-remove (start end) (dolist (overlay (overlays-in start end)) |