From d2ffa0fa488fcfec26c042d30d125915eb558444 Mon Sep 17 00:00:00 2001 From: Stefan Kangas Date: Mon, 27 Jan 2025 08:50:35 +0100 Subject: [PATCH] ; Fix byte-compilation warnings --- lisp/cedet/semantic/idle.el | 8 ++++---- 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)))))))