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/decorate/mode.el | |
parent | e383aade0f215b3829600f8c2cb045aa81511042 (diff) | |
download | emacs-31b1e4cbdc402b7465dfa009dc3379247a4468d8.tar.gz |
Throughout cedet, don't use semantic-overlay-* compat aliases
Diffstat (limited to 'lisp/cedet/semantic/decorate/mode.el')
-rw-r--r-- | lisp/cedet/semantic/decorate/mode.el | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/lisp/cedet/semantic/decorate/mode.el b/lisp/cedet/semantic/decorate/mode.el index be1d5db069f..4e3ca2c6ee3 100644 --- a/lisp/cedet/semantic/decorate/mode.el +++ b/lisp/cedet/semantic/decorate/mode.el @@ -76,20 +76,20 @@ add items to this list." ;; (defsubst semantic-decoration-p (object) "Return non-nil if OBJECT is a tag decoration." - (and (semantic-overlay-p object) - (semantic-overlay-get object 'semantic-decoration))) + (and (overlayp object) + (overlay-get object 'semantic-decoration))) (defsubst semantic-decoration-set-property (deco property value) "Set the DECO decoration's PROPERTY to VALUE. Return DECO." (cl-assert (semantic-decoration-p deco)) - (semantic-overlay-put deco property value) + (overlay-put deco property value) deco) (defsubst semantic-decoration-get-property (deco property) "Return the DECO decoration's PROPERTY value." (cl-assert (semantic-decoration-p deco)) - (semantic-overlay-get deco property)) + (overlay-get deco property)) (defsubst semantic-decoration-set-face (deco face) "Set the face of the decoration DECO to FACE. @@ -114,7 +114,7 @@ Return DECO." "Move the decoration DECO on the region between BEGIN and END. Return DECO." (cl-assert (semantic-decoration-p deco)) - (semantic-overlay-move deco begin end) + (move-overlay deco begin end) deco) ;;; Tag decoration @@ -127,7 +127,7 @@ Return the overlay that makes up the new decoration." (let ((deco (semantic-tag-create-secondary-overlay tag))) ;; We do not use the unlink property because we do not want to ;; save the highlighting information in the DB. - (semantic-overlay-put deco 'semantic-decoration t) + (overlay-put deco 'semantic-decoration t) (semantic-decoration-move deco begin end) (semantic-decoration-set-face deco face) deco)) @@ -156,9 +156,9 @@ BUFFER defaults to the current buffer. Should be used to flush decorations that might remain in BUFFER, for example, after tags have been refreshed." (with-current-buffer (or buffer (current-buffer)) - (dolist (o (semantic-overlays-in (point-min) (point-max))) + (dolist (o (overlays-in (point-min) (point-max))) (and (semantic-decoration-p o) - (semantic-overlay-delete o))))) + (delete-overlay o))))) (defun semantic-decorate-clear-decorations (tag-list) "Remove decorations found in tags in TAG-LIST." |