diff options
| author | Lars Ingebrigtsen | 2019-06-20 03:14:11 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen | 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.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." | |||
| 193 | ;; I know it is the first symbol appearing in the body of this token. | 193 | ;; I know it is the first symbol appearing in the body of this token. |
| 194 | (goto-char (semantic-tag-start nt)) | 194 | (goto-char (semantic-tag-start nt)) |
| 195 | 195 | ||
| 196 | (setq o (semantic-make-overlay (point) (progn (forward-sexp 1) (point)))) | 196 | (setq o (make-overlay (point) (progn (forward-sexp 1) (point)))) |
| 197 | (semantic-overlay-put o 'face 'highlight) | 197 | (overlay-put o 'face 'highlight) |
| 198 | 198 | ||
| 199 | (object-add-to-list iface 'overlays o) | 199 | (object-add-to-list iface 'overlays o) |
| 200 | 200 | ||
| 201 | (semantic-debug-set-parser-location iface (semantic-overlay-start o)) | 201 | (semantic-debug-set-parser-location iface (overlay-start o)) |
| 202 | 202 | ||
| 203 | (when (and rule match) | 203 | (when (and rule match) |
| 204 | 204 | ||
| @@ -215,20 +215,20 @@ If RULE and MATCH indices are specified, highlight those also." | |||
| 215 | (setq match (1- match))) | 215 | (setq match (1- match))) |
| 216 | 216 | ||
| 217 | ;; Now highlight the thingy we find there. | 217 | ;; Now highlight the thingy we find there. |
| 218 | (setq o (semantic-make-overlay (point) (progn (forward-sexp 1) (point)))) | 218 | (setq o (make-overlay (point) (progn (forward-sexp 1) (point)))) |
| 219 | (semantic-overlay-put o 'face 'highlight) | 219 | (overlay-put o 'face 'highlight) |
| 220 | 220 | ||
| 221 | (object-add-to-list iface 'overlays o) | 221 | (object-add-to-list iface 'overlays o) |
| 222 | 222 | ||
| 223 | ;; If we have a match for a sub-rule, have the parser position | 223 | ;; If we have a match for a sub-rule, have the parser position |
| 224 | ;; move so we can see it in the output window for very long rules. | 224 | ;; move so we can see it in the output window for very long rules. |
| 225 | (semantic-debug-set-parser-location iface (semantic-overlay-start o)) | 225 | (semantic-debug-set-parser-location iface (overlay-start o)) |
| 226 | 226 | ||
| 227 | )))) | 227 | )))) |
| 228 | 228 | ||
| 229 | (cl-defmethod semantic-debug-unhighlight ((iface semantic-debug-interface)) | 229 | (cl-defmethod semantic-debug-unhighlight ((iface semantic-debug-interface)) |
| 230 | "Remove all debugging overlays." | 230 | "Remove all debugging overlays." |
| 231 | (mapc 'semantic-overlay-delete (oref iface overlays)) | 231 | (mapc #'delete-overlay (oref iface overlays)) |
| 232 | (oset iface overlays nil)) | 232 | (oset iface overlays nil)) |
| 233 | 233 | ||
| 234 | ;; Call from the parser at a breakpoint | 234 | ;; Call from the parser at a breakpoint |