X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lex.el;h=0fb51d73a3853faf5c254ae0107ae4ea5b4f7d60;hb=72572076a671d8b11bd6631432aef4c040ceceae;hp=30e1d113148e1c3629afbab8058dd944d4fe1479;hpb=708c8e6fa05d8a90d38473e8ed9e2088be9a9ade;p=elisp%2Fflim.git

diff --git a/lex.el b/lex.el
index 30e1d11..0fb51d7 100644
--- a/lex.el
+++ b/lex.el
@@ -10,7 +10,8 @@
 
 (eval-and-compile
 
-;; As a result of profiling, CCL is slower than Emacs-Lisp, sigh...
+;; Although CCL program is not well optimized, 
+;; as a result of profiling, CCL is bit slower than Emacs-Lisp, sigh...
 (setq lex-ccl-execute nil)
 
 (defvar lex-ccl-execute
@@ -264,7 +265,7 @@
 	      ((read r0)
 	       (r2 += 1)
 	       ,(apply
-		 'natset-gen-ccl-branch
+		 'natset-gen-ccl-branch ; 'natset-gen-ccl-branch256 produce quote big codes.
 		 'r0
 		 '(end)
 		 (mapcar