[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)))))))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master d2ffa0fa488: ; Fix byte-compilation warnings,
Stefan Kangas <=