emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

master d2ffa0fa488: ; Fix byte-compilation warnings


From: Stefan Kangas
Subject: master d2ffa0fa488: ; Fix byte-compilation warnings
Date: Mon, 27 Jan 2025 03:27:55 -0500 (EST)

branch: master
commit d2ffa0fa488fcfec26c042d30d125915eb558444
Author: Stefan Kangas <stefankangas@gmail.com>
Commit: Stefan Kangas <stefankangas@gmail.com>

    ; 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)))))))
 



reply via email to

[Prev in Thread] Current Thread [Next in Thread]