/[emacs]/emacs/lisp/calc/calc-store.el
ViewVC logotype

Diff of /emacs/lisp/calc/calc-store.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.18 by jpb, Thu Jul 14 19:49:48 2005 UTC revision 1.19 by rfrancoise, Sat Sep 24 13:44:00 2005 UTC
# Line 430  Line 430 
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))
# Line 587  Line 587 
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")))

Legend:
Removed from v.1.18  
changed lines
  Added in v.1.19

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26