diff --git a/help/YATEXHLP.jp b/help/YATEXHLP.jp
index 464dc54..daf13f7 100644
--- a/help/YATEXHLP.jp
+++ b/help/YATEXHLP.jp
@@ -1281,14 +1281,17 @@
 	�Ƒ��k����ƁA�u�����v�ƈ�R���A���΂炭�o���Ă���u����ς�~
 	�����v�ƌ����ȂǁA�����̍������������Ă��������܂����B
 
+	1997�N3��10���A��ʎ��̂ɂ�舤�@ZZ-R1100(D1)�Ƌ��ɂ��̐��֗���
+	����܂����B���N��\�Z�΁B�ނɂ́A�쒹�����łȂ�������|��������
+	���̃\�t�g�E�F�A����铮�@�A�Z���X���ӂ��R�����g�Ȃǂ𒸂��܂�
+	���B���݂̖쒹���F�l�Ɏx�������悤�Ɍ��₩�Ɉ�����͔̂ނ̂���
+	���ƌ����Ă��ߌ��ł͂���܂���B�쒹/����/�������g���Ƃ��ɔނ̈�
+	�炩�Ȗ�������Ƌ��ɋF���ĉ������B
+
 ��˂�������(asciinet)
 	�肢�t�������ł��B
 	http://www.comp.ae.keio.ac.jp/~yuuji/lune/astrology/
 
