contrib/gadict.el
changeset 392 4657b44ad9af
parent 391 68d510b25621
child 395 32309860fe92
equal deleted inserted replaced
391:68d510b25621 392:4657b44ad9af
   136     (re-search-backward "^$"))
   136     (re-search-backward "^$"))
   137   (backward-char))
   137   (backward-char))
   138 
   138 
   139 (defun gadict-setup-keymap ()
   139 (defun gadict-setup-keymap ()
   140   "Setup gadict keymap."
   140   "Setup gadict keymap."
   141   (define-key gadict-mode-map [C-return] 'gadict-new-entry))
   141   (define-key (current-local-map) [C-return] 'gadict-new-entry))
   142 
   142 
   143 ;;;###autoload
   143 ;;;###autoload
   144 (define-derived-mode gadict-mode fundamental-mode "gadict"
   144 (define-derived-mode gadict-mode fundamental-mode "gadict"
   145   "Derived mode for editing gadict dictionary source files."
   145   "Derived mode for editing gadict dictionary source files."
   146   (gadict-setup-fontlock)
   146   (gadict-setup-fontlock)