master f0d7a395eaf: Prefer defvar-keymap in hangul.el

[Stefan Kangas]

branch: master
commit f0d7a395eaf818a6fe05ac1cf8b630775b02f451
Author: Stefan Kangas <stefankangas@gmail.com>
Commit: Stefan Kangas <stefankangas@gmail.com>

    Prefer defvar-keymap in hangul.el
    
    * lisp/leim/quail/hangul.el (hangul-im-keymap): Convert to
    defvar-keymap.
---
 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
+  "<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.