Mercurial > hgrepos > hgweb.cgi > yatex
changeset 177:9c5a764a871f dev
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)) ?\\ )))