Variable: semantic-lex-ignore-comments

semantic-lex-ignore-comments is a variable defined in lex.el.gz.

Value

((looking-at semantic-lex-comment-regex)
 (let
     ((comment-start-point
       (point)))
   (forward-comment 1)
   (if
       (eq
	(point)
	comment-start-point)
       (skip-syntax-forward "-.'"
			    (line-end-position))
     (if
	 (bolp)
	 (backward-char 1)))
   (if
       (eq
	(point)
	comment-start-point)
       (error "Strange comment syntax prevents lexical analysis"))
   (setq semantic-lex-end-point
	 (point))))

Documentation

Detect and create a comment token.

Source Code

;; Defined in /usr/src/emacs/lisp/cedet/semantic/lex.el.gz
(define-lex-regex-analyzer semantic-lex-ignore-comments
  "Detect and create a comment token."
  semantic-lex-comment-regex
  (let ((comment-start-point (point)))
    (forward-comment 1)
    (if (eq (point) comment-start-point)
	;; In this case our start-skip string failed
	;; to work properly.  Lets try and move over
	;; whatever white space we matched to begin
	;; with.
        (skip-syntax-forward "-.'" (line-end-position))
      ;; We may need to back up so newlines or whitespace is generated.
      (if (bolp)
	  (backward-char 1)))
    (if (eq (point) comment-start-point)
	(error "Strange comment syntax prevents lexical analysis"))
    (setq semantic-lex-end-point (point))))