Function: calc-unary-op-fancy

calc-unary-op-fancy is a byte-compiled function defined in calc-ext.el.gz.

Signature

(calc-unary-op-fancy NAME FUNC ARG)

Source Code

;; Defined in /usr/src/emacs/lisp/calc/calc-ext.el.gz
(defun calc-unary-op-fancy (name func arg)
  (let ((n (prefix-numeric-value arg)))
    (if (= n 0) (setq n (calc-stack-size)))
    (cond ((> n 0)
	   (calc-enter-result n
			      name
                              (mapcar (lambda (x)
                                        (list func x))
				      (calc-top-list-n n))))
	  ((< n 0)
	   (calc-enter-result 1
			      name
			      (list func (calc-top-n (- n)))
			      (- n))))))