397 |
(setq calc-last-edited-variable var) |
(setq calc-last-edited-variable var) |
398 |
(calc-edit-mode (list 'calc-finish-stack-edit (list 'quote var)) |
(calc-edit-mode (list 'calc-finish-stack-edit (list 'quote var)) |
399 |
t |
t |
400 |
(concat "Editing " (calc-var-name var))) |
(concat "Editing variable `" (calc-var-name var) "'. ")) |
401 |
(and value |
(and value |
402 |
(insert (math-format-nice-expr value (frame-width)) "\n"))))) |
(insert (math-format-nice-expr value (frame-width)) "\n"))))) |
403 |
(calc-show-edit-buffer)) |
(calc-show-edit-buffer)) |