Function: math-looks-negp

math-looks-negp is an autoloaded and byte-compiled function defined in calc-misc.el.gz.

Signature

(math-looks-negp A)

Source Code

;; Defined in /usr/src/emacs/lisp/calc/calc-misc.el.gz
;; True if A is a negative number or an expression the starts with '-'.
;;;###autoload
(defun math-looks-negp (a)   ; [P x] [Public]
  (or (Math-negp a)
      (eq (car-safe a) 'neg)
      (and (memq (car-safe a) '(* /))
	   (or (math-looks-negp (nth 1 a))
	       (math-looks-negp (nth 2 a))))
      (and (eq (car-safe a) '-)
	   (math-looks-negp (nth 1 a)))))