Improve prompt

greghendershott · Nov 13, 2024 · 1cccf04 · 1cccf04
1 parent e1f03fd
commit 1cccf04
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/racket-describe.el b/racket-describe.el
@@ -646,12 +646,13 @@ browser program -- are given `racket-ext-link-face'.
           (lambda (v)
             (apply racket-doc-index-predicate-function
                    (get-text-property 0 'racket-affix v))))
+         (prompt "Search Racket documentation: ")
          (require-match t)
          (initial-input nil)
          (history 'racket-identifier)
          (default (racket--thing-at-point 'symbol t))
          (history-add-new-input nil)) ;we'll do below
-    (when-let (str (completing-read "Describe: "
+    (when-let (str (completing-read prompt
                                     collection
                                     predicate
                                     require-match