From 11969267618fa30e65e4dc876d5d3c9935acc842 Mon Sep 17 00:00:00 2001 From: morioka Date: Sat, 16 Jan 1999 14:06:36 +0000 Subject: [PATCH] (std11-lexical-analyze): Change interface to add new optional argument `analyzers'. --- std11.el | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) 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)))) -- 1.7.10.4