contrib/gadict.el
changeset 366 98ac19478839
parent 365 86acae5bd220
child 367 ba263c893207
--- a/contrib/gadict.el	Mon Mar 21 14:44:38 2016 +0200
+++ b/contrib/gadict.el	Mon Mar 21 14:49:37 2016 +0200
@@ -70,8 +70,8 @@
   (insert-char ?\n 3)
   (backward-char))
 
-(defvar gadict-mode-map (make-sparse-keymap))
-(define-key gadict-mode-map [C-return] 'gadict-new-entry)
+(defun gadict-setup-keymap ()
+  (define-key gadict-mode-map [C-return] 'gadict-new-entry))
 
 ;;;###autoload
 (define-derived-mode gadict-mode fundamental-mode "gadict"
@@ -81,7 +81,7 @@
           t nil nil nil
           (font-lock-multiline . t)
           ))
-  (use-local-map gadict-mode-map)
+  (gadict-setup-keymap)
   (modify-syntax-entry ?' ".")
   (modify-syntax-entry ?\" ".")
   (make-local-variable 'paragraph-separate)