# HG changeset patch
# User Oleksandr Gavenko <gavenkoa@gmail.com>
# Date 1427326652 -7200
# Node ID 8732c7c894afb08340915aa80e68d58d77f6d404
# Parent  95ccf76a6c7fd63492ccab6697ca2890f0675ea8
dict-c5-new-entry

diff -r 95ccf76a6c7f -r 8732c7c894af obsolete/dict-c5-mode.el
--- a/obsolete/dict-c5-mode.el	Sun Mar 01 13:25:07 2015 +0200
+++ b/obsolete/dict-c5-mode.el	Thu Mar 26 01:37:32 2015 +0200
@@ -16,9 +16,6 @@
 
 ;;; Code:
 
-(defvar dict-c5-mode-map (make-sparse-keymap))
-;; (define-key dict-c5-mode-map (kbd "RET") 'my-xxx)
-
 (defvar dict-c5-font-lock-keywords
   '(
     ("^\\(_\\{5,\\}\\)\n\n\\(\\w.*\\)$"
@@ -49,6 +46,22 @@
    (t nil)
    ))
 
+(defun dict-c5-new-entry ()
+  "Insert new entry template."
+  (interactive)
+  (if (re-search-forward "^_____" nil t)
+      (beginning-of-line)
+    (goto-char (point-max)))
+  (while (eq (char-before) ?\n)
+    (delete-backward-char 1))
+  (insert-char ?\n)
+  (insert-char ?_ 5)
+  (insert-char ?\n 3)
+  (backward-char))
+
+(defvar dict-c5-mode-map (make-sparse-keymap))
+(define-key dict-c5-mode-map [C-return] 'dict-c5-new-entry)
+
 ;;;###autoload
 (define-derived-mode dict-c5-mode fundamental-mode "Dict-c5"
   "Derived mode for editing C5 dictd source file."