From 5ff4c3ac95d8dfcc172ad36f0ebd9c12443c9046 Mon Sep 17 00:00:00 2001 From: Robert Pluim Date: Fri, 7 Jun 2024 12:07:50 +0200 Subject: [PATCH 2/3] Use 'char-to-name' To: emacs-devel@gnu.org * lisp/international/emoji.el (emoji--name): Lookup name using 'char-to-name'. * lisp/international/textsec.el (textsec-domain-suspicious-p): And here. * lisp/simple.el (what-cursor-position): And here. --- lisp/international/emoji.el | 2 +- lisp/international/textsec.el | 2 +- lisp/simple.el | 3 +-- 3 files changed, 3 insertions(+), 4 deletions(-) diff --git a/lisp/international/emoji.el b/lisp/international/emoji.el index 4f3aab5a6be..cbf7c547f4c 100644 --- a/lisp/international/emoji.el +++ b/lisp/international/emoji.el @@ -245,7 +245,7 @@ emoji--fontify-glyph (defun emoji--name (glyph) (or (gethash glyph emoji--names) - (get-char-code-property (aref glyph 0) 'name))) + (char-to-name (aref glyph 0)))) (defvar-keymap emoji-list-mode-map "RET" #'emoji-list-select diff --git a/lisp/international/textsec.el b/lisp/international/textsec.el index 4740dd81345..224363732fe 100644 --- a/lisp/international/textsec.el +++ b/lisp/international/textsec.el @@ -296,7 +296,7 @@ textsec-domain-suspicious-p "" (concat ": " (string char))) char - (get-char-code-property char 'name))))) + (char-to-name char))))) domain) ;; Does IDNA allow it? (unless (puny-highly-restrictive-domain-p domain) diff --git a/lisp/simple.el b/lisp/simple.el index 68209eadc41..8d7e379b584 100644 --- a/lisp/simple.el +++ b/lisp/simple.el @@ -1827,8 +1827,7 @@ what-cursor-position (interactive "P") (let* ((char (following-char)) (char-name (and what-cursor-show-names - (or (get-char-code-property char 'name) - (get-char-code-property char 'old-name)))) + (char-to-name char))) (char-name-fmt (if char-name (format ", %s" char-name) "")) -- 2.39.2