From: akr <akr>
Date: Sun, 23 Aug 1998 01:37:38 +0000 (+0000)
Subject: * lex.el (lex-gen-ccel-unibyte-automata-state): Jump start of loop
X-Git-Tag: doodle-1_9_2~30
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=5dea9b12c7bea11a20ebfd744ba0784013d8c007;p=elisp%2Fflim.git

* lex.el (lex-gen-ccel-unibyte-automata-state): Jump start of loop
on end of states.
---

diff --git a/ChangeLog b/ChangeLog
index 71306cc..cc8cc48 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+1998-08-23  Tanaka Akira      <akr@jaist.ac.jp>
+
+	* lex.el (lex-gen-ccel-unibyte-automata-state): Jump start of loop
+	on end of states.
+
 1998-08-22  Tanaka Akira      <akr@jaist.ac.jp>
 
 	* TESTPAT: Use `\t' instead of raw TAB character.
diff --git a/lex.el b/lex.el
index ede088e..2ba926b 100644
--- a/lex.el
+++ b/lex.el
@@ -9,6 +9,10 @@
 ;;;
 
 (eval-and-compile
+;; CCL is not so fast for this library.
+;; Because it requires quadratic time for skipping string prefix.
+;; However, it is bit faster than emacs-lisp on average for common case,
+;; it is default if available.
 (defvar lex-use-ccl (fboundp 'ccl-execute-on-string))
 (when lex-use-ccl
   (require 'ccl))
@@ -236,7 +240,8 @@
 				  (if (null (cdr l))
 				      (natset-seg (car l))
 				    (natset-seg (car l) (1- (cadr l)))))
-				`(r1 = ,(cadr tr))))
+				`((r1 = ,(cadr tr))
+				  (repeat))))
 		  trans))
 	       (repeat))))
 	'((end)))))