Function: calc-fraction

calc-fraction is an autoloaded, interactive and byte-compiled function defined in calc-frac.el.gz.

Signature

(calc-fraction ARG)

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/calc/calc-frac.el.gz
(defun calc-fraction (arg)
  (interactive "P")
  (calc-slow-wrapper
   (let ((func (if (calc-is-hyperbolic) 'calcFunc-frac 'calcFunc-pfrac)))
     (if (eq arg 0)
	 (calc-enter-result 2 "frac" (list func
					   (calc-top-n 2)
					   (calc-top-n 1)))
       (calc-enter-result 1 "frac" (list func
					 (calc-top-n 1)
					 (prefix-numeric-value (or arg 0))))))))