Mercurial > hgrepos > hgweb.cgi > yatex

changeset 177:9c5a764a871f dev

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Treat `alltt' in YaTeX-verbatim-environments.
author yuuji@gentei.org
date Wed, 16 Mar 2011 10:26:25 +0900
parents ad313119ba15
children 2f9069006bdb
files yatex.el yatexmth.el
diffstat 2 files changed, 11 insertions(+), 12 deletions(-) [+]
line wrap: on
line diff
--- a/yatex.el	Wed Mar 16 09:57:42 2011 +0900
+++ b/yatex.el	Wed Mar 16 10:26:25 2011 +0900
@@ -2,7 +2,7 @@
 ;;; Yet Another tex-mode for emacs - //–ì’¹//
 ;;; yatex.el rev. 1.74.4
 ;;; (c)1991-2011 by HIROSE Yuuji.[yuuji@yatex.org]
-;;; Last modified Wed Mar 16 09:56:43 2011 on firestorm
+;;; Last modified Wed Mar 16 10:16:18 2011 on firestorm
 ;;; $Id$
 ;;; The latest version of this software is always available at;
 ;;; http://www.yatex.org/
@@ -151,9 +151,9 @@
 for YaTeX-uncomment-paragraph.")
 
 (defvar YaTeX-verbatim-environments 
-  '("verbatim" "verbatim*")
+  '("verbatim" "verbatim*" "alltt")
   "*Assume these environments of this variable disable LaTeX commands.")
-(defvar YaTeX-verb-regexp "verb\\*?\\|path\\|alltt"
+(defvar YaTeX-verb-regexp "verb\\*?\\|path"
   "*Regexp of verb family.  Do not contain preceding \\\\ nor \\(\\).")
 (defvar YaTeX-fill-inhibit-environments
   (append '("tabular" "tabular*" "array" "picture" "eqnarray" "eqnarray*"
--- a/yatexmth.el	Wed Mar 16 09:57:42 2011 +0900
+++ b/yatexmth.el	Wed Mar 16 10:26:25 2011 +0900
@@ -2,7 +2,7 @@
 ;;; YaTeX math-mode-specific functions.
 ;;; yatexmth.el
 ;;; (c)1993-2010 by HIROSE Yuuji [yuuji@yatex.org]
-;;; Last modified Sat Sep 11 15:51:37 2010 on firestorm
+;;; Last modified Wed Mar 16 10:18:04 2011 on firestorm
 ;;; $Id$
 
 ;;; [Customization guide]
@@ -433,10 +433,12 @@
   (list 'nth 1 list))
 
 (defvar YaTeX-math-cmd-regexp (concat (regexp-quote YaTeX-ec) "[A-z|]"))
-(defvar YaTeX-math-verbatim-environments
-  '("alltt")
-  "*List of environments in which LaTeX math mode is disabled.
-This value is appended with YaTeX-verbatim-environments.")
+
+;;;	alltt goes into YaTeX-verbatim-environments 2011/3/16
+;;(defvar YaTeX-math-verbatim-environments
+;;  '("alltt")
+;;  "*List of environments in which LaTeX math mode is disabled.
+;;This value is appended with YaTeX-verbatim-environments.")
 
 ;;;
 ;;YaTeX math-mode functions
@@ -552,10 +554,7 @@
 		      (setq dollar "$$")
 		      (backward-char 1)
 		      (setq nest (1+ nest)))
-		     ((let ((YaTeX-verbatim-environments
-			     (append YaTeX-math-verbatim-environments
-				     YaTeX-verbatim-environments)))
-			(YaTeX-literal-p))
+		     ((YaTeX-literal-p)
 		      nil)
 		     ((and (equal (char-after (1- (point))) ?\\ )
 			   (not (equal (char-after (- (point) 3)) ?\\ )))

yatex.org