diff options
| author | Stefan Kangas | 2025-01-27 08:50:35 +0100 |
|---|---|---|
| committer | Stefan Kangas | 2025-01-27 09:19:39 +0100 |
| commit | d2ffa0fa488fcfec26c042d30d125915eb558444 (patch) | |
| tree | 2906d9ca4b0af85f665660dcc0af8cd95e94fdc2 /lisp/cedet | |
| parent | 1ed769a3cb753a86badba8a2878fa788a6fdc1f8 (diff) | |
| download | emacs-d2ffa0fa488fcfec26c042d30d125915eb558444.tar.gz emacs-d2ffa0fa488fcfec26c042d30d125915eb558444.zip | |
; Fix byte-compilation warnings
Diffstat (limited to 'lisp/cedet')
| -rw-r--r-- | lisp/cedet/semantic/idle.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/cedet/semantic/idle.el b/lisp/cedet/semantic/idle.el index 515a6b439bb..caf581c56eb 100644 --- a/lisp/cedet/semantic/idle.el +++ b/lisp/cedet/semantic/idle.el | |||
| @@ -820,12 +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) | 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)))))) | 828 | 'semantic-idle-symbol-highlight)))))) |
| 829 | ((vectorp region) | 829 | ((vectorp region) |
| 830 | (let ((start (aref region 0)) | 830 | (let ((start (aref region 0)) |
| 831 | (end (aref region 1))) | 831 | (end (aref region 1))) |
| @@ -844,7 +844,7 @@ visible, then highlight it." | |||
| 844 | (pulse-momentary-highlight-region | 844 | (pulse-momentary-highlight-region |
| 845 | start (if (<= end (line-end-position)) end | 845 | start (if (<= end (line-end-position)) end |
| 846 | (line-end-position)) | 846 | (line-end-position)) |
| 847 | semantic-idle-symbol-highlight))))))) | 847 | 'semantic-idle-symbol-highlight))))))) |
| 848 | nil)) | 848 | nil)) |
| 849 | 849 | ||
| 850 | (define-semantic-idle-service semantic-idle-local-symbol-highlight | 850 | (define-semantic-idle-service semantic-idle-local-symbol-highlight |
| @@ -874,7 +874,7 @@ Call `semantic-symref-hits-in-region' to identify local references." | |||
| 874 | target (lambda (start end _prefix) | 874 | target (lambda (start end _prefix) |
| 875 | (when (/= start (car Hbounds)) | 875 | (when (/= start (car Hbounds)) |
| 876 | (pulse-momentary-highlight-region | 876 | (pulse-momentary-highlight-region |
| 877 | start end semantic-idle-symbol-highlight)) | 877 | start end 'semantic-idle-symbol-highlight)) |
| 878 | (semantic-throw-on-input 'symref-highlight)) | 878 | (semantic-throw-on-input 'symref-highlight)) |
| 879 | (semantic-tag-start tag) | 879 | (semantic-tag-start tag) |
| 880 | (semantic-tag-end tag))))))) | 880 | (semantic-tag-end tag))))))) |