aboutsummaryrefslogtreecommitdiffstats
path: root/src/macros.c
diff options
context:
space:
mode:
Diffstat (limited to 'src/macros.c')
-rw-r--r--src/macros.c14
1 files changed, 7 insertions, 7 deletions
diff --git a/src/macros.c b/src/macros.c
index 632c851ee8c..48d23a977b1 100644
--- a/src/macros.c
+++ b/src/macros.c
@@ -1,6 +1,6 @@
1/* Keyboard macros. 1/* Keyboard macros.
2 2
3Copyright (C) 1985-1986, 1993, 2000-2012 Free Software Foundation, Inc. 3Copyright (C) 1985-1986, 1993, 2000-2013 Free Software Foundation, Inc.
4 4
5This file is part of GNU Emacs. 5This file is part of GNU Emacs.
6 6
@@ -28,7 +28,7 @@ along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */
28#include "window.h" 28#include "window.h"
29#include "keyboard.h" 29#include "keyboard.h"
30 30
31Lisp_Object Qexecute_kbd_macro; 31static Lisp_Object Qexecute_kbd_macro;
32static Lisp_Object Qkbd_macro_termination_hook; 32static Lisp_Object Qkbd_macro_termination_hook;
33 33
34/* Number of successful iterations so far 34/* Number of successful iterations so far
@@ -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)