master 513c5d827d: Use `format-prompt' in `describe-char-fold-equivalences'

[Robert Pluim]

branch: master
commit 513c5d827decf474f923f6f66abd2ed62e0e64f0
Author: Robert Pluim <rpluim@gmail.com>
Commit: Robert Pluim <rpluim@gmail.com>

    Use `format-prompt' in `describe-char-fold-equivalences'
    
    * lisp/char-fold.el (describe-char-fold-equivalences): Use `format-prompt'.
---
 lisp/char-fold.el | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/lisp/char-fold.el b/lisp/char-fold.el
index 2ac4cb0543..43e3cd45ec 100644
--- a/lisp/char-fold.el
+++ b/lisp/char-fold.el
@@ -439,7 +439,9 @@ non-nil, means also include partially matching ligatures and
 non-canonical equivalences."
   (interactive (list (ignore-errors
                        (read-char-by-name
-                        "Unicode name, single char, or hex, default all: " t))
+                        (format-prompt "Unicode name, single char, or hex"
+                                       "all")
+                        t))
                      current-prefix-arg))
   (require 'help-fns)
   (let ((help-buffer-under-preparation t))