mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-08 16:52:40 -08:00
Code Issues Projects Releases Wiki Activity

Don't use obsolete variables in semantic/idle.el

Browse source 
* lisp/cedet/semantic/idle.el
(semantic-idle-symbol-maybe-highlight)
(semantic-idle-local-symbol-highlight): Don't use obsolete variable
'semantic-idle-symbol-highlight-face'.
This commit is contained in:
Stefan Kangas 2025-01-27 06:19:34 +01:00
parent 8d11871c63
commit 2b3599bb08
1 changed files with 6 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

16
lisp/cedet/semantic/idle.el
View file

@ -820,13 +820,12 @@ visible, then highlight it."
(point) (get-buffer-window (current-buffer) 'visible))
(if (< (overlay-end region) (line-end-position))
(pulse-momentary-highlight-overlay
region semantic-idle-symbol-highlight-face)
region semantic-idle-symbol-highlight)
;; Not the same
(pulse-momentary-highlight-region
(overlay-start region)
(line-end-position)
semantic-idle-symbol-highlight-face))))
))
semantic-idle-symbol-highlight))))))
((vectorp region)
(let ((start (aref region 0))
(end (aref region 1)))
@ -845,8 +844,7 @@ visible, then highlight it."
(pulse-momentary-highlight-region
start (if (<= end (line-end-position)) end
(line-end-position))
semantic-idle-symbol-highlight-face)))
))))
semantic-idle-symbol-highlight)))))))
nil))
(define-semantic-idle-service semantic-idle-local-symbol-highlight
@ -876,12 +874,10 @@ Call `semantic-symref-hits-in-region' to identify local references."
target (lambda (start end _prefix)
(when (/= start (car Hbounds))
(pulse-momentary-highlight-region
start end semantic-idle-symbol-highlight-face))
(semantic-throw-on-input 'symref-highlight)
)
start end semantic-idle-symbol-highlight))
(semantic-throw-on-input 'symref-highlight))
(semantic-tag-start tag)
(semantic-tag-end tag)))
))))
(semantic-tag-end tag)))))))
;;;###autoload