Function: reftex-roman-number

reftex-roman-number is a byte-compiled function defined in reftex-parse.el.gz.

Signature

(reftex-roman-number N)

Documentation

Return as a string the roman number equal to N.

Source Code

;; Defined in /usr/src/emacs/lisp/textmodes/reftex-parse.el.gz
(defun reftex-roman-number (n)
  "Return as a string the roman number equal to N."
  (let ((nrest n)
        (string "")
        (list '((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")))
        listel i s)
    (while (>= nrest 1)
      (setq listel (pop list)
            i (car listel)
            s (cdr listel))
      (while (>= nrest i)
        (setq string (concat string s)
              nrest (- nrest i))))
    string))