Function: math-comp-first-char

math-comp-first-char is a byte-compiled function defined in calccomp.el.gz.

Signature

(math-comp-first-char C)

Source Code

;; Defined in /usr/src/emacs/lisp/calc/calccomp.el.gz
;;; Measuring a composition.

(defun math-comp-first-char (c)
  (cond ((stringp c)
	 (and (> (length c) 0)
	      (elt c 0)))
	((memq (car c) '(horiz subscr supscr))
	 (while (and (setq c (cdr c))
		     (math-comp-is-null (car c))))
	 (and c (math-comp-first-char (car c))))
	((eq (car c) 'tag)
	 (math-comp-first-char (nth 2 c)))))