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 79526fa5aa8fe9720481d460575187a2f080ca30..d54b6f3a25bde8618661ae742a542a645c48ea8c 100644 (file)
--- 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
+  "<f9>"           #'hangul-to-hanja-conversion
+  "<Hangul_Hanja>" #'hangul-to-hanja-conversion)
 
 ;; Current input character buffer. Store separated hangul character.
 ;; The first and second are Choseong position.