(push (subseq string token-start token-end) tokens)))))
-(defun match-unique-abbreviation (abbr strings)
- "Returns position of ABBR in STRINGS. ABBR may be a unique abbreviation.
-Returns NIL if no match found."
- (let ((len (length abbr))
- (matches nil))
- (dotimes (i (length strings))
- (let* ((s (nth i strings))
- (l (length s)))
- (cond
- ((= len l)
- (when (string= abbr s)
- (push (cons s i) matches)))
- ((< len l)
- (when (string= abbr (subseq s 0 len))
- (push (cons s i) matches))))))
- (when (= 1 (length matches))
- (cdr (first matches)))))
+