1.1 --- a/yatex.el	Sat Jan 06 23:54:17 2018 +0900
     1.2 +++ b/yatex.el	Sat Jan 13 20:57:58 2018 +0900
     1.3 @@ -1,6 +1,6 @@
     1.4  ;;; yatex.el --- Yet Another tex-mode for emacs //–ì’¹// -*- coding: sjis -*-
     1.5  ;;; (c)1991-2018 by HIROSE Yuuji.[yuuji@yatex.org]
     1.6 -;;; Last modified Sat Jan  6 22:52:02 2018 on firestorm
     1.7 +;;; Last modified Tue Jan  9 13:30:45 2018 on firestorm
     1.8  ;;; $Id$
     1.9  ;;; The latest version of this software is always available at;
    1.10  ;;; https://www.yatex.org/
    1.11 @@ -378,58 +378,6 @@
    1.12  
    1.13  (defvar YaTeX-use-dot-env-extension t
    1.14    "*Use YaTeX's dot-env filter special environment.")
    1.15 -(defvar YaTeX-filter-special-env-alist-default
    1.16 -  '((".blockdiag"
    1.17 -     "blockdiag -T %t -o %o -"
    1.18 -     "blockdiag {
    1.19 -  default_fontsize = 32;
    1.20 -  A -> B;
    1.21 -}")
    1.22 -    (".seqdiag" "seqdiag -T %t -o %o -"
    1.23 -     "seqdiag {
    1.24 -  client -> server [label = \"SYN\"];
    1.25 -  client <- server [label = \"SYN/ACK\"];
    1.26 -  client -> server [label = \"ACK\"];}")
    1.27 -    (".actdiag" "actdiag -T %t -o %o -"
    1.28 -     "actdiag {
    1.29 -  sayHo -> ho -> hohoho
    1.30 -  lane dj {
    1.31 -    label = \"DJ\"
    1.32 -    sayHo [label = \"Say Ho\"]; hohoho [label = \"Ho Ho Ho!\"]; }
    1.33 -  lane mc { label = \"MC\"; ho [label = \"Hooooh!\"]}}")
    1.34 -    (".nwdiag" "nwdiag -T %t -o %o -"
    1.35 -     "nwdiag {
    1.36 -  network ext {
    1.37 -    address = \"10.1.2.0/24\"
    1.38 -    router [address = \"10.1.2.1\"]
    1.39 -  }
    1.40 -  network int {
    1.41 -    address = \"192.168.22.0/24\"
    1.42 -    router [address = \"192.168.22.1\"]
    1.43 -    websrv [address = \"192.168.22.80\"]
    1.44 -    cli-1; cli-2
    1.45 -  }
    1.46 -}")
    1.47 -    (".rackdiag" "rackdiag -T %t -o %o -"
    1.48 -     "rackdiag {
    1.49 -  16U;
    1.50 -  1: UPS [4U]; 5: Storage [3U]; 8: PC [2U]; 8: PC [2U];
    1.51 -}")
    1.52 -    (".dot"
    1.53 -     "dot -T %t -o %o"
    1.54 -     "digraph {
    1.55 -  graph [charset=\"utf-8\"]
    1.56 -}
    1.57 -bigraph {
    1.58 -  graph [charset=\"utf-8\"]}"
    1.59 -     )))
    1.60 -
    1.61 -(defvar YaTeX-filter-special-env-alist-private nil)
    1.62 -(defvar YaTeX-filter-special-env-alist
    1.63 -  (append YaTeX-filter-special-env-alist-private
    1.64 -	  YaTeX-filter-special-env-alist-default))
    1.65 -
    1.66 -
    1.67  
    1.68  ; Set tex-environment possible completion
    1.69  (defvar env-table
    1.70 @@ -455,10 +403,9 @@
    1.71  	 ("breakbox")))			;defined in eclbkbox
    1.72     (if YaTeX-use-AMS-LaTeX YaTeX-ams-env-table)
    1.73     YaTeX-math-other-env-alist
    1.74 -   (if YaTeX-use-dot-env-extension
    1.75 -       '((".blockdiag") (".nwdiag") (".seqdiag") (".rackdiag") (".packetdiag")
    1.76 -	 (".dot"))
    1.77 -     ))
    1.78 +   (and YaTeX-use-dot-env-extension
    1.79 +	(require 'yatexflt)
    1.80 +	YaTeX-filter-special-env-alist))
    1.81    "Default completion table for begin-type completion.")
    1.82  
    1.83  (defvar user-env-table nil)