dict-mode.el is obsolete. Code moved to gadict project. Upgrade is not required.
authorOleksandr Gavenko <gavenkoa@gmail.com>
Sun, 13 Mar 2016 14:07:01 +0200
changeset 1359 bde0bb33fb61
parent 1358 54b0b0bb4570
child 1360 a65e3eb1d96e
dict-mode.el is obsolete. Code moved to gadict project. Upgrade is not required.
dict-mode.el
--- a/dict-mode.el	Sun Mar 13 14:06:08 2016 +0200
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,84 +0,0 @@
-;;; dict-mode.el --- major mode for dict dictionary source files
-
-;; Copyright (C) 2011 by Oleksandr Gavenko <gavenkoa@gmail.com>
-
-;; You can do anything with this file without any warranty.
-
-;; Author: Oleksandr Gavenko <gavenkoa@gmail.com>
-;; Maintainer: Oleksandr Gavenko <gavenkoa@gmail.com>
-;; Created: 2011-09-04
-;; Version: 0.1
-;; Keywords: dict, dictionary
-
-;;; Commentary:
-;;
-;; Very pure release.
-
-;;; Code:
-
-(defvar dict-c5-font-lock-keywords
-  '(
-    ("^\\(_\\{5,\\}\\)\n\n\\(\\w.*\\)$"
-     (1 font-lock-function-name-face) (2 font-lock-keyword-face))
-    ("\\[[^]\n]+]" . font-lock-type-face)
-    ))
-
-(eval-when-compile
-  (defvar font-lock-beg)
-  (defvar font-lock-end))
-
-(defun dict-c5-font-lock-extend-region ()
-  "Look for '_____' expression and extend `font-lock-beg' and `font-lock-end'."
-  ;; (message "%d:%d, %d lines" font-lock-beg font-lock-end (count-lines font-lock-beg font-lock-end))
-  (cond
-   ((and
-     (< (count-lines font-lock-beg font-lock-end) 5)
-     (not (and (<= (point-max) font-lock-end) (<= font-lock-beg (point-min)) )))
-    (save-excursion
-      (goto-char font-lock-beg)
-      (forward-line -2)
-      (setq font-lock-beg (point))
-      (goto-char font-lock-end)
-      (forward-line 3)
-      (setq font-lock-end (point))
-      )
-    t)
-   (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."
-  (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 ?\" ".")
-  (make-local-variable 'paragraph-separate)
-  (setq paragraph-separate "\\([ \t\f]*\\|_\\{5,\\}\\)$")
-  (make-local-variable 'paragraph-start)
-  (setq paragraph-start paragraph-separate)
-  (add-hook 'font-lock-extend-region-functions 'dict-c5-font-lock-extend-region t)
-  )
-
-;;; dict-mode.el ends here