Mercurial > hgrepos > hgweb.cgi > yatex
diff yatex19.el @ 59:48ac97a6b6ce
Call drawing tools
ID completion (yahtml)
author | yuuji |
---|---|
date | Wed, 01 May 1996 15:35:40 +0000 |
parents | 3a7c0c2bf16d |
children | 9e08ed569d80 |
line wrap: on
line diff
--- a/yatex19.el Thu Feb 01 18:55:47 1996 +0000 +++ b/yatex19.el Wed May 01 15:35:40 1996 +0000 @@ -1,7 +1,7 @@ ;;; -*- Emacs-Lisp -*- ;;; YaTeX facilities for Emacs 19 ;;; (c )1994-1995 by HIROSE Yuuji.[yuuji@ae.keio.ac.jp] -;;; Last modified Wed Dec 20 22:32:21 1995 on supra +;;; Last modified Thu Mar 14 10:51:00 1996 on supra ;;; $Id$ ;;; とりあえず hilit19 を使っている時に色が付くようにして @@ -281,7 +281,7 @@ (YaTeX-19-region-section-type "\\\\\\(title\\|author\\|date\\|thanks\\){" define) - ("\\\\documentstyle\\(\\[.*\\]\\)?{" "}" decl) + ("\\\\document\\(style\\|class\\)\\(\\[.*\\]\\)?{" "}" decl) ("\\\\\\(begin\\|end\\|nofiles\\|includeonly\\){" "}" decl) ("\\\\\\(raggedright\\|makeindex\\|makeglossary\\|maketitle\\)\\b" 0 decl) ("\\\\\\(pagestyle\\|thispagestyle\\|pagenumbering\\){" "}" decl) @@ -368,7 +368,8 @@ lm YaTeX-sectioning-max-level list YaTeX-sectioning-level) (while list - (setq pat (concat YaTeX-ec-regexp (car (car list)) "\\*?{") + (setq pat (concat YaTeX-ec-regexp (car (car list)) + "\\*?\\(\\[[^]]*\\]\\)?{") level (cdr (car list)) fg (format "hex-%02x%02x%02x" (- fR (/ (* level fR fmin) lm 100))