Function: tex-font-lock-suscript

tex-font-lock-suscript is a byte-compiled function defined in tex-mode.el.gz.

Signature

(tex-font-lock-suscript POS)

Source Code

;; Defined in /usr/src/emacs/lisp/textmodes/tex-mode.el.gz
(defun tex-font-lock-suscript (pos)
  (unless (or (memq (get-text-property pos 'face)
		    '(font-lock-constant-face font-lock-builtin-face
		      font-lock-comment-face tex-verbatim))
	      ;; Check for backslash quoting
	      (let ((odd nil)
		    (pos pos))
		(while (eq (char-before pos) ?\\)
		  (setq pos (1- pos) odd (not odd)))
		odd)
              ;; Check if POS is in an expl3 syntax region or an expl3 buffer
              (when (eq (char-after pos) ?_)
                (or tex-expl-buffer-p
                    (and
                     tex-expl-region-list
                     (catch 'result
                       (dolist (range tex-expl-region-list)
                         (and (> pos (car range))
                              (< pos (cdr range))
                              (throw 'result t))))))))
    (if (eq (char-after pos) ?_)
	`(face subscript display (raise ,(car tex-font-script-display)))
      `(face superscript display (raise ,(cadr tex-font-script-display))))))