From: morioka <morioka>
Date: Sat, 16 Jan 1999 14:31:10 +0000 (+0000)
Subject: (std11-lexical-analyzer): Renamed from user option
X-Git-Tag: flim-1_12-199901161900~10
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=a78b5826edd62b0218ee85d44a3a454365ab8f4a;p=elisp%2Fflim.git

(std11-lexical-analyzer): Renamed from user option
`std11-lexical-analyzers'.
---

diff --git a/std11.el b/std11.el
index 8745460..479d4e9 100644
--- a/std11.el
+++ b/std11.el
@@ -261,7 +261,7 @@ If BOUNDARY is not nil, it is used as message header separator."
 ;;; @ lexical analyze
 ;;;
 
-(defcustom std11-lexical-analyzers
+(defcustom std11-lexical-analyzer
   '(std11-analyze-quoted-string
     std11-analyze-domain-literal
     std11-analyze-comment
@@ -380,17 +380,17 @@ be the result."
       )))
 
 ;;;###autoload
-(defun std11-lexical-analyze (string &optional analyzers start)
+(defun std11-lexical-analyze (string &optional analyzer start)
   "Analyze STRING as lexical tokens of STD 11."
-  (or analyzers
-      (setq analyzers std11-lexical-analyzers))
+  (or analyzer
+      (setq analyzer std11-lexical-analyzer))
   (or start
       (setq start 0))
   (let ((len (length string))
 	dest ret)
     (while (< start len)
       (setq ret
-	    (let ((rest analyzers)
+	    (let ((rest analyzer)
 		  func r)
 	      (while (and (setq func (car rest))
 			  (null (setq r (funcall func string start))))