+ (let* ((word-beg (match-beginning 0))
+ (word-end (match-end 0))
+ (word (substring string word-beg len))
+ (times 1)
+ key)
+ ;; Try to catch events of the form "<as df>".
+ (if (string-match "\\`<[^ <>\t\n\f][^>\t\n\f]*>" word)
+ (setq word (match-string 0 word)
+ pos (+ word-beg (match-end 0)))
+ (setq word (substring string word-beg word-end)
+ pos word-end))