diff options
| author | Jay Belanger | 2005-01-19 05:12:36 +0000 |
|---|---|---|
| committer | Jay Belanger | 2005-01-19 05:12:36 +0000 |
| commit | d9dfc855a4899cdfab373d9751a4d33e1c46dcde (patch) | |
| tree | e10d429293bf80609815c3d6a33f5f20b881a8bc | |
| parent | d278cde036f9fa0f56b5a0b49baf498f13ebf332 (diff) | |
| download | emacs-d9dfc855a4899cdfab373d9751a4d33e1c46dcde.tar.gz emacs-d9dfc855a4899cdfab373d9751a4d33e1c46dcde.zip | |
(calc-execute-kbd-macro): Ignore calc-keep-arg-flag.
| -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." | |||
| 1124 | (calc-execute-kbd-macro last-kbd-macro arg)) | 1124 | (calc-execute-kbd-macro last-kbd-macro arg)) |
| 1125 | 1125 | ||
| 1126 | (defun calc-execute-kbd-macro (mac arg &rest prefix) | 1126 | (defun calc-execute-kbd-macro (mac arg &rest prefix) |
| 1127 | (if calc-keep-args-flag | ||
| 1128 | (calc-keep-args)) | ||
| 1127 | (if (and (vectorp mac) (> (length mac) 0) (stringp (aref mac 0))) | 1129 | (if (and (vectorp mac) (> (length mac) 0) (stringp (aref mac 0))) |
| 1128 | (setq mac (or (aref mac 1) | 1130 | (setq mac (or (aref mac 1) |
| 1129 | (aset mac 1 (progn (and (fboundp 'edit-kbd-macro) | 1131 | (aset mac 1 (progn (and (fboundp 'edit-kbd-macro) |