Generate shorter docstrings

I am using relatively long names for the modified orderless completion styles in
my configuration, e.g., orderless+literal+initialism. Try to generate shorter
docstrings to avoid warnings on Emacs 28.

1 files changed, 5 insertions, 4 deletions

diff --git a/orderless.el b/orderless.el
index 9dc233c..c6012e9 100644
--- a/orderless.el
+++ b/orderless.el
@@ -469,10 +469,11 @@ string for the completion style."
   (let* ((fn-name (lambda (string) (intern (concat (symbol-name name) string))))
          (try-completion  (funcall fn-name "-try-completion"))
          (all-completions (funcall fn-name "-all-completions"))
-         (doc-fmt "`%s' function for the %s completion style.
-This configures orderless according to the %s completion style and
-delegates to `orderless-%s'.")
-         (fn-doc (lambda (fn) (format doc-fmt fn name name fn))))
+         (doc-fmt "`%s' function for the %s style.
+This function delegates to `orderless-%s'.
+The orderless configuration is locally modified
+specifically for the %s style.")
+         (fn-doc (lambda (fn) (format doc-fmt fn name fn name name))))
   `(progn
      (defun ,try-completion (string table pred point)
        ,(funcall fn-doc "try-completion")