summaryrefslogtreecommitdiff
path: root/Build
diff options
context:
space:
mode:
authorAkira Kakuto <kakuto@fuk.kindai.ac.jp>2015-08-26 22:46:29 +0000
committerAkira Kakuto <kakuto@fuk.kindai.ac.jp>2015-08-26 22:46:29 +0000
commit1f69e204c31f8c498a4575d6a0cd85c31ae9318a (patch)
treeac59534c241279d3ada6c1ead7c8263049450b2d /Build
parent4f16ac0c16b928eb304c0f0ad3ff60708f0eaccc (diff)
web2c/luatexdir/tex/mlist.w: sync with the trunk. See http://tug.org/pipermail/luatex/2015-August/005319.html
git-svn-id: svn://tug.org/texlive/trunk@38212 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build')
-rw-r--r--Build/source/texk/web2c/luatexdir/ChangeLog5
-rw-r--r--Build/source/texk/web2c/luatexdir/tex/mlist.w64
2 files changed, 37 insertions, 32 deletions
diff --git a/Build/source/texk/web2c/luatexdir/ChangeLog b/Build/source/texk/web2c/luatexdir/ChangeLog
index 35de913dc2a..a872d51dfbf 100644
--- a/Build/source/texk/web2c/luatexdir/ChangeLog
+++ b/Build/source/texk/web2c/luatexdir/ChangeLog
@@ -1,3 +1,8 @@
+2015-08-27 Akira Kakuto <kakuto@fuk.kindai.ac.jp>
+
+ * tex/mlist.w: Sync with the trunk.
+ See http://tug.org/pipermail/luatex/2015-August/005319.html
+
2015-07-10 Peter Breitenlohner <peb@mppmu.mpg.de>
* am/luatex.am: Dependencies for 'make check'.
diff --git a/Build/source/texk/web2c/luatexdir/tex/mlist.w b/Build/source/texk/web2c/luatexdir/tex/mlist.w
index 5de4dbec1b9..9ae2607265c 100644
--- a/Build/source/texk/web2c/luatexdir/tex/mlist.w
+++ b/Build/source/texk/web2c/luatexdir/tex/mlist.w
@@ -2752,38 +2752,38 @@ kerns assuming that is italic correction. The heuristics are unreliable for
the new fonts so eventualy there will be an option to ignore such corrections.
@ @c
-#define analyze_script(init,su_n,su_f,su_c) do { \
- su_n = init; \
- if (su_n != null) { \
- if (type(su_n) == sub_mlist_node) { \
- su_n = math_list(su_n); \
- if (su_n != null) { \
- while (su_n) { \
- if ((type(su_n) == kern_node) || (type(su_n) == glue_node)) {\
- su_n = vlink(su_n); \
- } else if (type(su_n) == simple_noad) { \
- su_n = nucleus(su_n); \
- if (type(su_n) != math_char_node) { \
- su_n = null; \
- } \
- break; \
- } else { \
- su_n = null; \
- break; \
- } \
- } \
- } \
- } \
- if (su_n != null) { \
- fetch(su_n); \
- if (char_exists(cur_f, cur_c)) { \
- su_f = cur_f; \
- su_c = cur_c; \
- } else { \
- su_n = null; \
- } \
- } \
- } \
+#define analyze_script(init,su_n,su_f,su_c) do { \
+ su_n = init; \
+ if (su_n != null) { \
+ if (type(su_n) == sub_mlist_node && math_list(su_n)) { \
+ su_n = math_list(su_n); \
+ if (su_n != null) { \
+ while (su_n) { \
+ if ((type(su_n) == kern_node) || (type(su_n) == glue_node)) {\
+ su_n = vlink(su_n); \
+ } else if (type(su_n) == simple_noad) { \
+ su_n = nucleus(su_n); \
+ if (type(su_n) != math_char_node) { \
+ su_n = null; \
+ } \
+ break; \
+ } else { \
+ su_n = null; \
+ break; \
+ } \
+ } \
+ } \
+ } \
+ if ((su_n != null) && (type(su_n) == math_char_node)) { \
+ fetch(su_n); \
+ if (char_exists(cur_f, cur_c)) { \
+ su_f = cur_f; \
+ su_c = cur_c; \
+ } else { \
+ su_n = null; \
+ } \
+ } \
+ } \
} while (0)