928 |
(curmsg (current-message))) |
(curmsg (current-message))) |
929 |
|
|
930 |
;; TODO: Scroll macro if max-mini-window-height is too small. |
;; TODO: Scroll macro if max-mini-window-height is too small. |
931 |
(message (concat |
(message "%s" |
932 |
|
(concat |
933 |
(format "Macro: %s%s%s%s%s\n" |
(format "Macro: %s%s%s%s%s\n" |
934 |
(format-kbd-macro kmacro-step-edit-new-macro 1) |
(format-kbd-macro kmacro-step-edit-new-macro 1) |
935 |
(if (and kmacro-step-edit-new-macro (> (length kmacro-step-edit-new-macro) 0)) " " "") |
(if (and kmacro-step-edit-new-macro (> (length kmacro-step-edit-new-macro) 0)) " " "") |