andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
Jay Belanger 2008-05-19 02:42:28 +00:00
parent b78a11dc14
commit 2e4daa0e05
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/calc/calc-yank.el
View file

@ -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))))