From: Mark Wooding <mdw@distorted.org.uk>
Date: Sat, 17 Feb 2024 14:34:24 +0000 (+0000)
Subject: el/dot-emacs.el (mdw-regexp): Sort the input list.
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/profile/commitdiff_plain/48a9c9c1a60f4f5ebc71a5e5269b01109c9dcfa4?ds=inline

el/dot-emacs.el (mdw-regexp): Sort the input list.

It's compile time.  Nobody cares about the extra time, and it's a weight
off of my mind as a caller.
---

diff --git a/el/dot-emacs.el b/el/dot-emacs.el
index 48819b4..7fe8757 100644
--- a/el/dot-emacs.el
+++ b/el/dot-emacs.el
@@ -62,7 +62,7 @@ (defmacro mdw-regexps (&rest list)
   "Turn a LIST of strings into a single regular expression at compile-time."
   (declare (indent nil)
 	   (debug 0))
-  `',(make-regexp list))
+  `',(make-regexp (sort (copy-list list) #'string<)))
 
 (defun mdw-wrong ()
   "This is not the key sequence you're looking for."