diff options
| author | Jay Belanger <jay.p.belanger@gmail.com> | 2005-02-15 19:26:49 +0000 |
|---|---|---|
| committer | Jay Belanger <jay.p.belanger@gmail.com> | 2005-02-15 19:26:49 +0000 |
| commit | 6735a29b343972d958c9c03a2b29e56aa1a69bd8 (patch) | |
| tree | 480ff92c9bef3952d97cd475590666a2e1d175ed /lisp/calc/calc-undo.el | |
| parent | 6fc5a7dac1cb8911889aac15693f457fe8b431a7 (diff) | |
| download | emacs-6735a29b343972d958c9c03a2b29e56aa1a69bd8.tar.gz emacs-6735a29b343972d958c9c03a2b29e56aa1a69bd8.tar.bz2 emacs-6735a29b343972d958c9c03a2b29e56aa1a69bd8.zip | |
(calc-handle-undo): Remove prefix from variable in message.
Diffstat (limited to 'lisp/calc/calc-undo.el')
| -rw-r--r-- | lisp/calc/calc-undo.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/calc/calc-undo.el b/lisp/calc/calc-undo.el index a49c34010ab..d946a1390d3 100644 --- a/lisp/calc/calc-undo.el +++ b/lisp/calc/calc-undo.el @@ -77,7 +77,8 @@ (let ((v (intern (nth 1 action)))) (calc-record-undo (list 'store (nth 1 action) (and (boundp v) (symbol-value v)))) - (if (y-or-n-p (format "Un-store variable %s? " (nth 1 action))) + (if (y-or-n-p (format "Un-store variable %s? " + (calc-var-name (nth 1 action)))) (progn (if (nth 2 action) (set v (nth 2 action)) |