egg-980309.

[elisp/egg.git] / its.el

diff --git a/its.el b/its.el
index 0c78b7f..071ace8 100644 (file)
--- a/its.el
+++ b/its.el
@@ -267,7 +267,7 @@
 
 (defun its-restart (str)
   (let (p)
-    (its-setup-fence-mode t)
+    (its-setup-fence-mode)
     (setq p (point))
     (insert str)
     (its-beginning-of-input-buffer)))
@@ -472,7 +472,7 @@
                cursor))
        cursor)
     (if (null syl)
-       (setq (its-initial-ISYL)))
+       (setq syl (its-initial-ISYL)))
     (while (and syl (< i len))
       (setq cursor (its-state-machine syl (aref keyseq i) emit))
       (cond