[Emacs-diffs] Changes to emacs/lisp/calc/calc-store.el

[Romain Francoise]

Index: emacs/lisp/calc/calc-store.el
diff -c emacs/lisp/calc/calc-store.el:1.18 emacs/lisp/calc/calc-store.el:1.19
*** emacs/lisp/calc/calc-store.el:1.18  Thu Jul 14 19:49:48 2005
--- emacs/lisp/calc/calc-store.el       Sat Sep 24 13:44:00 2005
***************
*** 430,436 ****
    (calc-wrapper
     (or var (setq var (calc-read-var-name
                      (if calc-last-edited-variable
!                         (format "Edit: (default %s) "
                                  (calc-var-name calc-last-edited-variable))
                        "Edit: "))))
     (or var (setq var calc-last-edited-variable))
--- 430,436 ----
    (calc-wrapper
     (or var (setq var (calc-read-var-name
                      (if calc-last-edited-variable
!                         (format "Edit (default %s): "
                                  (calc-var-name calc-last-edited-variable))
                        "Edit: "))))
     (or var (setq var calc-last-edited-variable))
***************
*** 587,593 ****
  (defun calc-permanent-variable (&optional var)
    (interactive)
    (calc-wrapper
!    (or var (setq var (calc-read-var-name "Save variable (default=all): ")))
     (let (calc-pv-pos)
       (and var (or (and (boundp var) (symbol-value var))
                  (error "No such variable")))
--- 587,593 ----
  (defun calc-permanent-variable (&optional var)
    (interactive)
    (calc-wrapper
!    (or var (setq var (calc-read-var-name "Save variable (default all): ")))
     (let (calc-pv-pos)
       (and var (or (and (boundp var) (symbol-value var))
                  (error "No such variable")))