(calc-execute-kbd-macro): Ignore calc-keep-arg-flag.

diff --git a/lisp/calc/calc-prog.el b/lisp/calc/calc-prog.el
index b4901b5f8a08a3e66dab4ca84b15944b1721f3e1..33d183b5c8c58b9e43915c755ad2f77eeec58252 100644 (file)
--- a/lisp/calc/calc-prog.el
+++ b/lisp/calc/calc-prog.el
@@ -1124,6 +1124,8 @@ Redefine the corresponding command."
   (calc-execute-kbd-macro last-kbd-macro arg))
 
 (defun calc-execute-kbd-macro (mac arg &rest prefix)
+  (if calc-keep-args-flag
+      (calc-keep-args))
   (if (and (vectorp mac) (> (length mac) 0) (stringp (aref mac 0)))
       (setq mac (or (aref mac 1)
                    (aset mac 1 (progn (and (fboundp 'edit-kbd-macro)