diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2019-06-20 03:14:11 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2019-06-20 12:51:39 +0200 |
| commit | 31b1e4cbdc402b7465dfa009dc3379247a4468d8 (patch) | |
| tree | 32e619ab669064aee70c6ab691ba71b44dd0833b /lisp/cedet/semantic/debug.el | |
| parent | e383aade0f215b3829600f8c2cb045aa81511042 (diff) | |
| download | emacs-31b1e4cbdc402b7465dfa009dc3379247a4468d8.tar.gz emacs-31b1e4cbdc402b7465dfa009dc3379247a4468d8.tar.bz2 emacs-31b1e4cbdc402b7465dfa009dc3379247a4468d8.zip | |
Throughout cedet, don't use semantic-overlay-* compat aliases
Diffstat (limited to 'lisp/cedet/semantic/debug.el')
| -rw-r--r-- | lisp/cedet/semantic/debug.el | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/lisp/cedet/semantic/debug.el b/lisp/cedet/semantic/debug.el index b5bb00d8cda..1b1639cbf14 100644 --- a/lisp/cedet/semantic/debug.el +++ b/lisp/cedet/semantic/debug.el @@ -193,12 +193,12 @@ If RULE and MATCH indices are specified, highlight those also." ;; I know it is the first symbol appearing in the body of this token. (goto-char (semantic-tag-start nt)) - (setq o (semantic-make-overlay (point) (progn (forward-sexp 1) (point)))) - (semantic-overlay-put o 'face 'highlight) + (setq o (make-overlay (point) (progn (forward-sexp 1) (point)))) + (overlay-put o 'face 'highlight) (object-add-to-list iface 'overlays o) - (semantic-debug-set-parser-location iface (semantic-overlay-start o)) + (semantic-debug-set-parser-location iface (overlay-start o)) (when (and rule match) @@ -215,20 +215,20 @@ If RULE and MATCH indices are specified, highlight those also." (setq match (1- match))) ;; Now highlight the thingy we find there. - (setq o (semantic-make-overlay (point) (progn (forward-sexp 1) (point)))) - (semantic-overlay-put o 'face 'highlight) + (setq o (make-overlay (point) (progn (forward-sexp 1) (point)))) + (overlay-put o 'face 'highlight) (object-add-to-list iface 'overlays o) ;; If we have a match for a sub-rule, have the parser position ;; move so we can see it in the output window for very long rules. - (semantic-debug-set-parser-location iface (semantic-overlay-start o)) + (semantic-debug-set-parser-location iface (overlay-start o)) )))) (cl-defmethod semantic-debug-unhighlight ((iface semantic-debug-interface)) "Remove all debugging overlays." - (mapc 'semantic-overlay-delete (oref iface overlays)) + (mapc #'delete-overlay (oref iface overlays)) (oset iface overlays nil)) ;; Call from the parser at a breakpoint |