1.1 --- a/yatex.el	Fri Jan 24 09:04:06 1997 +0000
     1.2 +++ b/yatex.el	Wed Dec 03 10:37:48 1997 +0000
     1.3 @@ -1,8 +1,8 @@
     1.4  ;;; -*- Emacs-Lisp -*-
     1.5  ;;; Yet Another tex-mode for emacs.
     1.6 -;;; yatex.el rev. 1.63
     1.7 +;;; yatex.el rev. 1.64
     1.8  ;;; (c )1991-1997 by HIROSE Yuuji.[yuuji@ae.keio.ac.jp]
     1.9 -;;; Last modified Fri Jan 24 17:57:14 1997 on supra
    1.10 +;;; Last modified Tue Apr  8 05:07:31 1997 on crx
    1.11  ;;; $Id$
    1.12  
    1.13  ;; This program is free software; you can redistribute it and/or modify
    1.14 @@ -20,7 +20,7 @@
    1.15  ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
    1.16  
    1.17  (require 'comment)
    1.18 -(defconst YaTeX-revision-number "1.63"
    1.19 +(defconst YaTeX-revision-number "1.64"
    1.20    "Revision number of running yatex.el"
    1.21  )
    1.22  
    1.23 @@ -478,6 +478,9 @@
    1.24    ;(suppress-keymap YaTeX-typesetting-mode-map t)
    1.25    (define-key YaTeX-typesetting-mode-map " " 'YaTeX-jump-error-line)
    1.26    (define-key YaTeX-typesetting-mode-map "\C-m" 'YaTeX-send-string)
    1.27 +  (define-key YaTeX-typesetting-mode-map "1" 'delete-other-windows)
    1.28 +  (define-key YaTeX-typesetting-mode-map "0" 'delete-window)
    1.29 +  (define-key YaTeX-typesetting-mode-map "q" 'delete-window)
    1.30  )
    1.31  
    1.32  (defvar YaTeX-section-completion-map nil
    1.33 @@ -725,6 +728,8 @@
    1.34  ;;autoload from yatexhie.el
    1.35  (autoload 'YaTeX-display-hierarchy "yatexhie"
    1.36    "YaTeX document hierarchy browser" t)
    1.37 +(autoload 'YaTeX-display-hierarchy-directly "yatexhie"
    1.38 +  "Same as YaTeX-display-hierarchy.  Call from mouse." t)
    1.39  
    1.40  ;; autoload from yahtml.el
    1.41  (autoload 'yahtml-inner-environment-but "yahtml" "yahtml internal func." t)
    1.42 @@ -1627,7 +1632,7 @@
    1.43    '(("\\\\epsfile{[^},]*file=\\(\\([^,} ]*/\\)?[^,}. ]+\\)\\(\\.e?ps\\)?[^}]*}" 1)
    1.44      ("\\\\epsfig{[^},]*fi\\(le\\|gure\\)=\\(\\([^,} ]*/\\)?[^,}. ]+\\)\\(\\.e?ps\\)?[^}]*}" 2)
    1.45      ("\\\\postscriptbox{[^}]*}{[^}]*}{\\(\\([^,} ]*/\\)?[^}. ]+\\)\\(\\.e?ps\\)?}" 1)
    1.46 -    ("\\\\\\(epsfbox\\|includegraphics\\){\\(\\([^,} ]*/\\)?[^} ]+\\)\\(\\.e?ps\\)?}" 2)
    1.47 +    ("\\\\\\(epsfbox\\|includegraphics\\){\\(\\([^,} ]*/\\)?[^}. ]+\\)\\(\\.e?ps\\)?}" 2)
    1.48      ("\\\\\\(psbox\\)\\(\\[[^]]+\\]\\)?{\\(\\([^,} ]*/\\)?[^} ]+\\)\\(\\.e?ps\\)}" 3) ;\psbox[options...]{hoge.eps} (97/1/11)
    1.49      )
    1.50    "See the documentation of YaTeX-processed-file-regexp-alist."
    1.51 @@ -1820,8 +1825,8 @@
    1.52    (cond
    1.53     ((YaTeX-goto-corresponding-label arg))
    1.54     ((YaTeX-goto-corresponding-environment))
    1.55 +   ((YaTeX-goto-corresponding-file-processor arg))
    1.56     ((YaTeX-goto-corresponding-file arg))
    1.57 -   ((YaTeX-goto-corresponding-file-processor arg))
    1.58     ((YaTeX-goto-corresponding-BEGIN-END))
    1.59     ((and (string-match
    1.60  	  YaTeX-equation-env-regexp	;to delay loading
    1.61 @@ -1962,7 +1967,7 @@
    1.62  		;;append `^%' to head of paragraph delimiter.
    1.63  		(paragraph-start
    1.64  		 (concat
    1.65 -		  "^$\\|^%\\(" YaTeX-paragraph-delimiter "\\)"))
    1.66 +		  "^$\\|^%\\(" YaTeX-paragraph-separate "\\)"))
    1.67  		(paragraph-separate paragraph-start))
    1.68  	    (mark-paragraph)
    1.69  	    (if (not (bobp)) (forward-line 1))
    1.70 @@ -2533,7 +2538,7 @@
    1.71  		      (progn (setq p (point)) (insert YaTeX-comment-prefix)))
    1.72  		  (forward-line 1))
    1.73  		(goto-char p)
    1.74 -		(delete-char 1)		;remove last inserted `%'
    1.75 +		(if (looking-at "%") (delete-char 1)) ;remove last inserted `%'
    1.76  		)))))))
    1.77  )
    1.78  
    1.79 @@ -2556,7 +2561,8 @@
    1.80  ;	 (string-match
    1.81  ;	  "^[Pp][Rr][Ee]" (yahtml-inner-environment-but "^[Aa]\\b" t)))
    1.82  ;    (yahtml-indent-new-commnet-line))
    1.83 -   ((YaTeX-in-math-mode-p) nil)		;1996/12/30
    1.84 +   ((and (eq major-mode 'yatex-mode)	;1997/2/4
    1.85 +	 (YaTeX-in-math-mode-p)) nil)		;1996/12/30
    1.86     (t (let (fill-prefix)
    1.87  	(apply 'YaTeX-saved-indent-new-comment-line (if soft (list soft))))))
    1.88  )