diff options
| author | Case Duckworth | 2022-05-10 13:57:28 -0500 |
|---|---|---|
| committer | Case Duckworth | 2022-05-10 13:57:28 -0500 |
| commit | 1375113b0e308a4f0787f05c1e14028686c344ab (patch) | |
| tree | 37ad6f59f76a49f5f408c0fb75d826c613b11731 /lisp | |
| parent | Further mode line changes (diff) | |
| download | emacs-1375113b0e308a4f0787f05c1e14028686c344ab.tar.gz emacs-1375113b0e308a4f0787f05c1e14028686c344ab.zip | |
meh
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/acdw.el | 10 |
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 |