[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master e9c3d04 2/5: * lisp/htmlfontify.el (hfy-triplet-regex): Use rx.
From: |
Stefan Kangas |
Subject: |
master e9c3d04 2/5: * lisp/htmlfontify.el (hfy-triplet-regex): Use rx. |
Date: |
Mon, 5 Apr 2021 05:14:59 -0400 (EDT) |
branch: master
commit e9c3d040bcfab5908e6deb7330038f36ce95bc93
Author: Stefan Kangas <stefan@marxist.se>
Commit: Stefan Kangas <stefan@marxist.se>
* lisp/htmlfontify.el (hfy-triplet-regex): Use rx.
---
lisp/htmlfontify.el | 9 +++------
1 file changed, 3 insertions(+), 6 deletions(-)
diff --git a/lisp/htmlfontify.el b/lisp/htmlfontify.el
index 0c8d534..550083d 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."