Mercurial > hg > xemacs-beta

comparison lisp/mule/lao-util.el @ 1769:72d64d886449

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[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
comparison
equal deleted inserted replaced
1768:5c7ce705039a 1769:72d64d886449
311 (mapconcat (lambda (x) (regexp-quote (car x))) 311 (mapconcat (lambda (x) (regexp-quote (car x)))
312 lao-transcription-punctuation-alist "\\|") 312 lao-transcription-punctuation-alist "\\|")
313 ) 313 )
314 "Regexp of Roman transcription pattern for one Lao syllable.") 314 "Regexp of Roman transcription pattern for one Lao syllable.")
315 315
316 (defconst lao-transcription-pattern 316 ;; regexp-opt is in packages...
317 (concat 317 ;(defconst lao-transcription-pattern
318 "\\(" 318 ; (concat
319 (regexp-opt (mapcar 'car lao-transcription-consonant-alist)) 319 ; "\\("
320 "\\)\\(" 320 ; (regexp-opt (mapcar 'car lao-transcription-consonant-alist))
321 (regexp-opt (mapcar 'car lao-transcription-semi-vowel-alist)) 321 ; "\\)\\("
322 "\\)?\\(\\(" 322 ; (regexp-opt (mapcar 'car lao-transcription-semi-vowel-alist))
323 (regexp-opt (mapcar 'car lao-transcription-vowel-alist)) 323 ; "\\)?\\(\\("
324 "\\)\\(" 324 ; (regexp-opt (mapcar 'car lao-transcription-vowel-alist))
325 (regexp-opt (mapcar 'car lao-transcription-maa-sakod-alist)) 325 ; "\\)\\("
326 "\\)?\\(" 326 ; (regexp-opt (mapcar 'car lao-transcription-maa-sakod-alist))
327 (regexp-opt (mapcar 'car lao-transcription-tone-alist)) 327 ; "\\)?\\("
328 "\\)?\\)?\\|" 328 ; (regexp-opt (mapcar 'car lao-transcription-tone-alist))
329 (regexp-opt (mapcar 'car lao-transcription-punctuation-alist)) 329 ; "\\)?\\)?\\|"
330 ) 330 ; (regexp-opt (mapcar 'car lao-transcription-punctuation-alist))
331 "Regexp of Roman transcription pattern for one Lao syllable.") 331 ; )
332 ; "Regexp of Roman transcription pattern for one Lao syllable.")
332 333
333 (defconst lao-vowel-reordering-rule 334 (defconst lao-vowel-reordering-rule
334 '(("(1P(B" (0 ?(1P(B) (0 ?(1Q(B)) 335 '(("(1P(B" (0 ?(1P(B) (0 ?(1Q(B))
335 ("(1R(B" (0 ?(1R(B)) 336 ("(1R(B" (0 ?(1R(B))
336 ("(1T(B" (0 ?(1U(B)) 337 ("(1T(B" (0 ?(1U(B))