Variable: semantic-lex-paren-or-list

semantic-lex-paren-or-list is a variable defined in lex.el.gz.

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)))))))

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))
	)))
    ))