From: Stefan Kangas <stefan@marxist.se>
Date: Sun, 4 Apr 2021 23:35:18 +0000 (+0200)
Subject: * lisp/htmlfontify.el (hfy-triplet-regex): Use rx.
X-Git-Tag: emacs-28.0.90~3010
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e9c3d040bcfab5908e6deb7330038f36ce95bc93;p=emacs.git

* lisp/htmlfontify.el (hfy-triplet-regex): Use rx.
---

diff --git a/lisp/htmlfontify.el b/lisp/htmlfontify.el
index 0c8d5348247..550083d0e28 100644
--- a/lisp/htmlfontify.el
+++ b/lisp/htmlfontify.el
@@ -523,13 +523,10 @@ therefore no longer care about) will be invalid at any time.\n
 (defvar hfy-tmpfont-stack nil
   "An alist of derived fonts resulting from overlays.")
 
-(defconst hfy-hex-regex "[[:xdigit:]]")
-
 (defconst hfy-triplet-regex
-  (concat
-   "\\(" hfy-hex-regex hfy-hex-regex "\\)"
-   "\\(" hfy-hex-regex hfy-hex-regex "\\)"
-   "\\(" hfy-hex-regex hfy-hex-regex "\\)"))
+  (rx (group xdigit xdigit)
+      (group xdigit xdigit)
+      (group xdigit xdigit)))
 
 (defun hfy-interq (set-a set-b)
   "Return the intersection (using `eq') of two lists SET-A and SET-B."