From: ari <ari>
Date: Tue, 10 Apr 2001 18:18:00 +0000 (+0000)
Subject: * std11.el (std11-lexical-analyze): Fix typo.
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=ba11ba81ad47629f863397ebae41b91d491e87ec;p=elisp%2Fflim.git

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

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))