* std11.el (std11-lexical-analyze): Fix typo.

diff --git a/ChangeLog b/ChangeLog
index 212f54d..8857376 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2001-04-11  Akihiro Arisawa  <ari@mbf.sphere.ne.jp>
+
+       * std11.el (std11-lexical-analyze): Fix typo.
+
 2001-04-09  Shuhei KOBAYASHI  <shuhei@aqua.ocn.ne.jp>
 
        * mime-parse.el (mime-lexical-analyze) [comment]: Would infloop.

diff --git a/std11.el b/std11.el
index 051d45a..97f9359 100644 (file)
--- a/std11.el
+++ b/std11.el
@@ -396,7 +396,7 @@ be the result."
                          (null (setq r (funcall func string start))))
                (setq rest (cdr rest)))
              (or r
-                 (list (cons 'error (substring string start)) (1+ len)))
+                 (cons (cons 'error (substring string start)) (1+ len)))
              ))
       (setq dest (cons (car ret) dest)
            start (cdr ret))