diff options
| author | Kenichi Handa | 1997-11-27 11:26:45 +0000 |
|---|---|---|
| committer | Kenichi Handa | 1997-11-27 11:26:45 +0000 |
| commit | 07a592697d726bbf22f845d09d724f1c015f6246 (patch) | |
| tree | 2b3b9c6145d41ef79e595c53df53cf043b1a604f /src | |
| parent | 5e8e68ceec63cbcdf07b0f4ee96dcbd0cb677348 (diff) | |
| download | emacs-07a592697d726bbf22f845d09d724f1c015f6246.tar.gz emacs-07a592697d726bbf22f845d09d724f1c015f6246.zip | |
(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.
Diffstat (limited to 'src')
| -rw-r--r-- | src/keyboard.c | 16 |
1 files changed, 15 insertions, 1 deletions
diff --git a/src/keyboard.c b/src/keyboard.c index 7264ca599b9..952b9117a3d 100644 --- a/src/keyboard.c +++ b/src/keyboard.c | |||
| @@ -659,6 +659,7 @@ echo_dash () | |||
| 659 | /* Display the current echo string, and begin echoing if not already | 659 | /* Display the current echo string, and begin echoing if not already |
| 660 | doing so. */ | 660 | doing so. */ |
| 661 | 661 | ||
| 662 | void | ||
| 662 | echo_now () | 663 | echo_now () |
| 663 | { | 664 | { |
| 664 | if (!current_kboard->immediate_echo) | 665 | if (!current_kboard->immediate_echo) |
| @@ -775,6 +776,7 @@ recursive_edit_1 () | |||
| 775 | 776 | ||
| 776 | /* When an auto-save happens, record the "time", and don't do again soon. */ | 777 | /* When an auto-save happens, record the "time", and don't do again soon. */ |
| 777 | 778 | ||
| 779 | void | ||
| 778 | record_auto_save () | 780 | record_auto_save () |
| 779 | { | 781 | { |
| 780 | last_auto_save = num_nonmacro_input_events; | 782 | last_auto_save = num_nonmacro_input_events; |
| @@ -941,6 +943,7 @@ cmd_error (data) | |||
| 941 | return make_number (0); | 943 | return make_number (0); |
| 942 | } | 944 | } |
| 943 | 945 | ||
| 946 | void | ||
| 944 | cmd_error_internal (data, context) | 947 | cmd_error_internal (data, context) |
| 945 | Lisp_Object data; | 948 | Lisp_Object data; |
| 946 | char *context; | 949 | char *context; |
| @@ -1550,6 +1553,7 @@ input_poll_signal (signalnum) /* If we don't have an argument, */ | |||
| 1550 | /* Begin signals to poll for input, if they are appropriate. | 1553 | /* Begin signals to poll for input, if they are appropriate. |
| 1551 | This function is called unconditionally from various places. */ | 1554 | This function is called unconditionally from various places. */ |
| 1552 | 1555 | ||
| 1556 | void | ||
| 1553 | start_polling () | 1557 | start_polling () |
| 1554 | { | 1558 | { |
| 1555 | #ifdef POLL_FOR_INPUT | 1559 | #ifdef POLL_FOR_INPUT |
| @@ -1580,6 +1584,7 @@ input_polling_used () | |||
| 1580 | 1584 | ||
| 1581 | /* Turn off polling. */ | 1585 | /* Turn off polling. */ |
| 1582 | 1586 | ||
| 1587 | void | ||
| 1583 | stop_polling () | 1588 | stop_polling () |
| 1584 | { | 1589 | { |
| 1585 | #ifdef POLL_FOR_INPUT | 1590 | #ifdef POLL_FOR_INPUT |
| @@ -1619,6 +1624,7 @@ set_poll_suppress_count (count) | |||
| 1619 | /* Bind polling_period to a value at least N. | 1624 | /* Bind polling_period to a value at least N. |
| 1620 | But don't decrease it. */ | 1625 | But don't decrease it. */ |
| 1621 | 1626 | ||
| 1627 | void | ||
| 1622 | bind_polling_period (n) | 1628 | bind_polling_period (n) |
| 1623 | int n; | 1629 | int n; |
| 1624 | { | 1630 | { |
| @@ -3024,6 +3030,7 @@ static EMACS_TIME timer_idleness_start_time; | |||
| 3024 | /* Record the start of when Emacs is idle, | 3030 | /* Record the start of when Emacs is idle, |
| 3025 | for the sake of running idle-time timers. */ | 3031 | for the sake of running idle-time timers. */ |
| 3026 | 3032 | ||
| 3033 | void | ||
| 3027 | timer_start_idle () | 3034 | timer_start_idle () |
| 3028 | { | 3035 | { |
| 3029 | Lisp_Object timers; | 3036 | Lisp_Object timers; |
| @@ -3049,6 +3056,7 @@ timer_start_idle () | |||
| 3049 | 3056 | ||
| 3050 | /* Record that Emacs is no longer idle, so stop running idle-time timers. */ | 3057 | /* Record that Emacs is no longer idle, so stop running idle-time timers. */ |
| 3051 | 3058 | ||
| 3059 | void | ||
| 3052 | timer_stop_idle () | 3060 | timer_stop_idle () |
| 3053 | { | 3061 | { |
| 3054 | EMACS_SET_SECS_USECS (timer_idleness_start_time, -1, -1); | 3062 | EMACS_SET_SECS_USECS (timer_idleness_start_time, -1, -1); |
| @@ -4912,7 +4920,7 @@ get_input_pending (addr, do_timers_now) | |||
| 4912 | 4920 | ||
| 4913 | /* Interface to read_avail_input, blocking SIGIO or SIGALRM if necessary. */ | 4921 | /* Interface to read_avail_input, blocking SIGIO or SIGALRM if necessary. */ |
| 4914 | 4922 | ||
| 4915 | int | 4923 | void |
| 4916 | gobble_input (expected) | 4924 | gobble_input (expected) |
| 4917 | int expected; | 4925 | int expected; |
| 4918 | { | 4926 | { |
| @@ -4944,6 +4952,7 @@ gobble_input (expected) | |||
| 4944 | /* Put a buffer_switch_event in the buffer | 4952 | /* Put a buffer_switch_event in the buffer |
| 4945 | so that read_key_sequence will notice the new current buffer. */ | 4953 | so that read_key_sequence will notice the new current buffer. */ |
| 4946 | 4954 | ||
| 4955 | void | ||
| 4947 | record_asynch_buffer_change () | 4956 | record_asynch_buffer_change () |
| 4948 | { | 4957 | { |
| 4949 | struct input_event event; | 4958 | struct input_event event; |
| @@ -7355,6 +7364,8 @@ detect_input_pending_run_timers (do_display) | |||
| 7355 | /* This is called in some cases before a possible quit. | 7364 | /* This is called in some cases before a possible quit. |
| 7356 | It cases the next call to detect_input_pending to recompute input_pending. | 7365 | It cases the next call to detect_input_pending to recompute input_pending. |
| 7357 | So calling this function unnecessarily can't do any harm. */ | 7366 | So calling this function unnecessarily can't do any harm. */ |
| 7367 | |||
| 7368 | void | ||
| 7358 | clear_input_pending () | 7369 | clear_input_pending () |
| 7359 | { | 7370 | { |
| 7360 | input_pending = 0; | 7371 | input_pending = 0; |
| @@ -7563,6 +7574,7 @@ On such systems, Emacs starts a subshell instead of suspending.") | |||
| 7563 | /* If STUFFSTRING is a string, stuff its contents as pending terminal input. | 7574 | /* If STUFFSTRING is a string, stuff its contents as pending terminal input. |
| 7564 | Then in any case stuff anything Emacs has read ahead and not used. */ | 7575 | Then in any case stuff anything Emacs has read ahead and not used. */ |
| 7565 | 7576 | ||
| 7577 | void | ||
| 7566 | stuff_buffered_input (stuffstring) | 7578 | stuff_buffered_input (stuffstring) |
| 7567 | Lisp_Object stuffstring; | 7579 | Lisp_Object stuffstring; |
| 7568 | { | 7580 | { |
| @@ -7614,6 +7626,7 @@ set_waiting_for_input (time_to_clear) | |||
| 7614 | quit_throw_to_read_char (); | 7626 | quit_throw_to_read_char (); |
| 7615 | } | 7627 | } |
| 7616 | 7628 | ||
| 7629 | void | ||
| 7617 | clear_waiting_for_input () | 7630 | clear_waiting_for_input () |
| 7618 | { | 7631 | { |
| 7619 | /* Tell interrupt_signal not to throw back to read_char, */ | 7632 | /* Tell interrupt_signal not to throw back to read_char, */ |
| @@ -7768,6 +7781,7 @@ interrupt_signal (signalnum) /* If we don't have an argument, */ | |||
| 7768 | 7781 | ||
| 7769 | /* Handle a C-g by making read_char return C-g. */ | 7782 | /* Handle a C-g by making read_char return C-g. */ |
| 7770 | 7783 | ||
| 7784 | void | ||
| 7771 | quit_throw_to_read_char () | 7785 | quit_throw_to_read_char () |
| 7772 | { | 7786 | { |
| 7773 | quit_error_check (); | 7787 | quit_error_check (); |