diff options
| author | Stefan Kangas <stefan@marxist.se> | 2021-04-05 01:35:18 +0200 |
|---|---|---|
| committer | Stefan Kangas <stefan@marxist.se> | 2021-04-05 11:14:34 +0200 |
| commit | e9c3d040bcfab5908e6deb7330038f36ce95bc93 (patch) | |
| tree | d911b8b3c12499f3ed843c2054512dfc0b5e9b76 /lisp | |
| parent | 1733fa0cab766bd3d2c725b31bc1e51d9b41ead7 (diff) | |
| download | emacs-e9c3d040bcfab5908e6deb7330038f36ce95bc93.tar.gz emacs-e9c3d040bcfab5908e6deb7330038f36ce95bc93.tar.bz2 emacs-e9c3d040bcfab5908e6deb7330038f36ce95bc93.zip | |
* lisp/htmlfontify.el (hfy-triplet-regex): Use rx.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/htmlfontify.el | 9 |
1 files changed, 3 insertions, 6 deletions
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." |