From: Jay Belanger <jay.p.belanger@gmail.com>
Date: Wed, 19 Jan 2005 05:12:36 +0000 (+0000)
Subject: (calc-execute-kbd-macro): Ignore calc-keep-arg-flag.
X-Git-Tag: ttn-vms-21-2-B4~2676
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d9dfc855a4899cdfab373d9751a4d33e1c46dcde;p=emacs.git

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

diff --git a/lisp/calc/calc-prog.el b/lisp/calc/calc-prog.el
index b4901b5f8a0..33d183b5c8c 100644
--- 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)