From b2f1fe36f90c763fd49d4a2bc31b7cf0f1ca04a2 Mon Sep 17 00:00:00 2001
From: Makarius Wenzel
Date: Wed, 9 Jul 2008 15:11:58 +0000
Subject: cover isup as well;

---
 lib/unicode-tokens.el | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

(limited to 'lib')

diff --git a/lib/unicode-tokens.el b/lib/unicode-tokens.el
index abf4cc86..dc88fb04 100644
--- a/lib/unicode-tokens.el
+++ b/lib/unicode-tokens.el
@@ -453,8 +453,9 @@ Also sets `unicode-tokens-token-alist'."
     (display   
      ((raise 0.4)    "superscript")
      ((raise -0.4)   "subscript")
-     ((raise 0.35)  "superscript1")
-     ((raise -0.35) "subscript1")
+     ((raise 0.35)   "superscript1")
+     ((raise -0.35)  "subscript1")
+     ((raise 0.3)    "idsuperscript1")
      ((raise -0.3)   "idsubscript1")
      (default	)))
   "Text property table for annotations.")
@@ -532,6 +533,9 @@ after next character (single character control sequence)."
 	     ((equal tok "sub") 
 	      (list (setq unicode-tokens-next-control-token-seen-token
 			  "subscript1") t))
+	     ((equal tok "isup") 
+	      (list (setq unicode-tokens-next-control-token-seen-token
+			  "idsuperscript1") t))
 	     ((equal tok "isub") 
 	      (list (setq unicode-tokens-next-control-token-seen-token
 			  "idsubscript1") t)))))
-- 
cgit v1.2.3