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

[profile] / el / dot-emacs.el

diff --git a/el/dot-emacs.el b/el/dot-emacs.el
index 48819b48886dc8e44ca23225ee7eb62b46b3b18e..7fe8757bc67f82cdb07aea60aa32f526abf235e5 100644 (file)
--- 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."