Function: calc-over-notation

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

Signature

(calc-over-notation FMT)

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/calc/calc-frac.el.gz
(defun calc-over-notation (fmt)
  (interactive "sFraction separator: ")
  (calc-wrapper
   (if (string-match "\\`\\([^ 0-9][^ 0-9]?\\)[0-9]*\\'" fmt)
       (let ((n nil))
	 (if (/= (match-end 0) (match-end 1))
	     (setq n (string-to-number (substring fmt (match-end 1)))
		   fmt (math-match-substring fmt 1)))
	 (if (eq n 0) (error "Bad denominator"))
	 (calc-change-mode 'calc-frac-format (list fmt n) t))
     (error "Bad fraction separator format"))))