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

[elisp/flim.git] / ew-scan-u.el

diff --git a/ew-scan-u.el b/ew-scan-u.el
index e02fbf6..92c240f 100644 (file)
--- a/ew-scan-u.el
+++ b/ew-scan-u.el
@@ -16,29 +16,29 @@
        type
        (,scan
         str p q
-        ([" \t"] 'ew:us-wsp-tok)
+        ([" \t"] 'ew:us-wsp)
         (((* [^ " \t\r"])
           (* (+ ?\r) [^ " \t\r\n"] (* [^ " \t\r"]))
           (* ?\r)
           (?\r ?\n [" \t"]))
          (when (< r (- p 3))
-           (ew-add-frag res r (- p 3) 'ew:us-texts-tok)
+           (ew-add-frag res r (- p 3) 'ew:us-texts)
            (setq r (- p 3)))
-         'ew:us-fold-tok)
+         'ew:us-fold)
         (((* [^ " \t\r"])
           (* (+ ?\r) [^ " \t\r\n"] (* [^ " \t\r"]))
           (* ?\r)
           (?\r ?\n [^ " \t"]))
          (when (< r (- p 3))
-           (ew-add-frag res r (- p 3) 'ew:us-texts-tok)
+           (ew-add-frag res r (- p 3) 'ew:us-texts)
            (setq r (- p 3)))
-         (setq p q) 'ew:err-tok)
+         (setq p q) 'ew:*err*)
         (((* [^ " \t\r"])
           (* (+ ?\r) [^ " \t\r\n"] (* [^ " \t\r"]))
           (* ?\r))
          (if (< r p)
-             'ew:us-texts-tok
-           (progn (setq p q) 'ew:err-tok)))))
+             'ew:us-texts
+           (progn (setq p q) 'ew:*err*)))))
        (ew-add-frag res r p type))
      (ew-terminate res)
      res))