Mercurial > hg > xemacs-beta
diff lisp/mule/lao-util.el @ 1769:72d64d886449
[xemacs-hg @ 2003-10-29 21:05:36 by scop]
Comment out duplicate definition/regexp-opt usage <1067461435.1285.121.camel@bobcat.mine.nu>.
| author | scop |
|---|---|
| date | Wed, 29 Oct 2003 21:05:45 +0000 |
| parents | 2923009caf47 |
| children | 3889ef128488 308d34e9f07d |
line wrap: on
line diff
--- a/lisp/mule/lao-util.el Tue Oct 28 22:55:49 2003 +0000 +++ b/lisp/mule/lao-util.el Wed Oct 29 21:05:45 2003 +0000 @@ -313,22 +313,23 @@ ) "Regexp of Roman transcription pattern for one Lao syllable.") -(defconst lao-transcription-pattern - (concat - "\\(" - (regexp-opt (mapcar 'car lao-transcription-consonant-alist)) - "\\)\\(" - (regexp-opt (mapcar 'car lao-transcription-semi-vowel-alist)) - "\\)?\\(\\(" - (regexp-opt (mapcar 'car lao-transcription-vowel-alist)) - "\\)\\(" - (regexp-opt (mapcar 'car lao-transcription-maa-sakod-alist)) - "\\)?\\(" - (regexp-opt (mapcar 'car lao-transcription-tone-alist)) - "\\)?\\)?\\|" - (regexp-opt (mapcar 'car lao-transcription-punctuation-alist)) - ) - "Regexp of Roman transcription pattern for one Lao syllable.") +;; regexp-opt is in packages... +;(defconst lao-transcription-pattern +; (concat +; "\\(" +; (regexp-opt (mapcar 'car lao-transcription-consonant-alist)) +; "\\)\\(" +; (regexp-opt (mapcar 'car lao-transcription-semi-vowel-alist)) +; "\\)?\\(\\(" +; (regexp-opt (mapcar 'car lao-transcription-vowel-alist)) +; "\\)\\(" +; (regexp-opt (mapcar 'car lao-transcription-maa-sakod-alist)) +; "\\)?\\(" +; (regexp-opt (mapcar 'car lao-transcription-tone-alist)) +; "\\)?\\)?\\|" +; (regexp-opt (mapcar 'car lao-transcription-punctuation-alist)) +; ) +; "Regexp of Roman transcription pattern for one Lao syllable.") (defconst lao-vowel-reordering-rule '(("(1P(B" (0 ?(1P(B) (0 ?(1Q(B))