semantic-lex-punctuation-type

semantic-lex-punctuation-type is a variable defined in `lex.el'.
Its value is shown below.

Documentation:
Detect and create a punctuation type token.
Recognized punctuation is defined in the current table of lexical
types, as the value of the `punctuation' token type.

Value:

((and
  (looking-at "\\(\\s.\\|\\s$\\|\\s'\\)+")
  (let*
      ((key
	(match-string 0))
       (pos
	(match-beginning 0))
       (end
	(match-end 0))
       (len
	(- end pos))
       (lst
	(semantic-lex-type-value "punctuation" t))
       (def
	(car lst))
       (lst
	(cdr lst))
       (elt nil))
    (if lst
	(while
	    (and
	     (> len 0)
	     (not
	      (setq elt
		    (rassoc key lst))))
	  (setq len
		(1- len)
		key
		(substring key 0 len))))
    (if elt
	(semantic-lex-push-token
	 (semantic-lex-token
	  (car elt)
	  pos
	  (+ pos len)))
      (if def
	  (semantic-lex-push-token
	   (semantic-lex-token def pos end)))))))