comparison lisp/cedet/semantic/idle.el @ 104454:e4842bf0f303

lisp/cedet/semantic/symref/filter.el: New file. lisp/cedet/semantic/idle.el (semantic-symref-hits-in-region): Require semantic/symref/filter.
author Chong Yidong <cyd@stupidchicken.com>
date Sat, 05 Sep 2009 21:09:25 +0000
parents 273e528a9f9b
children e4788b39543d
comparison
equal deleted inserted replaced
104453:a19d1a45b823 104454:e4842bf0f303
55 (declare-function semanticdb-typecache-refresh-for-buffer "semantic/db-typecache") 55 (declare-function semanticdb-typecache-refresh-for-buffer "semantic/db-typecache")
56 (declare-function semantic-decorate-flush-pending-decorations 56 (declare-function semantic-decorate-flush-pending-decorations
57 "semantic/decorate/mode") 57 "semantic/decorate/mode")
58 (declare-function pulse-momentary-highlight-region "pulse") 58 (declare-function pulse-momentary-highlight-region "pulse")
59 (declare-function pulse-momentary-highlight-overlay "pulse") 59 (declare-function pulse-momentary-highlight-overlay "pulse")
60 (declare-function semantic-symref-hits-in-region "semantic/symref/filter")
60 61
61 ;;; Code: 62 ;;; Code:
62 63
63 ;;; TIMER RELATED FUNCTIONS 64 ;;; TIMER RELATED FUNCTIONS
64 ;; 65 ;;
922 (condition-case nil 923 (condition-case nil
923 (semantic-idle-summary-maybe-highlight target) 924 (semantic-idle-summary-maybe-highlight target)
924 (error nil)) 925 (error nil))
925 ;; Identify all hits in this current tag. 926 ;; Identify all hits in this current tag.
926 (when (semantic-tag-p target) 927 (when (semantic-tag-p target)
928 (require 'semantic/symref/filter)
927 (semantic-symref-hits-in-region 929 (semantic-symref-hits-in-region
928 target (lambda (start end prefix) 930 target (lambda (start end prefix)
929 (when (/= start (car Hbounds)) 931 (when (/= start (car Hbounds))
930 (pulse-momentary-highlight-region 932 (pulse-momentary-highlight-region
931 start end)) 933 start end))