Mercurial > hg > xemacs-beta

changeset 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 5c7ce705039a
children ea090d52afe4
files lisp/ChangeLog lisp/mule/lao-util.el
diffstat 2 files changed, 22 insertions(+), 16 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/ChangeLog	Tue Oct 28 22:55:49 2003 +0000
+++ b/lisp/ChangeLog	Wed Oct 29 21:05:45 2003 +0000
@@ -1,3 +1,8 @@
+2003-10-29  Ville Skyttä  <scop@xemacs.org>
+
+	* mule/lao-util.el (lao-transcription-pattern):
+	Comment out duplicate which uses regexp-opt.
+
 2003-10-15  Stephen J. Turnbull  <stephen@xemacs.org>
 
 	* autoload.el (Copyright): Update.
--- 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))