diff options
| author | Jay Belanger | 2005-10-17 20:51:34 +0000 |
|---|---|---|
| committer | Jay Belanger | 2005-10-17 20:51:34 +0000 |
| commit | 970dd0126861eff22714b2e9e891721087428cfa (patch) | |
| tree | 467882570fb04dc7a2fc9c2b3f53b0d2da3d3042 | |
| parent | 9036e92f79c8d9107f8c811f50cc10b3db1a1967 (diff) | |
| download | emacs-970dd0126861eff22714b2e9e891721087428cfa.tar.gz emacs-970dd0126861eff22714b2e9e891721087428cfa.zip | |
(calc-store-into): Get proper variable name to display in message.
| -rw-r--r-- | lisp/calc/calc-store.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/calc/calc-store.el b/lisp/calc/calc-store.el index 82c7077ba91..d6a37644cc7 100644 --- a/lisp/calc/calc-store.el +++ b/lisp/calc/calc-store.el | |||
| @@ -71,7 +71,7 @@ | |||
| 71 | (if (not (cdr var)) "") | 71 | (if (not (cdr var)) "") |
| 72 | (if (not (cdr var)) 1)))) | 72 | (if (not (cdr var)) 1)))) |
| 73 | (message (concat "Stored to variable \"%s\"" msg) | 73 | (message (concat "Stored to variable \"%s\"" msg) |
| 74 | (calc-var-name var))) | 74 | (calc-var-name (car (car var))))) |
| 75 | (setq var (cdr var)))))))) | 75 | (setq var (cdr var)))))))) |
| 76 | 76 | ||
| 77 | (defun calc-store-plus (&optional var) | 77 | (defun calc-store-plus (&optional var) |