view etc/nxml/03190-0319F.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 'kanbun
  '(("IDEOGRAPHIC ANNOTATION LINKING MARK" #x3190)
    ("IDEOGRAPHIC ANNOTATION REVERSE MARK" #x3191)
    ("IDEOGRAPHIC ANNOTATION ONE MARK" #x3192)
    ("IDEOGRAPHIC ANNOTATION TWO MARK" #x3193)
    ("IDEOGRAPHIC ANNOTATION THREE MARK" #x3194)
    ("IDEOGRAPHIC ANNOTATION FOUR MARK" #x3195)
    ("IDEOGRAPHIC ANNOTATION TOP MARK" #x3196)
    ("IDEOGRAPHIC ANNOTATION MIDDLE MARK" #x3197)
    ("IDEOGRAPHIC ANNOTATION BOTTOM MARK" #x3198)
    ("IDEOGRAPHIC ANNOTATION FIRST MARK" #x3199)
    ("IDEOGRAPHIC ANNOTATION SECOND MARK" #x319A)
    ("IDEOGRAPHIC ANNOTATION THIRD MARK" #x319B)
    ("IDEOGRAPHIC ANNOTATION FOURTH MARK" #x319C)
    ("IDEOGRAPHIC ANNOTATION HEAVEN MARK" #x319D)
    ("IDEOGRAPHIC ANNOTATION EARTH MARK" #x319E)
    ("IDEOGRAPHIC ANNOTATION MAN MARK" #x319F)
    ))

;; arch-tag: e25f7331-0993-4daf-a193-0fe56332f9fa