From: morioka <morioka>
Date: Sat, 16 Jan 1999 14:06:36 +0000 (+0000)
Subject: (std11-lexical-analyze): Change interface to add new optional argument
X-Git-Tag: flim-1_12-199901161900~12
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=11969267618fa30e65e4dc876d5d3c9935acc842;p=elisp%2Fflim.git

(std11-lexical-analyze): Change interface to add new optional argument
`analyzers'.
---

diff --git a/std11.el b/std11.el
index 31c7830..8745460 100644
--- a/std11.el
+++ b/std11.el
@@ -380,15 +380,17 @@ be the result."
       )))
 
 ;;;###autoload
-(defun std11-lexical-analyze (string &optional start)
+(defun std11-lexical-analyze (string &optional analyzers start)
   "Analyze STRING as lexical tokens of STD 11."
+  (or analyzers
+      (setq analyzers std11-lexical-analyzers))
   (or start
       (setq start 0))
   (let ((len (length string))
 	dest ret)
     (while (< start len)
       (setq ret
-	    (let ((rest std11-lexical-analyzers)
+	    (let ((rest analyzers)
 		  func r)
 	      (while (and (setq func (car rest))
 			  (null (setq r (funcall func string start))))