From 1375113b0e308a4f0787f05c1e14028686c344ab Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Tue, 10 May 2022 13:57:28 -0500
Subject: meh

---
 lisp/acdw.el | 10 ++++++++++
 1 file changed, 10 insertions(+)

(limited to 'lisp')

diff --git a/lisp/acdw.el b/lisp/acdw.el
index 6707e76..3052976 100644
--- a/lisp/acdw.el
+++ b/lisp/acdw.el
@@ -447,5 +447,15 @@ sort order."
                    #'end-of-line
                    #'beginning-of-line-text)))))
 
+(defun +crm-indicator (args)
+  "AROUND advice for `completing-read-multiple'."
+  ;; [[https://github.com/minad/vertico/blob/8ab2cddf3a1fb8799611b1d35118bf579aaf3154/README.org][from vertico's README]]
+  (cons (format "[CRM%s] %s"
+                (replace-regexp-in-string
+                 "\\`\\[.*?]\\*\\|\\[.*?]\\*\\'" ""
+                 crm-separator)
+                (car args))
+        (cdr args)))
+
 (provide 'acdw)
 ;;; acdw.el ends here
-- 
cgit 1.4.1-21-gabe81