Parent Directory | Revision Log | 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) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |