# HG changeset patch
# User Oleksandr Gavenko <gavenkoa@gmail.com>
# Date 1324411880 -7200
# Node ID b00f5057ca3cca9f07e85a8bcbff76a910a2c086
# Parent  1b8d12e8ab769916e06aa216cd32cbafe266eab7
Rewrite code to use 'define-derived-mode'.

diff -r 1b8d12e8ab76 -r b00f5057ca3c obsolete/dict-c5-mode.el
--- a/obsolete/dict-c5-mode.el	Tue Dec 20 21:12:34 2011 +0200
+++ b/obsolete/dict-c5-mode.el	Tue Dec 20 22:11:20 2011 +0200
@@ -19,26 +19,26 @@
 (setq dict-c5-mode-map (make-sparse-keymap))
 ;; (define-key dict-c5-mode-map (kbd "RET") 'my-xxx)
 
-(require 'generic-x)
+(defvar dict-c5-font-lock-keywords
+;; (setq dict-c5-font-lock-keywords
+      '(
+        ("^\\(_\\{5,\\}\\)\n\n\\(\\w[^\n]*\\)$"
+         (1 font-lock-function-name-face) (2 font-lock-keyword-face))
+        ("\\[[^]]+]" . font-lock-type-face)
+        ))
 
 ;;;###autoload
-(define-generic-mode
-  'dict-c5-mode
-  nil
-  nil
-  '(
-    ("^\\(_\\{5,\\}\\)\n\n\\([^[:blank:]][^\n]*\\)$"
-     (1 font-lock-function-name-face) (2 font-lock-keyword-face))
-    ("\\[[^]]+]" . font-lock-type-face)
-    )
-  '("\\.dict-c5$")
-  (list
-   (lambda nil
-     (use-local-map dict-c5-mode-map)
-     (modify-syntax-entry ?' ".")
-     (modify-syntax-entry ?\" ".")
-     (setq font-lock-multiline t)
-     ))
+(define-derived-mode dict-c5-mode fundamental-mode "Dict-c5"
+  "Derived mode for editing C5 dictd source file."
+  (add-to-list 'auto-mode-alist (cons "\\.dict-c5$" 'dict-c5-mode))
+  (setq font-lock-defaults
+        '(dict-c5-font-lock-keywords
+          t nil nil nil
+          (font-lock-multiline . t)
+          ))
+  (use-local-map dict-c5-mode-map)
+  (modify-syntax-entry ?' ".")
+  (modify-syntax-entry ?\" ".")
   )
 
 ;;; dict-mode.el ends here