Mercurial > emacs
view etc/nxml/027C0-027EF.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.
author | Juanma Barranquero <lekktu@gmail.com> |
---|---|
date | Sun, 17 Jan 2010 20:15:32 +0100 |
parents | fbf26ea5e45d |
children | ef719132ddfa |
line wrap: on
line source
(nxml-define-char-name-set 'miscellaneous-mathematical-symbols-a '(("WHITE DIAMOND WITH CENTRED DOT" #x27D0) ("AND WITH DOT" #x27D1) ("ELEMENT OF OPENING UPWARDS" #x27D2) ("LOWER RIGHT CORNER WITH DOT" #x27D3) ("UPPER LEFT CORNER WITH DOT" #x27D4) ("LEFT OUTER JOIN" #x27D5) ("RIGHT OUTER JOIN" #x27D6) ("FULL OUTER JOIN" #x27D7) ("LARGE UP TACK" #x27D8) ("LARGE DOWN TACK" #x27D9) ("LEFT AND RIGHT DOUBLE TURNSTILE" #x27DA) ("LEFT AND RIGHT TACK" #x27DB) ("LEFT MULTIMAP" #x27DC) ("LONG RIGHT TACK" #x27DD) ("LONG LEFT TACK" #x27DE) ("UP TACK WITH CIRCLE ABOVE" #x27DF) ("LOZENGE DIVIDED BY HORIZONTAL RULE" #x27E0) ("WHITE CONCAVE-SIDED DIAMOND" #x27E1) ("WHITE CONCAVE-SIDED DIAMOND WITH LEFTWARDS TICK" #x27E2) ("WHITE CONCAVE-SIDED DIAMOND WITH RIGHTWARDS TICK" #x27E3) ("WHITE SQUARE WITH LEFTWARDS TICK" #x27E4) ("WHITE SQUARE WITH RIGHTWARDS TICK" #x27E5) ("MATHEMATICAL LEFT WHITE SQUARE BRACKET" #x27E6) ("MATHEMATICAL RIGHT WHITE SQUARE BRACKET" #x27E7) ("MATHEMATICAL LEFT ANGLE BRACKET" #x27E8) ("MATHEMATICAL RIGHT ANGLE BRACKET" #x27E9) ("MATHEMATICAL LEFT DOUBLE ANGLE BRACKET" #x27EA) ("MATHEMATICAL RIGHT DOUBLE ANGLE BRACKET" #x27EB) )) ;; arch-tag: f66b9857-6560-4ad9-9adb-1f3b5fb079de