Function: semantic-lex-paren-or-list

semantic-lex-paren-or-list is a byte-compiled function defined in lex.el.gz.

Signature

(semantic-lex-paren-or-list)

Documentation

Detect open parenthesis.

Return either a paren token or a semantic list token depending on semantic-lex-current-depth.

Source Code

;; Defined in /usr/src/emacs/lisp/cedet/semantic/lex.el.gz
(define-lex-regex-analyzer semantic-lex-paren-or-list
  "Detect open parenthesis.
Return either a paren token or a semantic list token depending on
`semantic-lex-current-depth'."
  "\\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))
	)))
    ))