Fix handling of glyph codes in whitespace.el

* lisp/whitespace.el (whitespace-display-vector-p): Support glyph
codes, not just plain characters.  See
https://lists.gnu.org/archive/html/help-gnu-emacs/2024-04/msg00248.html
for the details.

diff --git a/lisp/whitespace.el b/lisp/whitespace.el
index 15c1b83fcc124d65f4c03660beb6a9cce0d75f13..bc23a8794ebfba9f76486929199cd1ede171ddc6 100644 (file)
--- a/lisp/whitespace.el
+++ b/lisp/whitespace.el
@@ -2474,7 +2474,7 @@ purposes)."
   (let ((i (length vec)))
     (when (> i 0)
       (while (and (>= (setq i (1- i)) 0)
-                 (whitespace-char-valid-p (aref vec i))))
+                 (whitespace-char-valid-p (glyph-char (aref vec i)))))
       (< i 0))))