mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 12:21:25 -08:00
Code Issues Projects Releases Wiki Activity

; Fix byte-compilation warnings

Browse source
This commit is contained in:
Stefan Kangas 2025-01-27 08:50:35 +01:00
parent 1ed769a3cb
commit d2ffa0fa48
2 changed files with 5 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lisp/cedet/semantic/idle.el
View file

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

2
lisp/whitespace.el
View file

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