1 files changed, 10 insertions, 0 deletions
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

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."
447	#'end-of-line	447	#'end-of-line
448	#'beginning-of-line-text)))))	448	#'beginning-of-line-text)))))
449		449
		450	(defun +crm-indicator (args)
		451	"AROUND advice for `completing-read-multiple'."
		452	;; [[https://github.com/minad/vertico/blob/8ab2cddf3a1fb8799611b1d35118bf579aaf3154/README.org][from vertico's README]]
		453	(cons (format "[CRM%s] %s"
		454	(replace-regexp-in-string
		455	"\\`\\[.?]\\\\\|\\[.?]\\\\'" ""
		456	crm-separator)
		457	(car args))
		458	(cdr args)))
		459
450	(provide 'acdw)	460	(provide 'acdw)
451	;;; acdw.el ends here	461	;;; acdw.el ends here