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

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

Browse source
This commit is contained in:
Stefan Kangas 2021-04-05 01:35:18 +02:00
parent 1733fa0cab
commit e9c3d040bc
1 changed files with 3 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

9
lisp/htmlfontify.el
View file

@ -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."