semantic-lex-paren-or-list
semantic-lex-paren-or-list is a variable defined in `
lex.el
'.
Its value is shown
below.
Documentation:
Detect open parenthesis.
Return either a paren token or a semantic list token depending on
`semantic-lex-current-depth'.
Value:
((looking-at "\\s(")
(if
(or
(not semantic-lex-maximum-depth)
(< semantic-lex-current-depth semantic-lex-maximum-depth))
(progn
(setq semantic-lex-current-depth
(1+ semantic-lex-current-depth))
(semantic-lex-push-token
(semantic-lex-token 'open-paren
(match-beginning 0)
(match-end 0))))
(semantic-lex-push-token
(semantic-lex-token 'semantic-list
(match-beginning 0)
(save-excursion
(semantic-lex-unterminated-syntax-protection 'semantic-list
(forward-list 1)
(point)))))))