# HG changeset patch
# User Oleksandr Gavenko <gavenkoa@gmail.com>
# Date 1458593330 -7200
# Node ID 9c6515663b38fe76429a7c4598c2b7260a737234
# Parent  ba263c893207e6e44ccea526e6fd79a51c76992f
Define paragraph/page break at "__" delimiter.

diff -r ba263c893207 -r 9c6515663b38 contrib/gadict.el
--- a/contrib/gadict.el	Mon Mar 21 14:50:05 2016 +0200
+++ b/contrib/gadict.el	Mon Mar 21 22:48:50 2016 +0200
@@ -35,6 +35,16 @@
   (set (make-local-variable 'comment-multi-line) nil)
   (set (make-local-variable 'comment-use-syntax) t) )
 
+(defun gadict-setup-paragraph ()
+  (make-local-variable 'paragraph-separate)
+  (setq paragraph-separate "__$")
+  (make-local-variable 'paragraph-start)
+  (setq paragraph-start "__$") )
+
+(defun gadict-setup-page ()
+  (make-local-variable 'paragraph-separate)
+  (setq page-delimiter "__$"))
+
 (eval-when-compile
   (defvar font-lock-beg)
   (defvar font-lock-end))
@@ -84,10 +94,8 @@
   (gadict-setup-keymap)
   (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)
+  (gadict-setup-paragraph)
+  (gadict-setup-page)
   (gadict-setup-comment)
   (add-hook 'font-lock-extend-region-functions 'gadict-font-lock-extend-region t) )