1.1 --- a/yatex19.el	Sat Sep 01 08:00:58 2012 +0900
     1.2 +++ b/yatex19.el	Sat Sep 01 08:14:41 2012 +0900
     1.3 @@ -1,9 +1,9 @@
     1.4 -;;; -*- Emacs-Lisp -*-
     1.5 -;;; YaTeX facilities for Emacs 19 or later
     1.6 +;;; yatex19.el -- YaTeX facilities for Emacs 19 or later
     1.7  ;;; (c)1994-2012 by HIROSE Yuuji.[yuuji@yatex.org]
     1.8 -;;; Last modified Sun Jan 29 23:00:52 2012 on firestorm
     1.9 +;;; Last modified Sat Sep  1 08:07:31 2012 on firestorm
    1.10  ;;; $Id$
    1.11  
    1.12 +;;; Code:
    1.13  ;(require 'yatex)
    1.14  
    1.15  (and (boundp 'YaTeX-use-hilit19)

     2.1 --- a/yatexadd.el	Sat Sep 01 08:00:58 2012 +0900
     2.2 +++ b/yatexadd.el	Sat Sep 01 08:14:41 2012 +0900
     2.3 @@ -1,10 +1,10 @@
     2.4 -;;; -*- Emacs-Lisp -*-
     2.5 -;;; YaTeX add-in functions.
     2.6 +;;; yatexadd.el --- YaTeX add-in functions
     2.7  ;;; yatexadd.el rev.20
     2.8  ;;; (c)1991-2012 by HIROSE Yuuji.[yuuji@yatex.org]
     2.9 -;;; Last modified Fri Mar  9 21:19:09 2012 on firestorm
    2.10 +;;; Last modified Sat Sep  1 08:08:21 2012 on firestorm
    2.11  ;;; $Id$
    2.12  
    2.13 +;;; Code:
    2.14  ;;;
    2.15  ;;Sample functions for LaTeX environment.
    2.16  ;;;

     3.1 --- a/yatexenv.el	Sat Sep 01 08:00:58 2012 +0900
     3.2 +++ b/yatexenv.el	Sat Sep 01 08:14:41 2012 +0900
     3.3 @@ -1,10 +1,9 @@
     3.4 -;;; -*- Emacs-Lisp -*-
     3.5 -;;; YaTeX environment-specific functions.
     3.6 -;;; yatexenv.el
     3.7 +;;; yatexenv.el --- YaTeX environment-specific functions
     3.8  ;;; (c) 1994-2012 by HIROSE Yuuji.[yuuji@yatex.org]
     3.9 -;;; Last modified Sun Feb 12 11:15:33 2012 on firestorm
    3.10 +;;; Last modified Sat Sep  1 08:08:42 2012 on firestorm
    3.11  ;;; $Id$
    3.12  
    3.13 +;;; Code:
    3.14  ;;;
    3.15  ;; Functions for tabular environment
    3.16  ;;;

     4.1 --- a/yatexgen.el	Sat Sep 01 08:00:58 2012 +0900
     4.2 +++ b/yatexgen.el	Sat Sep 01 08:14:41 2012 +0900
     4.3 @@ -1,16 +1,15 @@
     4.4 -;;; -*- Emacs-Lisp -*-
     4.5 -;;; YaTeX add-in function generator.
     4.6 -;;; yatexgen.el rev.5
     4.7 +;;; yatexgen.el --- YaTeX add-in function generator(rev.5)
     4.8 +
     4.9  ;;; (c)1991-1995,1999,2000 by HIROSE Yuuji.[yuuji@yatex.org]
    4.10 -;;; Last modified Fri Jun 27 12:09:37 2003 on firestorm
    4.11 +;;; Last modified Sat Sep  1 08:10:36 2012 on firestorm
    4.12  ;;; $Id$
    4.13  
    4.14 +;;; Code:
    4.15  (require 'yatex)
    4.16  
    4.17  (defmacro YaTeX-setq (var japanese english)
    4.18    (list 'setq var
    4.19 -	(if YaTeX-japan japanese english))
    4.20 -)
    4.21 +	(if YaTeX-japan japanese english)))
    4.22  
    4.23  (put 'YaTeX-setq 'lisp-indent-hook 1)
    4.24  
    4.25 @@ -29,8 +28,7 @@
    4.26  reading my messages *carefully*, or you'll fail to generate appropriate
    4.27  function.
    4.28  
    4.29 -  Hit return key!"
    4.30 -)
    4.31 +  Hit return key!")
    4.32  
    4.33  (YaTeX-setq YaTeX-generate-start-message
    4.34    "さぁはじめるよ.\n1.登録したい補完をやってみて.
    4.35 @@ -40,33 +38,27 @@
    4.36    "Let's begin completion for which you want to make add-in function.
    4.37  If you want to make add-in function for \\documentstyle input only
    4.38  `\\documentstyle{}' *with* completion of yatex-mode.
    4.39 -If you finish this, please press RET."
    4.40 -)
    4.41 +If you finish this, please press RET.")
    4.42  
    4.43  (YaTeX-setq YaTeX-generate-abort-message
    4.44    "やめた、やめた〜いめんどくせ〜"
    4.45 -  "Aborted."
    4.46 -)
    4.47 +  "Aborted.")
    4.48  
    4.49  (YaTeX-setq YaTeX-generate-same-message
    4.50    "それじゃ、なにも変わってねぇだろーが! やめた。"
    4.51 -  "I found no difference between them.  So I'm quitting."
    4.52 -)
    4.53 +  "I found no difference between them.  So I'm quitting.")
    4.54  
    4.55  (YaTeX-setq YaTeX-generate-invalid-message
    4.56    "それは、ちと無理というものじゃ."
    4.57 -  "It's impossible."
    4.58 -)
    4.59 +  "It's impossible.")
    4.60  
    4.61  (YaTeX-setq YaTeX-generate-idontknow-message
    4.62    "う〜ん、難しくてよくわからないなぁ。ばかでごめんねェ〜"
    4.63 -  "Sorry I can't tell your adding method."
    4.64 -)
    4.65 +  "Sorry I can't tell your adding method.")
    4.66  
    4.67  (YaTeX-setq YaTeX-generate-confirm-message
    4.68    "ということは、付け足したい部分はこれでいいのね"
    4.69 -  "Is it additional string of add-in function?"
    4.70 -)
    4.71 +  "Is it additional string of add-in function?")
    4.72  
    4.73  (YaTeX-setq YaTeX-generate-output-message
    4.74    "2.じゃ、それにくっつけたいものを *カーソルの位置に* 足してみて. 
    4.75 @@ -75,8 +67,7 @@
    4.76  で、またおわったらりたーん!!"
    4.77    "2.Then input additional string *at CURSOR POSITION*
    4.78  According to last example \\documentstyle{},
    4.79 -modify it \\documentstyle[12pt]{}.  RET to finish."
    4.80 -)
    4.81 +modify it \\documentstyle[12pt]{}.  RET to finish.")
    4.82  
    4.83  (YaTeX-setq YaTeX-generate-put-arg-message
    4.84    "3.このうち、キーボードから読み込んで欲しい文字列を順に入れて。
    4.85 @@ -86,8 +77,7 @@
    4.86    "3.In this string, extract string which you want to input from key
    4.87  board with quiry afterwards.  For example, though additional string is
    4.88  \\documentstyle[12pt]{}, but you want enter only `12pt' by hand.
    4.89 -RET to finish!"
    4.90 -)
    4.91 +RET to finish!")
    4.92  
    4.93  (YaTeX-setq YaTeX-generate-read-prompt-message
    4.94    "4.では、あとでこれらの文字列を読み込む時に、どういうプロンプトを
    4.95 @@ -95,8 +85,7 @@
    4.96  さっきの 12pt の部分だったら、『サイズは』とかがおすすめ。"
    4.97    "4.When you use this add-in function afterwards, what message
    4.98  do you like to be prompted with to enter these values.  In last
    4.99 -example `12pt', typical prompt string may be `Size?: '."
   4.100 -)
   4.101 +example `12pt', typical prompt string may be `Size?: '.")
   4.102  
   4.103  (YaTeX-setq YaTeX-generate-done-message
   4.104    "よし! これが、君の作りたかった関数だ。~/.emacs にでも入れてせいぜい
   4.105 @@ -109,34 +98,29 @@
   4.106  for testing of this function please.
   4.107    But you can see this function quite easy, can't you? You had better
   4.108  write your most favorite add-in function yourself!
   4.109 -"
   4.110 -)
   4.111 +")
   4.112  
   4.113  (YaTeX-setq YaTeX-generate-nomatch-message
   4.114    "こらこら、そんな文字列どこにもねーぞ!!"
   4.115 -  "No such string in additional string."
   4.116 -)
   4.117 +  "No such string in additional string.")
   4.118 +
   4.119  (YaTeX-setq YaTeX-generate-buffer
   4.120    "*付加関数生成バッファ*"
   4.121 -  "*Generate-add-in-function*"
   4.122 -)
   4.123 +  "*Generate-add-in-function*")
   4.124  
   4.125  (YaTeX-setq YaTeX-generate-message-buffer
   4.126    "*ご案内*"
   4.127 -  "*Guide*"
   4.128 -)
   4.129 +  "*Guide*")
   4.130  
   4.131  (YaTeX-setq YaTeX-generate-bug-message
   4.132    "ごめ〜ん!! ちょっと、このアドイン関数つくるの失敗しちゃったみたい!!
   4.133  作者まで連絡してくださ〜〜〜い!"
   4.134    "Sorry I failed to make add-in function for you...
   4.135 -Send bug report to me."
   4.136 -)
   4.137 +Send bug report to me.")
   4.138  
   4.139  (YaTeX-setq YaTeX-generate-narrow-message
   4.140    "画面がせますぎるような気がします。"
   4.141 -  "Too narrow screen height."
   4.142 -)
   4.143 +  "Too narrow screen height.")
   4.144  
   4.145  (defvar YaTeX-generate-message-height
   4.146    10 "Window height of YaTeX-generate-message-buffer")
   4.147 @@ -249,8 +233,7 @@
   4.148    (condition-case error
   4.149        (eval-current-buffer)
   4.150      (error (insert YaTeX-generate-bug-message)))
   4.151 -  (pop-to-buffer YaTeX-generate-message-buffer)
   4.152 -)
   4.153 +  (pop-to-buffer YaTeX-generate-message-buffer))
   4.154  
   4.155  (defun YaTeX-generate-parse-add-in (args add-in)
   4.156    "Parse add-in string and extract argument for it.
   4.157 @@ -313,8 +296,7 @@
   4.158      (insert ")\n(concat " (YaTeX-generate-lisp-quote string)
   4.159  	    ")))\n")
   4.160      (indent-region (point-min) (point) nil)
   4.161 -    used)
   4.162 -)
   4.163 +    used))
   4.164  
   4.165  (defun YaTeX-generate-ask-match-position ()
   4.166    "Ask user whether match-position is in his expectation,
   4.167 @@ -331,14 +313,12 @@
   4.168    (insert "\n" (if YaTeX-japan "ここにも対応してるの?"
   4.169  		 "this underlined part too?"))
   4.170    (other-window -1)
   4.171 -  (y-or-n-p (if YaTeX-japan "下線部はあってますか" "Is underline right"))
   4.172 -)
   4.173 +  (y-or-n-p (if YaTeX-japan "下線部はあってますか" "Is underline right")))
   4.174  
   4.175  (defun YaTeX-generate-register-match ()
   4.176    (nconc arg (list (list beg end)))
   4.177    (let ((x beg))
   4.178 -    (while (< x end) (aset used x i)(setq x (1+ x))))
   4.179 -)
   4.180 +    (while (< x end) (aset used x i)(setq x (1+ x)))))
   4.181  
   4.182  (defun YaTeX-generate-display-message (mes &optional bottom)
   4.183    "Display message to generation buffer."
   4.184 @@ -347,8 +327,7 @@
   4.185    (insert "\n\n")
   4.186    (if bottom (recenter (1- bottom)) (recenter 0))
   4.187    (insert mes)
   4.188 -  (other-window -1)
   4.189 -)
   4.190 +  (other-window -1))
   4.191  
   4.192  (defun YaTeX-generate-move-to-add-in-position ()
   4.193    "Move cursor where add-in function should insert string."
   4.194 @@ -366,9 +345,7 @@
   4.195     ((eq YaTeX-current-completion-type 'maketitle)
   4.196      (goto-char (point-max))
   4.197      (if (= (preceding-char) ? )
   4.198 -	(forward-char -1)))
   4.199 -   )
   4.200 -)
   4.201 +	(forward-char -1)))))
   4.202  
   4.203  (defun YaTeX-generate-function-name ()
   4.204    (concat
   4.205 @@ -376,8 +353,7 @@
   4.206     (cond
   4.207      ((eq YaTeX-current-completion-type 'begin) YaTeX-env-name)
   4.208      ((eq YaTeX-current-completion-type 'section) YaTeX-section-name)
   4.209 -    ((eq YaTeX-current-completion-type 'maketitle) YaTeX-single-command)))
   4.210 -)
   4.211 +    ((eq YaTeX-current-completion-type 'maketitle) YaTeX-single-command))))
   4.212  
   4.213  (defun YaTeX-generate-lisp-quote (str)
   4.214    (let ((len (length str))(i 0) (quote ""))
   4.215 @@ -388,8 +364,7 @@
   4.216  	  (setq quote (concat quote "\""))
   4.217  	(setq quote (concat quote (substring str i (1+ i)))))
   4.218        (setq i (1+ i)))
   4.219 -    quote)
   4.220 -)
   4.221 +    quote))
   4.222  
   4.223  (defun YaTeX-generate-quote-quote (str)
   4.224    (let ((len (length str))(i 0) (quote ""))
   4.225 @@ -398,15 +373,13 @@
   4.226  	  (setq quote (concat quote (char-to-string 127))))
   4.227        (setq quote (concat quote (substring str i (1+ i))))
   4.228        (setq i (1+ i)))
   4.229 -    quote)
   4.230 -)
   4.231 +    quote))
   4.232  
   4.233  (defun YaTeX-suppress-sparse-keymap (map)
   4.234    (let ((i ? ))
   4.235      (while (< i 127)
   4.236        (define-key map (char-to-string i) 'undefined)
   4.237 -      (setq i (1+ i))))
   4.238 -)
   4.239 +      (setq i (1+ i)))))
   4.240  
   4.241  ;;;
   4.242  ;; Auto-generate Function for Lispers.
   4.243 @@ -423,8 +396,8 @@
   4.244       ((= c ?p) 'oneof)
   4.245       ((= c ?o) 'coord)
   4.246       ;;((= c ?m) 'macro)
   4.247 -     (t        'quit)))
   4.248 - )
   4.249 +     (t        'quit))))
   4.250 +
   4.251  (defun YaTeX-generate-read-completion-table ()
   4.252    (let ((i 1) cand (cands "(") (cb (current-buffer))
   4.253  	(buf (get-buffer-create " *Candidates*")))
   4.254 @@ -441,8 +414,8 @@
   4.255  	(insert cand "\n"))
   4.256        (kill-buffer buf)))
   4.257      ;;(set-buffer cb)
   4.258 -    (setq YaTeX-generate-current-completion-table (concat cands ")")))
   4.259 -)
   4.260 +    (setq YaTeX-generate-current-completion-table (concat cands ")"))))
   4.261 +
   4.262  (defun YaTeX-generate-corresponding-paren (left)
   4.263    (cond
   4.264     ((equal left "{") "}")
   4.265 @@ -450,16 +423,16 @@
   4.266     ((equal left "(") ")")
   4.267     ((equal left "<") ">")
   4.268     ((equal left "\\begin{") "}")
   4.269 -   (t left))
   4.270 -)
   4.271 +   (t left)))
   4.272 +
   4.273  (defun YaTeX-generate-create-read-string (&optional nth)
   4.274    (concat
   4.275     "(read-string \""
   4.276     (read-string (if nth (format "Prompt for argument#%d: " nth) "Prompt: "))
   4.277     ": \"\n"
   4.278     "\"" (read-string "Default: ") "\""
   4.279 -   ")\n")
   4.280 -)
   4.281 +   ")\n"))
   4.282 +
   4.283  (defun YaTeX-generate-create-completing-read (&optional nth)
   4.284    (prog1
   4.285        (concat
   4.286 @@ -475,21 +448,21 @@
   4.287  	      (cons
   4.288  	       (cons (format "YaTeX-%s-%d" command (or nth 0))
   4.289  		     YaTeX-generate-current-completion-table)
   4.290 -	       YaTeX-generate-variables-for-learning))))
   4.291 -)
   4.292 +	       YaTeX-generate-variables-for-learning)))))
   4.293 +
   4.294  (defun YaTeX-generate-create-read-file-name (&optional nth)
   4.295    (concat
   4.296     "(read-file-name \""
   4.297     (read-string (if nth (format "Prompt for argument#%d: " nth) "Prompt: "))
   4.298 -   ": \" "" \"\" t \"\")\n")
   4.299 -)
   4.300 +   ": \" "" \"\" t \"\")\n"))
   4.301 +
   4.302  (defun YaTeX-generate-create-read-oneof (&optional nth readpos)
   4.303    (concat
   4.304     (if readpos
   4.305         "(YaTeX:read-position \""
   4.306       "(YaTeX:read-oneof \"")
   4.307 -   (read-string "Acceptable characters: " "lcr") "\")\n")
   4.308 -)
   4.309 +   (read-string "Acceptable characters: " "lcr") "\")\n"))
   4.310 +
   4.311  (defun YaTeX-generate-option-type (command)
   4.312    (let ((func (format "YaTeX:%s" command)) leftp
   4.313  	(buf (get-buffer-create YaTeX-generate-buffer)) type (n 1))
   4.314 @@ -546,8 +519,8 @@
   4.315      (goto-char (point-min))
   4.316      (while (not (eobp)) (lisp-indent-line) (forward-line 1))
   4.317      (eval-current-buffer)
   4.318 -    buf)
   4.319 -)
   4.320 +    buf))
   4.321 +
   4.322  (defun YaTeX-generate-argument-type (command argc)
   4.323    "Create an argument-type add-in function."
   4.324    (interactive)
   4.325 @@ -581,8 +554,8 @@
   4.326      (YaTeX-update-table
   4.327       (if (> argc 1) (list command argc) (list command))
   4.328       'section-table 'user-section-table 'tmp-section-table)
   4.329 -    buf)
   4.330 -)
   4.331 +    buf))
   4.332 +
   4.333  (defun YaTeX-generate-simple (&optional command)
   4.334    "Simple but requiring some elisp knowledge add-in generator."
   4.335    (interactive)
   4.336 @@ -607,6 +580,6 @@
   4.337         (YaTeX-generate-option-type command)
   4.338       (YaTeX-generate-argument-type
   4.339        command
   4.340 -      (string-to-int (read-string "How many arguments?: ")))) nil)
   4.341 -)
   4.342 +      (string-to-int (read-string "How many arguments?: ")))) nil))
   4.343 +
   4.344  (provide 'yatexgen)

     5.1 --- a/yatexhie.el	Sat Sep 01 08:00:58 2012 +0900
     5.2 +++ b/yatexhie.el	Sat Sep 01 08:14:41 2012 +0900
     5.3 @@ -1,10 +1,10 @@
     5.4 -;;; -*- Emacs-Lisp -*-
     5.5 -;;; YaTeX hierarchy browser.
     5.6 -;;; yatexhie.el
     5.7 +;;; yatexhie.el --- YaTeX hierarchy browser
     5.8 +;;; 
     5.9  ;;; (c)1995-2012 by HIROSE Yuuji [yuuji@yatex.org]
    5.10 -;;; Last modified Mon Jan  9 20:19:06 2012 on firestorm
    5.11 +;;; Last modified Sat Sep  1 08:11:00 2012 on firestorm
    5.12  ;;; $Id$
    5.13  
    5.14 +;;; Code:
    5.15  ;; ----- Customizable variables -----
    5.16  (defvar YaTeX-hierarchy-ignore-heading-regexp
    5.17    "\\$[A-Z][a-z]+: .* \\$\\|-\\*- .* -\\*-"

     6.1 --- a/yatexhlp.el	Sat Sep 01 08:00:58 2012 +0900
     6.2 +++ b/yatexhlp.el	Sat Sep 01 08:14:41 2012 +0900
     6.3 @@ -1,10 +1,10 @@
     6.4 -;;; -*- Emacs-Lisp -*-
     6.5 -;;; YaTeX helper with LaTeX commands and macros.
     6.6 -;;; yatexhlp.el
     6.7 +;;; yatexhlp.el --- YaTeX helper with LaTeX commands and macros
     6.8 +;;; 
     6.9  ;;; (c)1994,1998,2004 by HIROSE Yuuji.[yuuji@yatex.org]
    6.10 -;;; Last modified Tue Oct 19 01:13:21 2004 on firestorm
    6.11 +;;; Last modified Sat Sep  1 08:11:14 2012 on firestorm
    6.12  ;;; $Id$
    6.13  
    6.14 +;;; Code:
    6.15  (let ((help-file (concat "YATEXHLP."
    6.16  			 (cond (YaTeX-japan "jp")
    6.17  			       (t "eng"))))

     7.1 --- a/yatexinf.el	Sat Sep 01 08:00:58 2012 +0900
     7.2 +++ b/yatexinf.el	Sat Sep 01 08:14:41 2012 +0900
     7.3 @@ -1,8 +1,8 @@
     7.4 -;;; -*- Emacs-Lisp -*-
     7.5 -;;; YaTeX interfaces for Texinfo mode.
     7.6 +;;; yatexinf.el -- YaTeX interfaces for Texinfo mode
     7.7  ;;; (c)1994-2012 by HIROSE, Yuuji [yuuji@yatex.org]
     7.8 -;;; Last modified Mon Jan  9 20:19:55 2012 on firestorm
     7.9 +;;; Last modified Sat Sep  1 08:11:25 2012 on firestorm
    7.10  
    7.11 +;;; Code:
    7.12  (require 'yatex)
    7.13  (or (boundp 'texinfo-mode-map)
    7.14      (load "texinfo"))

     8.1 --- a/yatexlib.el	Sat Sep 01 08:00:58 2012 +0900
     8.2 +++ b/yatexlib.el	Sat Sep 01 08:14:41 2012 +0900
     8.3 @@ -1,10 +1,10 @@
     8.4 -;;; -*- Emacs-Lisp -*-
     8.5 -;;; YaTeX and yahtml common libraries, general functions and definitions
     8.6 -;;; yatexlib.el
     8.7 +;;; yatexlib.el --- YaTeX and yahtml common libraries
     8.8 +;;; 
     8.9  ;;; (c)1994-2012 by HIROSE Yuuji.[yuuji@yatex.org]
    8.10 -;;; Last modified Wed Feb 29 09:49:30 2012 on firestorm
    8.11 +;;; Last modified Sat Sep  1 08:12:09 2012 on firestorm
    8.12  ;;; $Id$
    8.13  
    8.14 +;;; Code:
    8.15  ;; General variables
    8.16  (defvar YaTeX-dos (memq system-type '(ms-dos windows-nt OS/2)))
    8.17  (defvar YaTeX-macos (memq system-type '(darwin)))

     9.1 --- a/yatexm-o.el	Sat Sep 01 08:00:58 2012 +0900
     9.2 +++ b/yatexm-o.el	Sat Sep 01 08:14:41 2012 +0900
     9.3 @@ -1,8 +1,9 @@
     9.4 -;;; -*- Emacs-Lisp -*-
     9.5 -;;; Sample startup file to invoke yatex-mode with outline-minor mode.
     9.6 +;;; yatexm-o.el --- Sample to invoke yatex-mode with outline-minor mode
     9.7 +
     9.8  ;;; (c)1993 by HIROSE Yuuji [yuuji@yatex.org]
     9.9 -;;; Last modified Fri Jun 27 12:10:15 2003 on firestorm
    9.10 +;;; Last modified Sat Sep  1 08:12:40 2012 on firestorm
    9.11  
    9.12 +;;; Code:
    9.13  ;;;
    9.14  ;; outline-minor-mode(使用しない場合は不要です)
    9.15  ;;; 

    10.1 --- a/yatexmth.el	Sat Sep 01 08:00:58 2012 +0900
    10.2 +++ b/yatexmth.el	Sat Sep 01 08:14:41 2012 +0900
    10.3 @@ -1,10 +1,10 @@
    10.4 -;;; -*- Emacs-Lisp -*-
    10.5 -;;; YaTeX math-mode-specific functions.
    10.6 -;;; yatexmth.el
    10.7 +;;; yatexmth.el --- YaTeX math-mode-specific functions
    10.8 +;;; 
    10.9  ;;; (c)1993-2012 by HIROSE Yuuji [yuuji@yatex.org]
   10.10 -;;; Last modified Tue Jan 24 08:58:56 2012 on firestorm
   10.11 +;;; Last modified Sat Sep  1 08:13:08 2012 on firestorm
   10.12  ;;; $Id$
   10.13  
   10.14 +;;; Commentary:
   10.15  ;;; [Customization guide]
   10.16  ;;;
   10.17  ;;;	  By default,  you can use two  completion  groups in YaTeX math
   10.18 @@ -84,6 +84,7 @@
   10.19  ;;;	これらを ~/.emacs に書いておけば、math-mode で自分専用のイメージ
   10.20  ;;;	補完が利用できます。
   10.21  
   10.22 +;;; Code:
   10.23  (defvar YaTeX-jisold
   10.24    (and (boundp 'dos-machine-type)
   10.25         (eq dos-machine-type 'pc98)))

    11.1 --- a/yatexpkg.el	Sat Sep 01 08:00:58 2012 +0900
    11.2 +++ b/yatexpkg.el	Sat Sep 01 08:14:41 2012 +0900
    11.3 @@ -1,10 +1,10 @@
    11.4 -;;; -*- Emacs-Lisp -*-
    11.5 -;;; YaTeX package manager
    11.6 -;;; yatexpkg.el
    11.7 +;;; yatexpkg.el --- YaTeX package manager
    11.8 +;;; 
    11.9  ;;; (c)2003-2012 by HIROSE, Yuuji [yuuji@yatex.org]
   11.10 -;;; Last modified Mon Jan  9 20:13:53 2012 on firestorm
   11.11 +;;; Last modified Sat Sep  1 08:13:23 2012 on firestorm
   11.12  ;;; $Id$
   11.13  
   11.14 +;;; Code:
   11.15  (defvar YaTeX-package-ams-envs
   11.16    (mapcar 'car YaTeX-ams-env-table))
   11.17  

    12.1 --- a/yatexprc.el	Sat Sep 01 08:00:58 2012 +0900
    12.2 +++ b/yatexprc.el	Sat Sep 01 08:14:41 2012 +0900
    12.3 @@ -1,10 +1,10 @@
    12.4 -;;; -*- Emacs-Lisp -*-
    12.5 -;;; YaTeX process handler.
    12.6 -;;; yatexprc.el
    12.7 +;;; yatexprc.el --- YaTeX process handler
    12.8 +;;; 
    12.9  ;;; (c)1993-2012 by HIROSE Yuuji.[yuuji@yatex.org]
   12.10 -;;; Last modified Fri Feb 17 22:35:38 2012 on firestorm
   12.11 +;;; Last modified Sat Sep  1 08:13:49 2012 on firestorm
   12.12  ;;; $Id$
   12.13  
   12.14 +;;; Code:
   12.15  ;(require 'yatex)
   12.16  (require 'yatexlib)
   12.17  

    13.1 --- a/yatexsec.el	Sat Sep 01 08:00:58 2012 +0900
    13.2 +++ b/yatexsec.el	Sat Sep 01 08:14:41 2012 +0900
    13.3 @@ -1,10 +1,10 @@
    13.4 -;;; -*- Emacs-Lisp -*-
    13.5 -;;; YaTeX sectioning browser.
    13.6 -;;; yatexsec.el
    13.7 +;;; yatexsec.el --- YaTeX sectioning browser
    13.8 +;;; 
    13.9  ;;; (c) 1994-2012 by HIROSE Yuuji [yuuji@yatex.org]
   13.10 -;;; Last modified Mon Jan  9 20:20:32 2012 on firestorm
   13.11 +;;; Last modified Sat Sep  1 08:13:52 2012 on firestorm
   13.12  ;;; $Id$
   13.13  
   13.14 +;;; Code:
   13.15  (defvar YaTeX-sectioning-level
   13.16    '(("part" . 0)
   13.17      ("chapter" . 1)