Mercurial > emacs
view etc/nxml/031F0-031FF.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 | 8224a72a6d75 |
children | ef719132ddfa |
line wrap: on
line source
(nxml-define-char-name-set 'katakana-phonetic-extensions '(("KATAKANA LETTER SMALL KU" #x31F0) ("KATAKANA LETTER SMALL SI" #x31F1) ("KATAKANA LETTER SMALL SU" #x31F2) ("KATAKANA LETTER SMALL TO" #x31F3) ("KATAKANA LETTER SMALL NU" #x31F4) ("KATAKANA LETTER SMALL HA" #x31F5) ("KATAKANA LETTER SMALL HI" #x31F6) ("KATAKANA LETTER SMALL HU" #x31F7) ("KATAKANA LETTER SMALL HE" #x31F8) ("KATAKANA LETTER SMALL HO" #x31F9) ("KATAKANA LETTER SMALL MU" #x31FA) ("KATAKANA LETTER SMALL RA" #x31FB) ("KATAKANA LETTER SMALL RI" #x31FC) ("KATAKANA LETTER SMALL RU" #x31FD) ("KATAKANA LETTER SMALL RE" #x31FE) ("KATAKANA LETTER SMALL RO" #x31FF) )) ;; arch-tag: 090acfb7-1a46-4b05-bebb-573bbc0d8a82