view etc/nxml/02070-0209F.el @ 106885:908cefda5ea2

* progmodes/ada-mode.el: Fix bug#1920, bug#5400. (ada-ident-re): Delete ., allow multibyte characters. (ada-goto-label-re): New; matches goto labels. (ada-block-label-re): New; matches block labels. (ada-label-re): New; matches both. (ada-named-block-re): Deleted; callers changed to use `ada-block-label-re' instead. (ada-get-current-indent, ada-get-indent-noindent, ada-get-indent-loop): Use `ada-block-label-re'. (ada-indent-on-previous-lines): Improve handling of goto labels. (ada-get-indent-block-start): Special-case block label. (ada-get-indent-label): Split into `ada-indent-block-label' and `ada-indent-goto-label'. (ada-goto-stmt-start, ada-goto-next-non-ws): Optionally ignore goto labels. (ada-goto-next-word): Simplify. (ada-indent-newline-indent-conditional): Insert newline before trying to fix indentation; doc fix.

(nxml-define-char-name-set 'superscripts-and-subscripts
  '(("SUPERSCRIPT ZERO" #x2070)
    ("SUPERSCRIPT LATIN SMALL LETTER I" #x2071)
    ("SUPERSCRIPT FOUR" #x2074)
    ("SUPERSCRIPT FIVE" #x2075)
    ("SUPERSCRIPT SIX" #x2076)
    ("SUPERSCRIPT SEVEN" #x2077)
    ("SUPERSCRIPT EIGHT" #x2078)
    ("SUPERSCRIPT NINE" #x2079)
    ("SUPERSCRIPT PLUS SIGN" #x207A)
    ("SUPERSCRIPT MINUS" #x207B)
    ("SUPERSCRIPT EQUALS SIGN" #x207C)
    ("SUPERSCRIPT LEFT PARENTHESIS" #x207D)
    ("SUPERSCRIPT RIGHT PARENTHESIS" #x207E)
    ("SUPERSCRIPT LATIN SMALL LETTER N" #x207F)
    ("SUBSCRIPT ZERO" #x2080)
    ("SUBSCRIPT ONE" #x2081)
    ("SUBSCRIPT TWO" #x2082)
    ("SUBSCRIPT THREE" #x2083)
    ("SUBSCRIPT FOUR" #x2084)
    ("SUBSCRIPT FIVE" #x2085)
    ("SUBSCRIPT SIX" #x2086)
    ("SUBSCRIPT SEVEN" #x2087)
    ("SUBSCRIPT EIGHT" #x2088)
    ("SUBSCRIPT NINE" #x2089)
    ("SUBSCRIPT PLUS SIGN" #x208A)
    ("SUBSCRIPT MINUS" #x208B)
    ("SUBSCRIPT EQUALS SIGN" #x208C)
    ("SUBSCRIPT LEFT PARENTHESIS" #x208D)
    ("SUBSCRIPT RIGHT PARENTHESIS" #x208E)
    ))

;; arch-tag: 59e357e5-c021-440d-a923-921b485dcbb8