Function: math-neg

math-neg is a byte-compiled function defined in calc.el.gz.

Signature

(math-neg A)

Source Code

;; Defined in /usr/src/emacs/lisp/calc/calc.el.gz
(defun math-neg (a)
  (cond ((not (consp a)) (- a))
	((memq (car a) '(frac float))
	 (list (car a) (Math-integer-neg (nth 1 a)) (nth 2 a)))
	((memq (car a) '(cplx vec hms date calcFunc-idn))
	 (cons (car a) (mapcar #'math-neg (cdr a))))
	(t (math-neg-fancy a))))