Function: semantic-lex-start-block

semantic-lex-start-block is a byte-compiled function defined in lex.el.gz.

Signature

(semantic-lex-start-block SYNTAX)

Documentation

Mark the last read token as the beginning of a SYNTAX block.

Source Code

;; Defined in /usr/src/emacs/lisp/cedet/semantic/lex.el.gz
;;; Collapsed block tokens delimited by any tokens.
;;
(defun semantic-lex-start-block (syntax)
  "Mark the last read token as the beginning of a SYNTAX block."
  (if (or (not semantic-lex-maximum-depth)
          (< semantic-lex-current-depth semantic-lex-maximum-depth))
      (setq semantic-lex-current-depth (1+ semantic-lex-current-depth))
    (push (list syntax (car semantic-lex-token-stream))
          semantic-lex-block-stack)))