diff options
| author | Robert Pluim <rpluim@gmail.com> | 2022-09-02 15:09:48 +0200 |
|---|---|---|
| committer | Robert Pluim <rpluim@gmail.com> | 2022-09-02 15:11:50 +0200 |
| commit | 513c5d827decf474f923f6f66abd2ed62e0e64f0 (patch) | |
| tree | e5f5eeae5eeca1d4474d5278044132ea19d0088d | |
| parent | 965ebf3484bf8ec39d0ee34f4040071fe3e5e04a (diff) | |
| download | emacs-513c5d827decf474f923f6f66abd2ed62e0e64f0.tar.gz emacs-513c5d827decf474f923f6f66abd2ed62e0e64f0.tar.bz2 emacs-513c5d827decf474f923f6f66abd2ed62e0e64f0.zip | |
Use `format-prompt' in `describe-char-fold-equivalences'
* lisp/char-fold.el (describe-char-fold-equivalences): Use `format-prompt'.
| -rw-r--r-- | lisp/char-fold.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/char-fold.el b/lisp/char-fold.el index 2ac4cb0543a..43e3cd45ecb 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)) |