diff yatexenv.el @ 572:714f3527b4a1 dev

Add add-in for tabularx environment
author HIROSE Yuuji <yuuji@gentei.org>
date Sat, 25 May 2019 14:48:03 +0900
parents c0827f80b18e
children
line wrap: on
line diff
--- a/yatexenv.el	Tue Apr 30 23:45:10 2019 +0900
+++ b/yatexenv.el	Sat May 25 14:48:03 2019 +0900
@@ -1,6 +1,6 @@
 ;;; yatexenv.el --- YaTeX environment-specific functions
-;;; (c) 1994-2017 by HIROSE Yuuji.[yuuji@yatex.org]
-;;; Last modified Sun Sep 17 10:23:16 2017 on firestorm
+;;; (c) 1994-2019 by HIROSE Yuuji.[yuuji@yatex.org]
+;;; Last modified Sat May 25 14:46:33 2019 on firestorm
 ;;; $Id$
 
 ;;; Code:
@@ -89,7 +89,7 @@
     (while (< (point) end)
 	(setq elt (following-char))
 	(cond
-	 ((string-match (char-to-string elt) "clr") ;normal indicators.
+	 ((string-match (char-to-string elt) "clrX") ;normal indicators.
 	  (setq cols (1+ cols))
 	  (forward-char 1))
 	 ((equal elt ?|)		;vertical
@@ -174,6 +174,7 @@
 (fset 'YaTeX-intelligent-newline-array 'YaTeX-intelligent-newline-tabular)
 (fset 'YaTeX-intelligent-newline-supertabular 'YaTeX-intelligent-newline-tabular)
 (fset 'YaTeX-intelligent-newline-longtable 'YaTeX-intelligent-newline-tabular)
+(fset 'YaTeX-intelligent-newline-tabularx 'YaTeX-intelligent-newline-tabular*)
 
 (defun YaTeX-intelligent-newline-align ()
   "Intelligent newline function for align.

yatex.org