procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Allow easy entry of single chars in `read-char-by-name'

Browse source 
* lisp/international/mule-cmds.el (read-char-by-name): Add optional
'allow-single' argument, meaning to accept single chars as themselves.
This commit is contained in:
Robert Pluim 2022-09-01 17:59:10 +02:00
parent 6ffc091e17
commit b1c08a9581
1 changed files with 8 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
lisp/international/mule-cmds.el
View file

@ -3195,7 +3195,7 @@ Defines the sorting order either by character names or their codepoints."
:group 'mule
:version "28.1")
(defun read-char-by-name (prompt)
(defun read-char-by-name (prompt &optional allow-single)
"Read a character by its Unicode name or hex number string.
Display PROMPT and read a string that represents a character by its
Unicode property `name' or `old-name'.
@ -3216,7 +3216,10 @@ Accept a name like \"CIRCULATION FUNCTION\", a hexadecimal
number like \"2A10\", or a number in hash notation (e.g.,
\"#x2a10\" for hex, \"10r10768\" for decimal, or \"#o25020\" for
octal). Treat otherwise-ambiguous strings like \"BED\" (U+1F6CF)
as names, not numbers."
as names, not numbers.
Optional arg ALLOW-SINGLE non-nil means to additionally allow
single characters to be treated as standing for themselves."
(let* ((enable-recursive-minibuffers t)
(completion-ignore-case t)
(completion-tab-width 4)
@ -3239,6 +3242,9 @@ as names, not numbers."
(char
(cond
((char-from-name input t))
((and allow-single
(string-match-p "\\`.\\'" input)
(ignore-errors (string-to-char input))))
((string-match-p "\\`[[:xdigit:]]+\\'" input)
(ignore-errors (string-to-number input 16)))
((string-match-p "\\`#\\([bBoOxX]\\|[0-9]+[rR]\\)[0-9a-zA-Z]+\\'"