/[emacs]/emacs/src/macros.c
ViewVC logotype

Diff of /emacs/src/macros.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.49 by kfstorm, Sun Sep 8 20:28:46 2002 UTC revision 1.50 by kfstorm, Mon Sep 9 22:33:51 2002 UTC
# Line 131  macro before appending to it. */) Line 131  macro before appending to it. */)
131    return Qnil;    return Qnil;
132  }  }
133    
134    /* Finish defining the current keyboard macro.  */
135    
136    void
137    end_kbd_macro ()
138    {
139      current_kboard->defining_kbd_macro = Qnil;
140      update_mode_lines++;
141      current_kboard->Vlast_kbd_macro
142        = make_event_array ((current_kboard->kbd_macro_end
143                             - current_kboard->kbd_macro_buffer),
144                            current_kboard->kbd_macro_buffer);
145    }
146    
147  DEFUN ("end-kbd-macro", Fend_kbd_macro, Send_kbd_macro, 0, 2, "p",  DEFUN ("end-kbd-macro", Fend_kbd_macro, Send_kbd_macro, 0, 2, "p",
148         doc: /* Finish defining a keyboard macro.         doc: /* Finish defining a keyboard macro.
149  The definition was started by \\[start-kbd-macro].  The definition was started by \\[start-kbd-macro].
# Line 157  each iteration of the macro.  Iteration Line 170  each iteration of the macro.  Iteration
170    
171    if (!NILP (current_kboard->defining_kbd_macro))    if (!NILP (current_kboard->defining_kbd_macro))
172      {      {
173        current_kboard->defining_kbd_macro = Qnil;        end_kbd_macro ();
       update_mode_lines++;  
       current_kboard->Vlast_kbd_macro  
         = make_event_array ((current_kboard->kbd_macro_end  
                              - current_kboard->kbd_macro_buffer),  
                             current_kboard->kbd_macro_buffer);  
174        message ("Keyboard macro defined");        message ("Keyboard macro defined");
175      }      }
176    

Legend:
Removed from v.1.49  
changed lines
  Added in v.1.50

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26