diff options
Diffstat (limited to 'lisp/cedet/semantic/senator.el')
-rw-r--r-- | lisp/cedet/semantic/senator.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/cedet/semantic/senator.el b/lisp/cedet/semantic/senator.el index ebe171a3a7a..b36f801988b 100644 --- a/lisp/cedet/semantic/senator.el +++ b/lisp/cedet/semantic/senator.el @@ -148,14 +148,14 @@ Return nil otherwise." "Return the tag before POS or one of its parent where to step." (let (ol tag) (while (and pos (> pos (point-min)) (not tag)) - (setq pos (semantic-overlay-previous-change pos)) + (setq pos (previous-overlay-change pos)) (when pos ;; Get overlays at position - (setq ol (semantic-overlays-at pos)) + (setq ol (overlays-at pos)) ;; find the overlay that belongs to semantic ;; and STARTS or ENDS at the found position. (while (and ol (not tag)) - (setq tag (semantic-overlay-get (car ol) 'semantic)) + (setq tag (overlay-get (car ol) 'semantic)) (unless (and tag (semantic-tag-p tag) (or (= (semantic-tag-start tag) pos) (= (semantic-tag-end tag) pos))) |