From ba11ba81ad47629f863397ebae41b91d491e87ec Mon Sep 17 00:00:00 2001
From: ari <ari>
Date: Tue, 10 Apr 2001 18:18:00 +0000
Subject: [PATCH] * std11.el (std11-lexical-analyze): Fix typo.

---
 ChangeLog |    4 ++++
 std11.el  |    2 +-
 2 files changed, 5 insertions(+), 1 deletion(-)

diff --git a/ChangeLog b/ChangeLog
index 212f54d..8857376 100644
--- 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
--- 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))
-- 
1.7.10.4