diff options
| author | Makarius Wenzel | 2008-07-12 19:47:43 +0000 |
|---|---|---|
| committer | Makarius Wenzel | 2008-07-12 19:47:43 +0000 |
| commit | d11d211091168f4138dc0862919cc45aace4262a (patch) | |
| tree | d4a32627ba7dd55c5e64abddf3c9f693ebd468e1 /lib | |
| parent | a154007cbb7493161f3e359391fd2d4eea743b49 (diff) | |
backport of recent changes to lib/unicode-tokens.el:
cover isup as well;
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/unicode-tokens2.el | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/lib/unicode-tokens2.el b/lib/unicode-tokens2.el index 43da1960..f186f0fb 100644 --- a/lib/unicode-tokens2.el +++ b/lib/unicode-tokens2.el @@ -362,8 +362,9 @@ This function may only work reliably for GNU Emacs >= 23." (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.") @@ -439,6 +440,9 @@ after next character (single character control sequence)." ((equal tok "sub") (list (setq unicode-tokens2-next-control-token-seen-token "subscript1") t)) + ((equal tok "isup") + (list (setq unicode-tokens2-next-control-token-seen-token + "idsuperscript1") t)) ((equal tok "isub") (list (setq unicode-tokens2-next-control-token-seen-token "idsubscript1") t))))) @@ -456,6 +460,8 @@ after next character (single character control sequence)." ("superscript" . ("bsup" . "esup")) ("subscript1" . ("sub")) ("superscript1" . ("sup")) + ("idsubscript1" . ("isub")) + ("idsuperscript1" . ("isup")) ("loc1" . ("loc")) ;; non-standard ("italic" . ("bitalic" . "eitalic")) |