diff options
| author | Jay Belanger <jay.p.belanger@gmail.com> | 2005-01-19 05:12:36 +0000 |
|---|---|---|
| committer | Jay Belanger <jay.p.belanger@gmail.com> | 2005-01-19 05:12:36 +0000 |
| commit | d9dfc855a4899cdfab373d9751a4d33e1c46dcde (patch) | |
| tree | e10d429293bf80609815c3d6a33f5f20b881a8bc /lisp/calc | |
| parent | d278cde036f9fa0f56b5a0b49baf498f13ebf332 (diff) | |
| download | emacs-d9dfc855a4899cdfab373d9751a4d33e1c46dcde.tar.gz emacs-d9dfc855a4899cdfab373d9751a4d33e1c46dcde.tar.bz2 emacs-d9dfc855a4899cdfab373d9751a4d33e1c46dcde.zip | |
(calc-execute-kbd-macro): Ignore calc-keep-arg-flag.
Diffstat (limited to 'lisp/calc')
| -rw-r--r-- | lisp/calc/calc-prog.el | 2 |
1 files changed, 2 insertions, 0 deletions
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) |