# HG changeset patch
# User Jay Belanger <jay.p.belanger@gmail.com>
# Date 1106111556 0
# Node ID 5f8090982771493a81bf96bf626a266078cd8062
# Parent  e35417abe6a632cf019b3352bdb5976a2f0e770d
(calc-execute-kbd-macro): Ignore calc-keep-arg-flag.

diff -r e35417abe6a6 -r 5f8090982771 lisp/calc/calc-prog.el
--- a/lisp/calc/calc-prog.el	Wed Jan 19 00:08:30 2005 +0000
+++ b/lisp/calc/calc-prog.el	Wed Jan 19 05:12:36 2005 +0000
@@ -1124,6 +1124,8 @@
   (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)