# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 880630005 0
# Node ID cfba77fb710b3b3482b447a6e6cc65260a6a6b3f
# Parent  8e58003a8d02398cfdabe649ff0ef9b70eaf3060
(echo_now, record_auto_save, cmd_error_internal,
start_polling, stop_polling, bind_polling_period,
timer_start_idle, timer_stop_idle, gobble_input,
record_asynch_buffer_change, clear_input_pending,
stuff_buffered_input, clear_waiting_for_input,
quit_throw_to_read_char): Declare these as void.
(Fsuspend_emacs): Delete unnecessary extern declaration for
init_sys_mode.

diff -r 8e58003a8d02 -r cfba77fb710b src/keyboard.c
--- a/src/keyboard.c	Thu Nov 27 08:32:40 1997 +0000
+++ b/src/keyboard.c	Thu Nov 27 11:26:45 1997 +0000
@@ -659,6 +659,7 @@
 /* Display the current echo string, and begin echoing if not already
    doing so.  */
 
+void
 echo_now ()
 {
   if (!current_kboard->immediate_echo)
@@ -775,6 +776,7 @@
 
 /* When an auto-save happens, record the "time", and don't do again soon.  */
 
+void
 record_auto_save ()
 {
   last_auto_save = num_nonmacro_input_events;
@@ -941,6 +943,7 @@
   return make_number (0);
 }
 
+void
 cmd_error_internal (data, context)
      Lisp_Object data;
      char *context;
@@ -1550,6 +1553,7 @@
 /* Begin signals to poll for input, if they are appropriate.
    This function is called unconditionally from various places.  */
 
+void
 start_polling ()
 {
 #ifdef POLL_FOR_INPUT
@@ -1580,6 +1584,7 @@
 
 /* Turn off polling.  */
 
+void
 stop_polling ()
 {
 #ifdef POLL_FOR_INPUT
@@ -1619,6 +1624,7 @@
 /* Bind polling_period to a value at least N.
    But don't decrease it.  */
 
+void
 bind_polling_period (n)
      int n;
 {
@@ -3024,6 +3030,7 @@
 /* Record the start of when Emacs is idle,
    for the sake of running idle-time timers.  */
 
+void
 timer_start_idle ()
 {
   Lisp_Object timers;
@@ -3049,6 +3056,7 @@
 
 /* Record that Emacs is no longer idle, so stop running idle-time timers.  */
 
+void
 timer_stop_idle ()
 {
   EMACS_SET_SECS_USECS (timer_idleness_start_time, -1, -1);
@@ -4912,7 +4920,7 @@
 
 /* Interface to read_avail_input, blocking SIGIO or SIGALRM if necessary.  */
 
-int
+void
 gobble_input (expected)
      int expected;
 {
@@ -4944,6 +4952,7 @@
 /* Put a buffer_switch_event in the buffer
    so that read_key_sequence will notice the new current buffer.  */
 
+void
 record_asynch_buffer_change ()
 {
   struct input_event event;
@@ -7355,6 +7364,8 @@
 /* This is called in some cases before a possible quit.
    It cases the next call to detect_input_pending to recompute input_pending.
    So calling this function unnecessarily can't do any harm.  */
+
+void
 clear_input_pending ()
 {
   input_pending = 0;
@@ -7563,6 +7574,7 @@
 /* If STUFFSTRING is a string, stuff its contents as pending terminal input.
    Then in any case stuff anything Emacs has read ahead and not used.  */
 
+void
 stuff_buffered_input (stuffstring)
      Lisp_Object stuffstring;
 {
@@ -7614,6 +7626,7 @@
     quit_throw_to_read_char ();
 }
 
+void
 clear_waiting_for_input ()
 {
   /* Tell interrupt_signal not to throw back to read_char,  */
@@ -7768,6 +7781,7 @@
 
 /* Handle a C-g by making read_char return C-g.  */
 
+void
 quit_throw_to_read_char ()
 {
   quit_error_check ();