Function: calc-get-register

calc-get-register is a byte-compiled function defined in calc-yank.el.gz.

Signature

(calc-get-register REG)

Documentation

Return the CALCVAL portion of the contents of the Calc register REG, unless the TEXT portion doesn't match the contents of the Emacs register REG, in which case either return the contents of the Emacs register (if it is text or a number) or nil.

Source Code

;; Defined in /usr/src/emacs/lisp/calc/calc-yank.el.gz
(defun calc-get-register (reg)
  "Return the CALCVAL portion of the contents of the Calc register REG,
unless the TEXT portion doesn't match the contents of the Emacs register REG,
in which case either return the contents of the Emacs register (if it is
text or a number) or nil."
  (let ((cval (cdr (assq reg calc-register-alist)))
        (val (cdr (assq reg register-alist))))
    (cond
     ((stringp val)
      (if (and (stringp (car cval))
               (string= (car cval) val))
          (cdr cval)
        val))
     ((numberp val) (number-to-string val)))))