Function: math-comp-to-string-raw

math-comp-to-string-raw is a byte-compiled function defined in calccomp.el.gz.

Signature

(math-comp-to-string-raw C INDENT)

Source Code

;; Defined in /usr/src/emacs/lisp/calc/calccomp.el.gz
;;; Convert a composition to a string in "raw" form (for debugging).

(defun math-comp-to-string-raw (c indent)
  (cond ((or (not (consp c)) (eq (car c) 'set))
	 (prin1-to-string c))
	((null (cdr c))
	 (concat "(" (symbol-name (car c)) ")"))
	(t
	 (let ((next-indent (+ indent 2 (length (symbol-name (car c))))))
	   (concat "("
		   (symbol-name (car c))
		   " "
		   (math-comp-to-string-raw (nth 1 c) next-indent)
		   (math-comp-to-string-raw-step (cdr (cdr c))
						 next-indent)
		   ")")))))