aboutsummaryrefslogtreecommitdiffstats
path: root/src/macros.c
diff options
context:
space:
mode:
Diffstat (limited to 'src/macros.c')
-rw-r--r--src/macros.c10
1 files changed, 5 insertions, 5 deletions
diff --git a/src/macros.c b/src/macros.c
index 1eef9b678f4..0dcfbe5532c 100644
--- a/src/macros.c
+++ b/src/macros.c
@@ -78,7 +78,7 @@ macro before appending to it. */)
78 } 78 }
79 current_kboard->kbd_macro_ptr = current_kboard->kbd_macro_buffer; 79 current_kboard->kbd_macro_ptr = current_kboard->kbd_macro_buffer;
80 current_kboard->kbd_macro_end = current_kboard->kbd_macro_buffer; 80 current_kboard->kbd_macro_end = current_kboard->kbd_macro_buffer;
81 message ("Defining kbd macro..."); 81 message1 ("Defining kbd macro...");
82 } 82 }
83 else 83 else
84 { 84 {
@@ -125,7 +125,7 @@ macro before appending to it. */)
125 Fexecute_kbd_macro (KVAR (current_kboard, Vlast_kbd_macro), 125 Fexecute_kbd_macro (KVAR (current_kboard, Vlast_kbd_macro),
126 make_number (1), Qnil); 126 make_number (1), Qnil);
127 127
128 message ("Appending to kbd macro..."); 128 message1 ("Appending to kbd macro...");
129 } 129 }
130 kset_defining_kbd_macro (current_kboard, Qt); 130 kset_defining_kbd_macro (current_kboard, Qt);
131 131
@@ -172,21 +172,21 @@ each iteration of the macro. Iteration stops if LOOPFUNC returns nil. */)
172 if (!NILP (KVAR (current_kboard, defining_kbd_macro))) 172 if (!NILP (KVAR (current_kboard, defining_kbd_macro)))
173 { 173 {
174 end_kbd_macro (); 174 end_kbd_macro ();
175 message ("Keyboard macro defined"); 175 message1 ("Keyboard macro defined");
176 } 176 }
177 177
178 if (XFASTINT (repeat) == 0) 178 if (XFASTINT (repeat) == 0)
179 Fexecute_kbd_macro (KVAR (current_kboard, Vlast_kbd_macro), repeat, loopfunc); 179 Fexecute_kbd_macro (KVAR (current_kboard, Vlast_kbd_macro), repeat, loopfunc);
180 else if (XINT (repeat) > 1) 180 else if (XINT (repeat) > 1)
181 { 181 {
182 XSETINT (repeat, XINT (repeat)-1); 182 XSETINT (repeat, XINT (repeat) - 1);
183 Fexecute_kbd_macro (KVAR (current_kboard, Vlast_kbd_macro), 183 Fexecute_kbd_macro (KVAR (current_kboard, Vlast_kbd_macro),
184 repeat, loopfunc); 184 repeat, loopfunc);
185 } 185 }
186 return Qnil; 186 return Qnil;
187} 187}
188 188
189/* Store character c into kbd macro being defined */ 189/* Store character c into kbd macro being defined. */
190 190
191void 191void
192store_kbd_macro_char (Lisp_Object c) 192store_kbd_macro_char (Lisp_Object c)