std11-lexical-analyze

[Akihiro Arisawa]

(std11-lexical-analyze (encode-coding-string "日本語" 'iso-2022-jp)
		       mime-lexical-analyzer)

を評価した時に、(wrong-type-argument number-or-marker-p (13)) と
エラーが発生します。

Index: std11.el
===================================================================
RCS file: /cvs/root/flim/std11.el,v
retrieving revision 1.7.8.4
diff -u -F^( -r1.7.8.4 std11.el
--- std11.el	2000/12/15 03:42:27	1.7.8.4
+++ std11.el	2001/04/09 05:18:00
@@ -396,7 +396,7 @@ (defun std11-lexical-analyze (string &op
 			  (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))

ではないかと思うのですが、問題なければ CVS commit いたします。

-- 
有沢 明宏