Function: nxml-after-section-start-tag

nxml-after-section-start-tag is a byte-compiled function defined in nxml-outln.el.gz.

Signature

(nxml-after-section-start-tag)

Documentation

If the character after point is in a section start-tag, move after it.

Return the token type. Otherwise return nil. Set up variables like xmltok-forward.

Source Code

;; Defined in /usr/src/emacs/lisp/nxml/nxml-outln.el.gz
(defun nxml-after-section-start-tag ()
  "If the character after point is in a section start-tag, move after it.
Return the token type.  Otherwise return nil.
Set up variables like `xmltok-forward'."
  (let ((pos (nxml-token-after))
	(case-fold-search nil))
   (when (and (memq xmltok-type '(start-tag partial-start-tag))
	      (save-excursion
		(goto-char xmltok-start)
		(looking-at (nxml-make-section-tag-regexp))))
     (goto-char pos)
     xmltok-type)))