/[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.19 by rfrancoise, Sat Sep 24 13:44:00 2005 UTC revision 1.20 by jpb, Mon Oct 17 20:51:34 2005 UTC
# Line 71  Line 71 
71                                        (if (not (cdr var)) "")                                        (if (not (cdr var)) "")
72                                        (if (not (cdr var)) 1))))                                        (if (not (cdr var)) 1))))
73                 (message (concat "Stored to variable \"%s\"" msg)                 (message (concat "Stored to variable \"%s\"" msg)
74                          (calc-var-name var)))                          (calc-var-name (car (car var)))))
75               (setq var (cdr var))))))))               (setq var (cdr var))))))))
76    
77  (defun calc-store-plus (&optional var)  (defun calc-store-plus (&optional var)

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

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