From 0ec831b91cde2a0e1b65f99c1190975c6e6959f9 Mon Sep 17 00:00:00 2001 From: Robert Pluim Date: Thu, 1 Sep 2022 18:10:58 +0200 Subject: [PATCH] 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. --- lisp/char-fold.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) 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)) -- 2.39.2