Commit 2e4daa0e authored by Jay Belanger's avatar Jay Belanger
Browse files

(calc-get-register): Fix problem when the Calc register is empty.

parent b78a11dc
......@@ -156,9 +156,9 @@ in which case either return the contents of the Emacs register (if it is
text) or `nil'."
(let ((cval (cdr (assq reg calc-register-alist)))
(val (cdr (assq reg register-alist))))
(if (and (stringp (car cval))
(stringp val))
(if (string= (car cval) val)
(if (stringp val)
(if (and (stringp (car cval))
(string= (car cval) val))
(cdr cval)
val))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment