Function: nxml-merge-indent-context-type

nxml-merge-indent-context-type is a byte-compiled function defined in nxml-mode.el.gz.

Signature

(nxml-merge-indent-context-type CONTEXT)

Documentation

Merge the indent context type CONTEXT with the token in xmltok-type.

Return the merged indent context type. An indent context type is either nil or one of the symbols start-tag, end-tag, markup, comment, mixed.

Source Code

;; Defined in /usr/src/emacs/lisp/nxml/nxml-mode.el.gz
(defun nxml-merge-indent-context-type (context)
  "Merge the indent context type CONTEXT with the token in `xmltok-type'.
Return the merged indent context type.  An indent context type is
either nil or one of the symbols `start-tag', `end-tag', `markup',
`comment', `mixed'."
  (cond ((memq xmltok-type '(start-tag partial-start-tag))
	 (if (memq context '(nil start-tag comment))
	     'start-tag
	   'mixed))
	((memq xmltok-type '(end-tag partial-end-tag))
	 (if (memq context '(nil end-tag comment))
	     'end-tag
	   'mixed))
        ((eq xmltok-type 'cdata-section)
         (or context 'markup))
	((eq xmltok-type 'comment)
	 (cond ((memq context '(start-tag end-tag comment))
		context)
	       (context 'mixed)
	       (t 'comment)))
	(context 'mixed)
	(t 'markup)))