430 |
(calc-wrapper |
(calc-wrapper |
431 |
(or var (setq var (calc-read-var-name |
(or var (setq var (calc-read-var-name |
432 |
(if calc-last-edited-variable |
(if calc-last-edited-variable |
433 |
(format "Edit: (default %s) " |
(format "Edit (default %s): " |
434 |
(calc-var-name calc-last-edited-variable)) |
(calc-var-name calc-last-edited-variable)) |
435 |
"Edit: ")))) |
"Edit: ")))) |
436 |
(or var (setq var calc-last-edited-variable)) |
(or var (setq var calc-last-edited-variable)) |
587 |
(defun calc-permanent-variable (&optional var) |
(defun calc-permanent-variable (&optional var) |
588 |
(interactive) |
(interactive) |
589 |
(calc-wrapper |
(calc-wrapper |
590 |
(or var (setq var (calc-read-var-name "Save variable (default=all): "))) |
(or var (setq var (calc-read-var-name "Save variable (default all): "))) |
591 |
(let (calc-pv-pos) |
(let (calc-pv-pos) |
592 |
(and var (or (and (boundp var) (symbol-value var)) |
(and var (or (and (boundp var) (symbol-value var)) |
593 |
(error "No such variable"))) |
(error "No such variable"))) |