Function: org-export-number-to-roman

org-export-number-to-roman is a byte-compiled function defined in ox.el.gz.

Signature

(org-export-number-to-roman N)

Documentation

Convert integer N into a roman numeral.

Source Code

;; Defined in /usr/src/emacs/lisp/org/ox.el.gz
(defun org-export-number-to-roman (n)
  "Convert integer N into a roman numeral."
  (let ((roman '((1000 . "M") (900 . "CM") (500 . "D") (400 . "CD")
		 ( 100 . "C") ( 90 . "XC") ( 50 . "L") ( 40 . "XL")
		 (  10 . "X") (  9 . "IX") (  5 . "V") (  4 . "IV")
		 (   1 . "I")))
	(res ""))
    (if (<= n 0)
	(number-to-string n)
      (while roman
	(if (>= n (caar roman))
	    (setq n (- n (caar roman))
		  res (concat res (cdar roman)))
	  (pop roman)))
      res)))