diff options
| author | Eli Zaretskii | 2013-03-28 20:13:59 +0200 |
|---|---|---|
| committer | Eli Zaretskii | 2013-03-28 20:13:59 +0200 |
| commit | d76bf86f438d4f5f9fe493ab76f02ffc78f3ae2e (patch) | |
| tree | 04fa8bc7bd2058a316a7ee30f8741d25bfd0b060 /src/macros.c | |
| parent | 2ef26ceb192c7683754cf0b4aa3087f501254332 (diff) | |
| parent | e74aeda863cd6896e06e92586f87b45d63d67d15 (diff) | |
| download | emacs-d76bf86f438d4f5f9fe493ab76f02ffc78f3ae2e.tar.gz emacs-d76bf86f438d4f5f9fe493ab76f02ffc78f3ae2e.zip | |
Merge from trunk and resolve conflicts.
Diffstat (limited to 'src/macros.c')
| -rw-r--r-- | src/macros.c | 14 |
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 | ||
| 3 | Copyright (C) 1985-1986, 1993, 2000-2012 Free Software Foundation, Inc. | 3 | Copyright (C) 1985-1986, 1993, 2000-2013 Free Software Foundation, Inc. |
| 4 | 4 | ||
| 5 | This file is part of GNU Emacs. | 5 | This 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 | ||
| 31 | Lisp_Object Qexecute_kbd_macro; | 31 | static Lisp_Object Qexecute_kbd_macro; |
| 32 | static Lisp_Object Qkbd_macro_termination_hook; | 32 | static 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 | ||
| 191 | void | 191 | void |
| 192 | store_kbd_macro_char (Lisp_Object c) | 192 | store_kbd_macro_char (Lisp_Object c) |