From 3d46a93710267148da97b75756d6673993bf5467 Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Mon, 13 Sep 2021 19:52:49 -0500
Subject: Improve sort-setq

---
 lisp/acdw.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'lisp/acdw.el')

diff --git a/lisp/acdw.el b/lisp/acdw.el
index d789a74..91381da 100644
--- a/lisp/acdw.el
+++ b/lisp/acdw.el
@@ -564,7 +564,7 @@ It's called 'require-private' for historical reasons."
             (sort-beg (progn (beginning-of-defun)
                              (re-search-forward "[ \\t]*(" (point-at-eol))
                              (forward-sexp)
-                             (re-search-forward "\\<" (point-at-eol))
+                             (re-search-forward "\\_<" (point-at-eol))
                              (point-marker))))
         (narrow-to-region (1- sort-beg) (1+ sort-end))
         (sort-subr nil #'sort-setq-next-record #'sort-setq-end-record)))))
-- 
cgit 1.4.1-21-gabe81