Source

calc / calc-store.el

Diff from to

calc-store.el

 			 t
 			 (concat "Editing " (calc-var-name var)))
 	 (and value
-	      (insert (math-format-nice-expr value (screen-width)) "\n")))))
+	      (insert (math-format-nice-expr value (frame-width)) "\n")))))
   (calc-show-edit-buffer)
 )
 (setq calc-last-edited-variable nil)