summary refs log tree commit diff stats
path: root/lisp
diff options
context:
space:
mode:
authorCase Duckworth2022-05-10 13:57:28 -0500
committerCase Duckworth2022-05-10 13:57:28 -0500
commit1375113b0e308a4f0787f05c1e14028686c344ab (patch)
tree37ad6f59f76a49f5f408c0fb75d826c613b11731 /lisp
parentFurther mode line changes (diff)
downloademacs-1375113b0e308a4f0787f05c1e14028686c344ab.tar.gz
emacs-1375113b0e308a4f0787f05c1e14028686c344ab.zip
meh
Diffstat (limited to 'lisp')
-rw-r--r--lisp/acdw.el10
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."
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