procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Allow number register insertion in Calc (Bug#55943)

Browse source 
* lisp/calc/calc-yank.el (calc-get-register): Convert number values to
strings.
This commit is contained in:
Michael Heerdegen 2022-06-14 13:26:06 +02:00
parent a0f7d81a8d
commit 28218092a6
1 changed files with 8 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -266,14 +266,16 @@ as well as set the contents of the Emacs register REGISTER to TEXT."
"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 nil."
text or a number) or nil."
(let ((cval (cdr (assq reg calc-register-alist)))
(val (cdr (assq reg register-alist))))
(if (stringp val)
(if (and (stringp (car cval))
(string= (car cval) val))
(cdr cval)
val))))
(cond
((stringp val)
(if (and (stringp (car cval))
(string= (car cval) val))
(cdr cval)
val))
((numberp val) (number-to-string val)))))
(defun calc-copy-to-register (register start end &optional delete-flag)
"Copy the lines in the region into register REGISTER.