aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorStefan Kangas2025-01-27 06:19:34 +0100
committerStefan Kangas2025-01-27 06:22:23 +0100
commit2b3599bb08e8ccfe49bbaa28693fed8dca62440b (patch)
treeafb6e39bd9ebca19715f7a0a6ae48a758501d2f5
parent8d11871c63e65459fd14f1cbe08bf0460c452ac6 (diff)
downloademacs-2b3599bb08e8ccfe49bbaa28693fed8dca62440b.tar.gz
emacs-2b3599bb08e8ccfe49bbaa28693fed8dca62440b.zip
Don't use obsolete variables in semantic/idle.el
* 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'.
-rw-r--r--lisp/cedet/semantic/idle.el16
1 files changed, 6 insertions, 10 deletions
diff --git a/lisp/cedet/semantic/idle.el b/lisp/cedet/semantic/idle.el
index addd94690e7..515a6b439bb 100644
--- a/lisp/cedet/semantic/idle.el
+++ b/lisp/cedet/semantic/idle.el
@@ -820,13 +820,12 @@ visible, then highlight it."
820 (point) (get-buffer-window (current-buffer) 'visible)) 820 (point) (get-buffer-window (current-buffer) 'visible))
821 (if (< (overlay-end region) (line-end-position)) 821 (if (< (overlay-end region) (line-end-position))
822 (pulse-momentary-highlight-overlay 822 (pulse-momentary-highlight-overlay
823 region semantic-idle-symbol-highlight-face) 823 region semantic-idle-symbol-highlight)
824 ;; Not the same 824 ;; Not the same
825 (pulse-momentary-highlight-region 825 (pulse-momentary-highlight-region
826 (overlay-start region) 826 (overlay-start region)
827 (line-end-position) 827 (line-end-position)
828 semantic-idle-symbol-highlight-face)))) 828 semantic-idle-symbol-highlight))))))
829 ))
830 ((vectorp region) 829 ((vectorp region)
831 (let ((start (aref region 0)) 830 (let ((start (aref region 0))
832 (end (aref region 1))) 831 (end (aref region 1)))
@@ -845,8 +844,7 @@ visible, then highlight it."
845 (pulse-momentary-highlight-region 844 (pulse-momentary-highlight-region
846 start (if (<= end (line-end-position)) end 845 start (if (<= end (line-end-position)) end
847 (line-end-position)) 846 (line-end-position))
848 semantic-idle-symbol-highlight-face))) 847 semantic-idle-symbol-highlight)))))))
849 ))))
850 nil)) 848 nil))
851 849
852(define-semantic-idle-service semantic-idle-local-symbol-highlight 850(define-semantic-idle-service semantic-idle-local-symbol-highlight
@@ -876,12 +874,10 @@ Call `semantic-symref-hits-in-region' to identify local references."
876 target (lambda (start end _prefix) 874 target (lambda (start end _prefix)
877 (when (/= start (car Hbounds)) 875 (when (/= start (car Hbounds))
878 (pulse-momentary-highlight-region 876 (pulse-momentary-highlight-region
879 start end semantic-idle-symbol-highlight-face)) 877 start end semantic-idle-symbol-highlight))
880 (semantic-throw-on-input 'symref-highlight) 878 (semantic-throw-on-input 'symref-highlight))
881 )
882 (semantic-tag-start tag) 879 (semantic-tag-start tag)
883 (semantic-tag-end tag))) 880 (semantic-tag-end tag)))))))
884 ))))
885 881
886 882
887;;;###autoload 883;;;###autoload