mirror of
git://git.sv.gnu.org/emacs.git
synced 2025-12-15 10:30:25 -08:00
Remove no-op calls to decode-char with 'ucs' arg
* lisp/gnus/mm-util.el (mm-ucs-to-char): * lisp/language/hanja-util.el (hangul-to-hanja-char): * lisp/leim/quail/hangul.el (hangul3-input-method-internal) (hangul390-input-method-internal): * lisp/nxml/rng-cmpct.el (rng-c-process-escapes): * lisp/nxml/xsd-regexp.el (xsdre-compile-single-char) (xsdre-range-list-to-char-alternative): * lisp/xml.el (xml-parse-string, xml--entity-replacement-text) (xml-substitute-special): Remove calls to decode-char where first argument is 'ucs'; that is now a no-op. Discussed in Bug#52263. * lisp/nxml/xmltok.el (xmltok-unicode-to-char): Make into obsolete function alias for 'identity'. Update single caller.
This commit is contained in:
parent
19307704bd
commit
fad4049a09
7 changed files with 16 additions and 22 deletions
|
|
@ -6573,8 +6573,8 @@ The value is a hanja character that is selected interactively."
|
|||
(hanja-filter (lambda (x) (car x))
|
||||
(mapcar (lambda (c)
|
||||
(if (listp c)
|
||||
(cons (decode-char 'ucs (car c)) (cdr c))
|
||||
(list (decode-char 'ucs c))))
|
||||
(cons (car c) (cdr c))
|
||||
(list c)))
|
||||
(aref hanja-table char)))))
|
||||
(unwind-protect
|
||||
(when (aref hanja-conversions 2)
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue