From dacb2f7013c28d5265e079a1f4c0e6536a4699ca Mon Sep 17 00:00:00 2001 From: Jay Belanger Date: Mon, 24 Jan 2005 18:23:33 +0000 Subject: [PATCH] (calc-declare-variable): Use calc-var-name to display variable name. --- lisp/ChangeLog | 5 +++++ lisp/calc/calc-store.el | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index ebf953caacd..902f9da4e1c 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2005-01-24 Jay Belanger + + * calc/calc-store.el (calc-declare-variable): Use calc-var-name to + display variable name. + 2005-01-24 Kenichi Handa * international/encoded-kb.el (encoded-kbd-iso2022-single-shift): diff --git a/lisp/calc/calc-store.el b/lisp/calc/calc-store.el index b2cef4936a0..52f0cc0272d 100644 --- a/lisp/calc/calc-store.el +++ b/lisp/calc/calc-store.el @@ -482,7 +482,7 @@ (setq rp nil))) (not rp))))) (calc-unread-command ?\C-a) - (setq decl (read-string (format "Declare: %s to be: " var) + (setq decl (read-string (format "Declare: %s to be: " (calc-var-name var)) (and rp (math-format-flat-expr (nth 2 (car dp)) 0)))) (setq decl (and (string-match "[^ \t]" decl) -- 2.11.4.GIT