From 05c267e57bf23656bb6b1e4cfbcb90650e769c31 Mon Sep 17 00:00:00 2001 From: Stefan Kangas Date: Fri, 20 Dec 2024 00:01:24 +0100 Subject: [PATCH] Prefer defvar-keymap in hangul.el * lisp/leim/quail/hangul.el (hangul-im-keymap): Convert to defvar-keymap. (cherry picked from commit f0d7a395eaf818a6fe05ac1cf8b630775b02f451) --- lisp/leim/quail/hangul.el | 12 +++++------- 1 file changed, 5 insertions(+), 7 deletions(-) diff --git a/lisp/leim/quail/hangul.el b/lisp/leim/quail/hangul.el index 79526fa5aa8..d54b6f3a25b 100644 --- a/lisp/leim/quail/hangul.el +++ b/lisp/leim/quail/hangul.el @@ -86,13 +86,11 @@ 65 83 90 109 115 87 116 122 113 118 121 21 66 4 69 99 73 9 1 101 17 123 124 125 126]) -(defvar hangul-im-keymap - (let ((map (make-sparse-keymap))) - (define-key map "\d" #'hangul-delete-backward-char) - (define-key map [f9] #'hangul-to-hanja-conversion) - (define-key map [Hangul_Hanja] #'hangul-to-hanja-conversion) - map) - "Keymap for Hangul method. It is used by all Hangul input methods.") +(defvar-keymap hangul-im-keymap + :doc "Keymap for Hangul method. It is used by all Hangul input methods." + "DEL" #'hangul-delete-backward-char + "" #'hangul-to-hanja-conversion + "" #'hangul-to-hanja-conversion) ;; Current input character buffer. Store separated hangul character. ;; The first and second are Choseong position. -- 2.39.5