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/symref | |
| 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/symref')
| -rw-r--r-- | lisp/cedet/semantic/symref/list.el | 20 |
1 files changed, 10 insertions, 10 deletions
diff --git a/lisp/cedet/semantic/symref/list.el b/lisp/cedet/semantic/symref/list.el index ce656d61a48..133356ec625 100644 --- a/lisp/cedet/semantic/symref/list.el +++ b/lisp/cedet/semantic/symref/list.el @@ -379,8 +379,8 @@ BUTTON is the button that was clicked." Hits are the line of code from the buffer, not the tag summar or file lines." (save-excursion (end-of-line) - (let* ((ol (car (semantic-overlays-at (1- (point)))))) ;; trust this for now - (when ol (semantic-overlay-get ol 'line))))) + (let* ((ol (car (overlays-at (1- (point)))))) ;; trust this for now + (when ol (overlay-get ol 'line))))) ;;; Keyboard Macros on a Hit @@ -398,9 +398,9 @@ cursor to the beginning of that symbol, then record a macro as if searchfor)) (ol (save-excursion (end-of-line) - (car (semantic-overlays-at (1- (point)))))) - (tag (when ol (semantic-overlay-get ol 'tag))) - (line (when ol (semantic-overlay-get ol 'line)))) + (car (overlays-at (1- (point)))))) + (tag (when ol (overlay-get ol 'tag))) + (line (when ol (overlay-get ol 'line)))) (when (not line) (error "Cannot create macro on a non-hit line")) ;; Go there, and do something useful. @@ -468,9 +468,9 @@ Return the number of occurrences FUNCTION was operated upon." (goto-char (point-min)) (while (not (eobp)) ;; Is this line a "hit" line? - (let* ((ol (car (semantic-overlays-at (1- (point))))) ;; trust this for now - (tag (when ol (semantic-overlay-get ol 'tag))) - (line (when ol (semantic-overlay-get ol 'line)))) + (let* ((ol (car (overlays-at (1- (point))))) ;; trust this for now + (tag (when ol (overlay-get ol 'tag))) + (line (when ol (overlay-get ol 'line)))) (when line ;; The "line" means we have an open hit. (with-current-buffer (semantic-tag-buffer tag) @@ -493,8 +493,8 @@ Return the number of occurrences FUNCTION was operated upon." (goto-char (point-min)) (while (re-search-forward "\\[-\\]" nil t) (end-of-line) - (let* ((ol (car (semantic-overlays-at (1- (point))))) ;; trust this for now - (tag (when ol (semantic-overlay-get ol 'tag)))) + (let* ((ol (car (overlays-at (1- (point))))) ;; trust this for now + (tag (when ol (overlay-get ol 'tag)))) ;; If there is a tag, then close/open it. (when tag (semantic-symref-list-toggle-showing) |