From: Juri Linkov <juri@linkov.net>
Date: Sun, 1 Nov 2020 21:20:53 +0000 (+0200)
Subject: Show nobreak-space face for more blank characters in describe-char.
X-Git-Tag: emacs-28.0.90~5287^2~6
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=43d5b79a6931b169557b5d78f9a7f9be0ab72e77;p=emacs.git

Show nobreak-space face for more blank characters in describe-char.

* lisp/descr-text.el (describe-char): Handle more non-ASCII whitespace
characters added in f018cffca0098ad1b82c51730a6d6cf146e3c488 (bug#44236)
---

diff --git a/lisp/descr-text.el b/lisp/descr-text.el
index ec9a9680137..075cb21c21a 100644
--- a/lisp/descr-text.el
+++ b/lisp/descr-text.el
@@ -687,7 +687,8 @@ The character information includes:
                                   (save-excursion (goto-char pos)
                                                   (looking-at-p "[ \t]+$")))
                              'trailing-whitespace)
-                            ((and nobreak-char-display char (eq char '#xa0))
+                            ((and nobreak-char-display char
+                                  (eq (get-char-code-property char 'general-category) 'Zs))
                              'nobreak-space)
                             ((and nobreak-char-display char
 				  (memq char '(#xad #x2010 #x2011)))