From: Robert Pluim <rpluim@gmail.com>
Date: Thu, 1 Sep 2022 16:10:58 +0000 (+0200)
Subject: Make single char entry easier for `describe-char-fold-equivalences'
X-Git-Tag: emacs-29.0.90~1856^2~799
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0ec831b91cde2a0e1b65f99c1190975c6e6959f9;p=emacs.git

Make single char entry easier for `describe-char-fold-equivalences'

* lisp/char-fold.el (describe-char-fold-equivalences): Improve
docstring.  Pass t for 'allow-single' arg in call to
`read-char-by-name' so that single characters can be entered directly.
---

diff --git a/lisp/char-fold.el b/lisp/char-fold.el
index b2002826f73..2ac4cb0543a 100644
--- a/lisp/char-fold.el
+++ b/lisp/char-fold.el
@@ -431,15 +431,15 @@ BOUND NOERROR COUNT are passed to `re-search-backward'."
 ;;;###autoload
 (defun describe-char-fold-equivalences (char &optional lax)
   "Display characters equivalent to CHAR under character-folding.
-Prompt for CHAR (using `read-char-by-name', which see for how can
-you specify the character).  With no input, i.e. when CHAR is nil,
+Prompt for CHAR (using `read-char-by-name', which see for how to
+specify the character).  With no input, i.e. when CHAR is nil,
 describe all available character equivalences of `char-fold-to-regexp'.
 Optional argument LAX (interactively, the prefix argument), if
 non-nil, means also include partially matching ligatures and
 non-canonical equivalences."
   (interactive (list (ignore-errors
                        (read-char-by-name
-                        "Character (Unicode name or hex, default all): "))
+                        "Unicode name, single char, or hex, default all: " t))
                      current-prefix-arg))
   (require 'help-fns)
   (let ((help-buffer-under-preparation t))