(std11-lexical-analyzer): Renamed from user option

`std11-lexical-analyzers'.

diff --git a/std11.el b/std11.el
index 8745460..479d4e9 100644 (file)
--- 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))))