diff options
| author | Stefan Kangas <stefankangas@gmail.com> | 2025-01-27 08:50:35 +0100 |
|---|---|---|
| committer | Stefan Kangas <stefankangas@gmail.com> | 2025-01-27 09:19:39 +0100 |
| commit | d2ffa0fa488fcfec26c042d30d125915eb558444 (patch) | |
| tree | 2906d9ca4b0af85f665660dcc0af8cd95e94fdc2 | |
| parent | 1ed769a3cb753a86badba8a2878fa788a6fdc1f8 (diff) | |
; Fix byte-compilation warnings
| -rw-r--r-- | lisp/cedet/semantic/idle.el | 8 | ||||
| -rw-r--r-- | lisp/whitespace.el | 2 |
2 files changed, 5 insertions, 5 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." (point) (get-buffer-window (current-buffer) 'visible)) (if (< (overlay-end region) (line-end-position)) (pulse-momentary-highlight-overlay - region semantic-idle-symbol-highlight) + region 'semantic-idle-symbol-highlight) ;; Not the same (pulse-momentary-highlight-region (overlay-start region) (line-end-position) - semantic-idle-symbol-highlight)))))) + 'semantic-idle-symbol-highlight)))))) ((vectorp region) (let ((start (aref region 0)) (end (aref region 1))) @@ -844,7 +844,7 @@ visible, then highlight it." (pulse-momentary-highlight-region start (if (<= end (line-end-position)) end (line-end-position)) - semantic-idle-symbol-highlight))))))) + 'semantic-idle-symbol-highlight))))))) nil)) (define-semantic-idle-service semantic-idle-local-symbol-highlight @@ -874,7 +874,7 @@ 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)) + start end 'semantic-idle-symbol-highlight)) (semantic-throw-on-input 'symref-highlight)) (semantic-tag-start tag) (semantic-tag-end tag))))))) diff --git a/lisp/whitespace.el b/lisp/whitespace.el index 2f66950c7d3..efee11faf98 100644 --- a/lisp/whitespace.el +++ b/lisp/whitespace.el @@ -2544,7 +2544,7 @@ purposes)." (or (eq (aref vec i) ?\n) (aset vec i (make-glyph-code (aref vec i) - whitespace-newline))))) + 'whitespace-newline))))) ;; Display mapping (aset buffer-display-table (cadr entry) vec))))))) |