Function: semantic-lex-spp-one-token-and-move-for-macro

semantic-lex-spp-one-token-and-move-for-macro is a byte-compiled function defined in lex-spp.el.gz.

Signature

(semantic-lex-spp-one-token-and-move-for-macro MAX)

Documentation

Lex up one token, and move to end of that token.

Don't go past MAX.

Source Code

;; Defined in /usr/src/emacs/lisp/cedet/semantic/lex-spp.el.gz
(defun semantic-lex-spp-one-token-and-move-for-macro (max)
  "Lex up one token, and move to end of that token.
Don't go past MAX."
  (let ((ans (semantic-lex (point) max 0 0)))
    (if (not ans)
	(progn (goto-char max)
	       nil)
      (when (> (semantic-lex-token-end (car ans)) max)
	(let ((bounds (semantic-lex-token-bounds (car ans))))
	  (setcdr bounds max)))
      (goto-char (semantic-lex-token-end (car ans)))
      (car ans))
    ))