1.1 --- a/yatex19.el	Thu Feb 02 17:18:29 1995 +0000
     1.2 +++ b/yatex19.el	Thu Jun 29 13:46:57 1995 +0000
     1.3 @@ -1,7 +1,7 @@
     1.4  ;;; -*- Emacs-Lisp -*-
     1.5  ;;; YaTeX facilities for Emacs 19
     1.6  ;;; (c )1994-1995 by HIROSE Yuuji.[yuuji@ae.keio.ac.jp]
     1.7 -;;; Last modified Thu Feb  2 23:44:30 1995 on figaro
     1.8 +;;; Last modified Mon May 15 15:50:04 1995 on inspire
     1.9  ;;; $Id$
    1.10  
    1.11  ;;; とりあえず hilit19 を使っている時に色が付くようにして
    1.12 @@ -253,12 +253,16 @@
    1.13  (defun YaTeX-19-region-comment (pattern)
    1.14    "Return list of comment start and end point."
    1.15    (if (re-search-forward pattern nil t)
    1.16 -      (cons (match-beginning 1) (match-end 0))))
    1.17 +      (cons (match-beginning 2) (match-end 0))))
    1.18 +
    1.19 +;;(make-face 'tt)
    1.20 +;;(set-face-font 'tt "-schumacher-clean-medium-r-normal--*-*-*-*-*-*-*-*")
    1.21 +;;(hilit-translate 'tt "white")
    1.22  
    1.23  (defvar YaTeX-hilit-patterns-alist
    1.24    '(
    1.25      ;; comments
    1.26 -    (YaTeX-19-region-comment "[^\\]\\(%\\).*$" comment)
    1.27 +    (YaTeX-19-region-comment "\\([^\\]\\|^\\)\\(%\\).*$" comment)
    1.28      
    1.29      (YaTeX-19-region-section-type "\\\\footnote\\(mark\\|text\\)?{" keyword)
    1.30      ("\\\\[a-z]+box" 0 keyword)
    1.31 @@ -302,8 +306,10 @@
    1.32      ("\\\\\\(include\\|input\\|bibliography\\){" "}" include)
    1.33  
    1.34      ;; "wysiwyg" emphasis -- these don't work with nested expressions
    1.35 -    ;; ("{\\\\\\(em\\|it\\|sl\\)" "}" italic)
    1.36 +    (YaTeX-19-region-large-type "{\\\\\\(em\\|it\\|sl\\)"  italic)
    1.37      (YaTeX-19-region-large-type "{\\\\bf" bold)
    1.38 +    ;;;(YaTeX-19-region-large-type "{\\\\tt" tt)
    1.39 +    ;;;("\\\\begin{verbatim" "\\\\end{verbatim" tt)
    1.40  
    1.41      ("``" "''" string)
    1.42  
    1.43 @@ -360,7 +366,7 @@
    1.44  			     (- fG (/ (* level fG) 40))
    1.45  			     (- fB (/ (* level fB) 40)))
    1.46  		  bg (format "hex-%02x%02x%02x"
    1.47 -			     (- bR (/ (* level bR) 15)) ;20 musn't be constant
    1.48 +			     (- bR (/ (* level bR) 15)) ;15 musn't be constant
    1.49  			     (- bG (/ (* level bG) 15))
    1.50  			     (- bB (/ (* level bB) 15)))
    1.51  		  from (intern (format "sectioning-%d" level))