contrib/gadict.el
changeset 367 ba263c893207
parent 366 98ac19478839
child 368 9c6515663b38
equal deleted inserted replaced
366:98ac19478839 367:ba263c893207
    25      ("^\\(?:en\\|ru\\|uk\\|la\\)> " . font-lock-doc-face)
    25      ("^\\(?:en\\|ru\\|uk\\|la\\)> " . font-lock-doc-face)
    26      ("^\\(?:topic\\|ant\\|syn\\): " . font-lock-doc-face)
    26      ("^\\(?:topic\\|ant\\|syn\\): " . font-lock-doc-face)
    27      ("^ +\\(?:v1\\|v2\\|v3\\|s\\|pl\\|male\\|female\\)$" . font-lock-doc-face)
    27      ("^ +\\(?:v1\\|v2\\|v3\\|s\\|pl\\|male\\|female\\)$" . font-lock-doc-face)
    28      ("^\\(?:n\\|v\\|phr\\.v\\|adj\\|adv\\|pron\\|prep\\|num\\|conj\\|int\\)$" . font-lock-type-face) ))
    28      ("^\\(?:n\\|v\\|phr\\.v\\|adj\\|adv\\|pron\\|prep\\|num\\|conj\\|int\\)$" . font-lock-type-face) ))
    29 
    29 
    30 (defun gadict-setup-comment-style ()
    30 (defun gadict-setup-comment ()
    31   (set (make-local-variable 'comment-start) "#")
    31   (set (make-local-variable 'comment-start) "#")
    32   (set (make-local-variable 'comment-continue) nil)
    32   (set (make-local-variable 'comment-continue) nil)
    33   (set (make-local-variable 'comment-end) "")
    33   (set (make-local-variable 'comment-end) "")
    34   (set (make-local-variable 'comment-end-skip) nil)
    34   (set (make-local-variable 'comment-end-skip) nil)
    35   (set (make-local-variable 'comment-multi-line) nil)
    35   (set (make-local-variable 'comment-multi-line) nil)
    86   (modify-syntax-entry ?\" ".")
    86   (modify-syntax-entry ?\" ".")
    87   (make-local-variable 'paragraph-separate)
    87   (make-local-variable 'paragraph-separate)
    88   (setq paragraph-separate "\\([ \t\f]*\\|_\\{5,\\}\\)$")
    88   (setq paragraph-separate "\\([ \t\f]*\\|_\\{5,\\}\\)$")
    89   (make-local-variable 'paragraph-start)
    89   (make-local-variable 'paragraph-start)
    90   (setq paragraph-start paragraph-separate)
    90   (setq paragraph-start paragraph-separate)
    91   (gadict-setup-comment-style)
    91   (gadict-setup-comment)
    92   (add-hook 'font-lock-extend-region-functions 'gadict-font-lock-extend-region t) )
    92   (add-hook 'font-lock-extend-region-functions 'gadict-font-lock-extend-region t) )
    93 
    93 
    94 (provide 'gadict)
    94 (provide 'gadict)
    95 
    95 
    96 ;;; dict-mode.el ends here
    96 ;;; dict-mode.el ends here