Function: calc-insert-register

calc-insert-register is an autoloaded, interactive and byte-compiled function defined in calc-yank.el.gz.

Signature

(calc-insert-register REGISTER)

Documentation

Insert the contents of register REGISTER.

Interactively, reads the register using register-read-with-preview.

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/calc/calc-yank.el.gz
(defun calc-insert-register (register)
  "Insert the contents of register REGISTER.

Interactively, reads the register using `register-read-with-preview'."
  (interactive (list (register-read-with-preview "Insert register: ")))
  (if (eq major-mode 'calc-mode)
      (let ((val (calc-get-register register)))
        (calc-wrapper
         (calc-pop-push-record-list
          0 "insr"
          (if (not val)
              (error "Bad format in register data")
            (if (consp val)
                val
              (let ((nval (math-read-exprs (calc-clean-newlines val))))
                (if (eq (car-safe nval) 'error)
                    (progn
                      (setq nval (math-read-exprs val))
                      (if (eq (car-safe nval) 'error)
                          (error "Bad format in register data")
                        nval))
                  nval)))))))
    (insert-register register)))