-���삳��(prc)
-        �e���Ŗ\��Ă��܂��B
-	http://www.prc.tsukuba.ac.jp/~katsura/
-
 �O���P�Y����(�c���)
 	�J�����ʂ̓��͎��̏����̃��[�h�����̃A�C�f�A�𒸂��܂����B
 
diff --git a/yahtml.el b/yahtml.el
index f22d712..ec8cac0 100644
--- a/yahtml.el
+++ b/yahtml.el
@@ -1,6 +1,6 @@
 ;;; -*- Emacs-Lisp -*-
 ;;; (c ) 1994-1997 by HIROSE Yuuji [yuuji@ae.keio.ac.jp]
-;;; Last modified Fri Jan 24 18:03:01 1997 on supra
+;;; Last modified Mon Apr  7 16:58:32 1997 on crx
 ;;; $Id$
 
 ;;;[Installation]
@@ -115,7 +115,7 @@
   (yahtml-define-begend-key-normal key env map)
   (if YaTeX-inhibit-prefix-letter nil
     (yahtml-define-begend-region-key
-     (concat (upcase (substring key 0 1)) (substring key 1)) env)))
+     (concat (upcase (substring key 0 1)) (substring key 1)) env map)))
 
 
 (if yahtml-mode-map nil
@@ -146,8 +146,10 @@
     (YaTeX-define-key ")" 'YaTeX-insert-parens-region map)
     (YaTeX-define-key "s" 'yahtml-insert-form map)
     (YaTeX-define-key "l" 'yahtml-insert-tag map)
+    (YaTeX-define-key "L" 'yahtml-insert-tag-region map)
     (YaTeX-define-key "m" 'yahtml-insert-single map)
-    (YaTeX-define-key "n" '(lambda () (interactive) (if yahtml-prefer-upcases (insert "<BR>")(insert "<br>"))) map)
+    (YaTeX-define-key "n" '(lambda () (interactive) (insert (if yahtml-prefer-upcases "<BR>" "<br>"))) map)
+    (YaTeX-define-key "-" '(lambda () (interactive) (insert (if yahtml-prefer-upcases "<HR>" "<hr>") "\n")) map)
     (if YaTeX-no-begend-shortcut
 	(progn
 	  (YaTeX-define-key "B" 'yahtml-insert-begend-region map)
@@ -188,11 +190,11 @@
 
 (defvar yahtml-paragraph-start
   (concat
-   "^$\\|<!--\\|^[ \t]*</?\\(h[1-6]\\|p\\|d[ldt]\\|[bhtd][rdh]\\|li\\|body\\|html\\|head\\|title\\|ul\\|ol\\|dl\\|pre\\|table\\|center\\)\\b")
+   "^$\\|<!--\\|^[ \t]*</?\\(h[1-6]\\|p\\|d[ldt]\\|[bhtd][rdh]\\|li\\|body\\|html\\|head\\|title\\|ul\\|ol\\|dl\\|pre\\|table\\|center\\|blockquote\\)\\b")
   "*Regexp of html paragraph separater")
 (defvar yahtml-paragraph-separate
   (concat
-   "^$\\|<!--\\|^[ \t]*</?\\(h[1-6]\\|p\\|[bhtd][ldt]\\|li\\|body\\|html\\|head\\|title\\|ul\\|ol\\|dl\\|pre\\|table\\|center\\|!--\\)\\b")
+   "^$\\|<!--\\|^[ \t]*</?\\(h[1-6]\\|p\\|[bhtd][ldt]\\|li\\|body\\|html\\|head\\|title\\|ul\\|ol\\|dl\\|pre\\|table\\|center\\|blockquote\\|!--\\)\\b")
   "*Regexp of html paragraph separater")
 (defvar yahtml-syntax-table nil
   "*Syntax table for typesetting buffer")
@@ -200,8 +202,8 @@
 (if yahtml-syntax-table nil
   (setq yahtml-syntax-table
 	(make-syntax-table (standard-syntax-table)))
-  (modify-syntax-entry ?\< "(" yahtml-syntax-table)
-  (modify-syntax-entry ?\> ")" yahtml-syntax-table)
+  (modify-syntax-entry ?\< "(>" yahtml-syntax-table)
+  (modify-syntax-entry ?\> ")<" yahtml-syntax-table)
   (modify-syntax-entry ?\n " " yahtml-syntax-table)
 )
 (defvar yahtml-command-regexp "[A-Za-z0-9]+"
@@ -221,7 +223,8 @@
     ("DefinitionList" . "dl")
     ("Preformatted" . "pre")
     ("table") ("tr") ("th") ("td")
-    ("h1") ("h2") ("h3") ("h4") ("h5") ("h6")))
+    ("h1") ("h2") ("h3") ("h4") ("h5") ("h6")
+    ("p")))
 
 (defvar yahtml-itemizing-regexp
   "\\(ul\\|ul\\|dl\\)"
@@ -258,9 +261,14 @@
 
 (defvar yahtml-prefer-upcases nil)
 
+;(defvar yahtml-struct-name-regexp
+;  "\\<\\(h[1-6]\\|[uod]l\\|html\\|body\\|title\\|head\\|table\\|t[rhd]\\|pre\\|a\\|form\\|select\\|center\\|blockquote\\)\\b")
 (defvar yahtml-struct-name-regexp
-  "\\<\\(h[1-6]\\|[uod]l\\|html\\|body\\|title\\|head\\|table\\|t[rhd]\\|pre\\|a\\|form\\|select\\)\\b")
-
+  (concat
+   "\\<\\("
+   (mapconcat (function (lambda (x) (car x))) yahtml-typeface-table "\\|")
+   "\\)\\b")
+  "Regexp of structure beginning.")
 
 (defun yahtml-mode ()
   (interactive)
@@ -610,7 +618,7 @@
 	      "\"")))))
 
 (defvar yahtml-parameters-completion-alist
-  '(("align" ("top") ("middle") ("bottom"))
+  '(("align" ("top") ("middle") ("bottom") ("left") ("right") ("center"))
     ("src" . file)
     ("method" ("POST") ("GET"))))
 
@@ -665,6 +673,12 @@
 (defun yahtml:dt ()
   (setq yahtml-last-single-cmd "dd") "")
 
+(defun yahtml:p ()
+  (let ((alg (yahtml-read-parameter "align")))
+    (if (string< "" alg)
+	(setq alg (concat "align=" alg)
+	      alg (if yahtml-prefer-upcases (upcase alg) (downcase alg)))
+      "")))
 
 (defvar yahtml-input-types
   '(("text") ("password") ("checkbox") ("radio") ("submit")
@@ -736,6 +750,11 @@
     (insert (format "<%s%s>" tag (yahtml-addin tag)))
     (save-excursion (insert (format "</%s>" tag)))))
 
+(defun yahtml-insert-tag-region (&optional tag)
+  "Call yahtml-insert-tag with region mode."
+  (interactive)
+  (yahtml-insert-tag t tag))
+
 (defun yahtml-insert-single (cmd)
   "Insert <CMD>."
   (interactive
@@ -1158,7 +1177,7 @@
 (defun yahtml-fill-paragraph (arg)
   (interactive "P")
   (let*((case-fold-search t) (p (point))
-	(e (or (yahtml-inner-environment-but "^a\\b" t) "html"))
+	(e (or (yahtml-inner-environment-but "^\\(a\\|p\\)\\b" t) "html"))
 	(prep (string-match "^pre$" e))
 	(ps1 (if prep (default-value 'paragraph-start)
 	       paragraph-start))
@@ -1195,12 +1214,13 @@
 ;;; 
 (defun yahtml-indent-line ()
   (interactive)
-  (let ((envs "[uod]l\\|table\\|t[rhd]\\|select")
-	(itms "<\\(dt\\|dd\\|li\\|t[rdh]\\|option\\)>")
+  (let ((envs "[uod]l\\|table\\|t[rhd]\\|select\\|blockquote")
+	(itms "<\\(dt\\|dd\\|li\\|t[rdh]\\|option\\)\\b")
 	inenv p col peol (case-fold-search t))
     (save-excursion
       (beginning-of-line)
-      (setq inenv (or (yahtml-inner-environment-but "^a\\b" t) "html")
+      (setq inenv (or (yahtml-inner-environment-but "^\\(a\\|p\\)\\b" t)
+		      "html")
 	    col (get 'YaTeX-inner-environment 'indent)
 	    p (get 'YaTeX-inner-environment 'point)
 	    op))
@@ -1224,7 +1244,9 @@
 		    (setq op (point))
 		    (goto-char p)
 		    (re-search-forward itms op t)
-		    (goto-char (match-end 0))
+		    ;(goto-char (match-end 0))
+		    (skip-chars-forward "^>")
+		    (skip-chars-forward ">")
 		    (skip-chars-forward " \t")
 		    (setq col (current-column)))))
 	    (YaTeX-reindent col))
diff --git a/yatex.el b/yatex.el
index 58ab576..9d35331 100644
--- a/yatex.el
+++ b/yatex.el
@@ -1,8 +1,8 @@
 ;;; -*- Emacs-Lisp -*-
 ;;; Yet Another tex-mode for emacs.
-;;; yatex.el rev. 1.63
+;;; yatex.el rev. 1.64
 ;;; (c )1991-1997 by HIROSE Yuuji.[yuuji@ae.keio.ac.jp]
-;;; Last modified Fri Jan 24 17:57:14 1997 on supra
+;;; Last modified Tue Apr  8 05:07:31 1997 on crx
 ;;; $Id$
 
 ;; This program is free software; you can redistribute it and/or modify
@@ -20,7 +20,7 @@
 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
 (require 'comment)
-(defconst YaTeX-revision-number "1.63"
+(defconst YaTeX-revision-number "1.64"
   "Revision number of running yatex.el"
 )
 
@@ -478,6 +478,9 @@
   ;(suppress-keymap YaTeX-typesetting-mode-map t)
   (define-key YaTeX-typesetting-mode-map " " 'YaTeX-jump-error-line)
   (define-key YaTeX-typesetting-mode-map "\C-m" 'YaTeX-send-string)
+  (define-key YaTeX-typesetting-mode-map "1" 'delete-other-windows)
+  (define-key YaTeX-typesetting-mode-map "0" 'delete-window)
+  (define-key YaTeX-typesetting-mode-map "q" 'delete-window)
 )
 
 (defvar YaTeX-section-completion-map nil
@@ -725,6 +728,8 @@
 ;;autoload from yatexhie.el
 (autoload 'YaTeX-display-hierarchy "yatexhie"
   "YaTeX document hierarchy browser" t)
+(autoload 'YaTeX-display-hierarchy-directly "yatexhie"
+  "Same as YaTeX-display-hierarchy.  Call from mouse." t)
 
 ;; autoload from yahtml.el
 (autoload 'yahtml-inner-environment-but "yahtml" "yahtml internal func." t)
@@ -1627,7 +1632,7 @@
   '(("\\\\epsfile{[^},]*file=\\(\\([^,} ]*/\\)?[^,}. ]+\\)\\(\\.e?ps\\)?[^}]*}" 1)
     ("\\\\epsfig{[^},]*fi\\(le\\|gure\\)=\\(\\([^,} ]*/\\)?[^,}. ]+\\)\\(\\.e?ps\\)?[^}]*}" 2)
     ("\\\\postscriptbox{[^}]*}{[^}]*}{\\(\\([^,} ]*/\\)?[^}. ]+\\)\\(\\.e?ps\\)?}" 1)
-    ("\\\\\\(epsfbox\\|includegraphics\\){\\(\\([^,} ]*/\\)?[^} ]+\\)\\(\\.e?ps\\)?}" 2)
+    ("\\\\\\(epsfbox\\|includegraphics\\){\\(\\([^,} ]*/\\)?[^}. ]+\\)\\(\\.e?ps\\)?}" 2)
     ("\\\\\\(psbox\\)\\(\\[[^]]+\\]\\)?{\\(\\([^,} ]*/\\)?[^} ]+\\)\\(\\.e?ps\\)}" 3) ;\psbox[options...]{hoge.eps} (97/1/11)
     )
   "See the documentation of YaTeX-processed-file-regexp-alist."
@@ -1820,8 +1825,8 @@
   (cond
    ((YaTeX-goto-corresponding-label arg))
    ((YaTeX-goto-corresponding-environment))
-   ((YaTeX-goto-corresponding-file arg))
    ((YaTeX-goto-corresponding-file-processor arg))
+   ((YaTeX-goto-corresponding-file arg))
    ((YaTeX-goto-corresponding-BEGIN-END))
    ((and (string-match
 	  YaTeX-equation-env-regexp	;to delay loading
@@ -1962,7 +1967,7 @@
 		;;append `^%' to head of paragraph delimiter.
 		(paragraph-start
 		 (concat
-		  "^$\\|^%\\(" YaTeX-paragraph-delimiter "\\)"))
+		  "^$\\|^%\\(" YaTeX-paragraph-separate "\\)"))
 		(paragraph-separate paragraph-start))
 	    (mark-paragraph)
 	    (if (not (bobp)) (forward-line 1))
@@ -2533,7 +2538,7 @@
 		      (progn (setq p (point)) (insert YaTeX-comment-prefix)))
 		  (forward-line 1))
 		(goto-char p)
-		(delete-char 1)		;remove last inserted `%'
+		(if (looking-at "%") (delete-char 1)) ;remove last inserted `%'
 		)))))))
 )
 
@@ -2556,7 +2561,8 @@
 ;	 (string-match
 ;	  "^[Pp][Rr][Ee]" (yahtml-inner-environment-but "^[Aa]\\b" t)))
 ;    (yahtml-indent-new-commnet-line))
-   ((YaTeX-in-math-mode-p) nil)		;1996/12/30
+   ((and (eq major-mode 'yatex-mode)	;1997/2/4
+	 (YaTeX-in-math-mode-p)) nil)		;1996/12/30
    (t (let (fill-prefix)
 	(apply 'YaTeX-saved-indent-new-comment-line (if soft (list soft))))))
 )
diff --git a/yatex.new b/yatex.new
index 3076abd..62dc2f5 100644
--- a/yatex.new
+++ b/yatex.new
@@ -1,6 +1,13 @@
 	What's new in YaTeX
 	�쒹/yahtml - �e�o�[�W�����̕ύX�_�ɂ‚���
 
+1.64	yahtml���N�������YaTeX�� [prefix] Bc ��<center>�ȂǂɂȂ��Ă���
+	���̂��C���B
+	NTT-jTeX �� t �̂Ƃ���fill�����܂��s���Ȃ����Ƃ�����̂��C���B
+	YaTeX-uncomment-paragraph ���C���B
+	yahtml�ŕ��͒���$�������auto-indent�������Ȃ��Ȃ�̂��C���B
+	yatex��\end�s��Intelligent newline�������̃o�O���C���B
+
 1.63	�������[�h�ɓ������犿�����[�h��OFF�ɂ���悤�ɂ���(�{��1.62)
 	yahtml�� [prefix] t j ��(j)weblint���ĂԂ悤�ɂ����B
 	yahtml�̃u���E�U�N���́A[prefix] t p �ɕύX�B
diff --git a/yatex19.el b/yatex19.el
index 63b7b9a..b8cf113 100644
--- a/yatex19.el
+++ b/yatex19.el
@@ -1,7 +1,7 @@
 ;;; -*- Emacs-Lisp -*-
 ;;; YaTeX facilities for Emacs 19
 ;;; (c )1994-1997 by HIROSE Yuuji.[yuuji@ae.keio.ac.jp]
-;;; Last modified Fri Jan 24 18:00:49 1997 on supra
+;;; Last modified Fri Feb 14 13:52:54 1997 on supra
 ;;; $Id$
 
 ;;; �Ƃ肠���� hilit19 ���g���Ă��鎞�ɐF���t���悤�ɂ���
@@ -297,6 +297,14 @@
     (YaTeX-19-region-section-type
      "\\\\caption\\(\\[[^]]*\\]\\)?{" label)
 
+    ;; things that do some sort of cross-reference
+    (YaTeX-19-region-section-type
+     "\\\\\\(\\(no\\)?cite\\|\\(page\\)?ref\\|label\\|index\\|glossary\\){"
+     crossref)
+
+    ;; things that bring in external files
+    ("\\\\\\(include\\|input\\|bibliography\\){" "}" include)
+
     ;; formulas
     ("[^\\]\\\\("  "\\\\)" formula)                   ; \( \)
     ("[^\\]\\\\\\[" "\\\\\\]" formula)                ; \[ \]
@@ -305,21 +313,13 @@
      formula)
     ("[^\\$]\\($\\($[^$]*\\$\\|[^$]*\\)\\$\\)" 1 formula); '$...$' or '$$...$$'
 
-    ;; things that bring in external files
-    ("\\\\\\(include\\|input\\|bibliography\\){" "}" include)
-
-    ;; "wysiwyg" emphasis -- these don't work with nested expressions
+    ;; "wysiwyg" emphasis -- these don't work on nested expressions
     (YaTeX-19-region-large-type "{\\\\\\(em\\|it\\|sl\\)"  italic)
     (YaTeX-19-region-large-type "{\\\\bf" bold)
     ;;;(YaTeX-19-region-large-type "{\\\\tt" tt)
     ;;;("\\\\begin{verbatim" "\\\\end{verbatim" tt)
 
-    ("``" "''" string)
-
-    ;; things that do some sort of cross-reference
-    (YaTeX-19-region-section-type
-     "\\\\\\(\\(no\\)?cite\\|\\(page\\)?ref\\|label\\|index\\|glossary\\){"
-     crossref))
+    ("``" "''" string))
 "*Hiliting pattern alist for LaTeX text.")
 
 ;;(defvar YaTeX-hilit-pattern-adjustment-default nil)
diff --git a/yatexenv.el b/yatexenv.el
index 3d66465..5d878ba 100644
--- a/yatexenv.el
+++ b/yatexenv.el
@@ -2,7 +2,7 @@
 ;;; YaTeX environment-specific functions.
 ;;; yatexenv.el
 ;;; (c ) 1994-1997 by HIROSE Yuuji.[yuuji@ae.keio.ac.jp]
-;;; Last modified Fri Jan 24 18:00:38 1997 on supra
+;;; Last modified Mon Apr  7 15:19:05 1997 on crx
 ;;; $Id$
 
 ;;;
@@ -199,8 +199,9 @@
 `\\> \\> \\'	for tabbing environemnt,
 `& & \\ \hline'	for tabular environment."
   (interactive "P")
-  (let*((env (YaTeX-inner-environment))
-	func)
+  (let*(env func)
+    (end-of-line)
+    (setq env (YaTeX-inner-environment))
     (if arg (setq env (YaTeX-read-environment "For what environment? ")))
     (setq func (intern-soft (concat "YaTeX-intelligent-newline-" env)))
     (end-of-line)
diff --git a/yatexhks.el b/yatexhks.el
index 3ba7920..7731f06 100644
--- a/yatexhks.el
+++ b/yatexhks.el
@@ -10,6 +10,9 @@
 
 ;Private definitions begin from here.
 
+;;97/1/27
+(define-key YaTeX-user-extensional-map "v" 'YaTeX-section-overview)
+;;initial version
 (define-key YaTeX-user-extensional-map "0"
   '(lambda () (interactive) (YaTeX-make-section nil nil nil "part")))
 (define-key YaTeX-user-extensional-map "1"
diff --git a/yatexprc.el b/yatexprc.el
index 3531a23..d5b05e0 100644
--- a/yatexprc.el
+++ b/yatexprc.el
@@ -2,7 +2,7 @@
 ;;; YaTeX process handler.
 ;;; yatexprc.el
 ;;; (c )1993-1997 by HIROSE Yuuji.[yuuji@ae.keio.ac.jp]
-;;; Last modified Fri Jan 24 17:59:44 1997 on supra
+;;; Last modified Mon Jan 27 10:22:06 1997 on crx
 ;;; $Id$
 
 (require 'yatex)
@@ -390,7 +390,7 @@
 	(send-string-to-terminal "\e[2J\e[>5h") ;CLS & hide cursor
 	(call-process shell-file-name "con" "*dvi-preview*" nil
 		      YaTeX-shell-command-option
-		      (concat preview-command preview-file))
+		      (concat preview-command " " preview-file))
 	(send-string-to-terminal "\e[>5l") ;show cursor
 	(redraw-display))
        (t				;if UNIX
diff --git a/yatexsec.el b/yatexsec.el
index 191ede1..e1ad24d 100644
--- a/yatexsec.el
+++ b/yatexsec.el
@@ -2,7 +2,7 @@
 ;;; YaTeX sectioning browser.
 ;;; yatexsec.el
 ;;; (c ) 1994 by HIROSE Yuuji [yuuji@ae.keio.ac.jp]
-;;; Last modified Thu Jan 11 01:07:53 1996 on VFR
+;;; Last modified Mon Feb 17 11:26:44 1997 on supra
 ;;; $Id$
 
 (defvar YaTeX-sectioning-level
@@ -86,6 +86,7 @@
   (define-key YaTeX-sectioning-buffer-map "o"  'other-window)
   (define-key YaTeX-sectioning-buffer-map "-"  'shrink-window)
   (define-key YaTeX-sectioning-buffer-map "+"  'enlarge-window)
+  (define-key YaTeX-sectioning-buffer-map "q"  'delete-window)
   (define-key YaTeX-sectioning-buffer-map "\C-_" 'YaTeX-shift-section-undo)
   (and YaTeX-emacs-19 (boundp 'window-system) (eq window-system 'x)
        (define-key YaTeX-sectioning-buffer-map [?\C-/]