From: Stefan Kangas Date: Thu, 19 Dec 2024 23:01:24 +0000 (+0100) Subject: Prefer defvar-keymap in hangul.el X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=05c267e57bf23656bb6b1e4cfbcb90650e769c31;p=emacs.git Prefer defvar-keymap in hangul.el * lisp/leim/quail/hangul.el (hangul-im-keymap): Convert to defvar-keymap. (cherry picked from commit f0d7a395eaf818a6fe05ac1cf8b630775b02f451) --- 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.