diff options
| -rw-r--r-- | src/ChangeLog | 4 | ||||
| -rw-r--r-- | src/keyboard.c | 12 |
2 files changed, 10 insertions, 6 deletions
diff --git a/src/ChangeLog b/src/ChangeLog index 749f1baf590..a90b5f6e247 100644 --- a/src/ChangeLog +++ b/src/ChangeLog | |||
| @@ -1,5 +1,9 @@ | |||
| 1 | 2011-03-14 Paul Eggert <eggert@cs.ucla.edu> | 1 | 2011-03-14 Paul Eggert <eggert@cs.ucla.edu> |
| 2 | 2 | ||
| 3 | * keyboard.c: Declare functions static if they are not used elsewhere. | ||
| 4 | (echo_char, echo_dash, cmd_error, top_level_2): | ||
| 5 | (poll_for_input, handle_async_input): Now static. | ||
| 6 | |||
| 3 | * keyboard.h (make_ctrl_char): New decl. | 7 | * keyboard.h (make_ctrl_char): New decl. |
| 4 | 8 | ||
| 5 | * lisp.h (force_auto_save_soon): New decl. | 9 | * lisp.h (force_auto_save_soon): New decl. |
diff --git a/src/keyboard.c b/src/keyboard.c index e9c6d508fa2..c1a61ac0a29 100644 --- a/src/keyboard.c +++ b/src/keyboard.c | |||
| @@ -451,7 +451,7 @@ static int store_user_signal_events (void); | |||
| 451 | C can be a character, which is printed prettily ("M-C-x" and all that | 451 | C can be a character, which is printed prettily ("M-C-x" and all that |
| 452 | jazz), or a symbol, whose name is printed. */ | 452 | jazz), or a symbol, whose name is printed. */ |
| 453 | 453 | ||
| 454 | void | 454 | static void |
| 455 | echo_char (Lisp_Object c) | 455 | echo_char (Lisp_Object c) |
| 456 | { | 456 | { |
| 457 | if (current_kboard->immediate_echo) | 457 | if (current_kboard->immediate_echo) |
| @@ -538,7 +538,7 @@ echo_char (Lisp_Object c) | |||
| 538 | /* Temporarily add a dash to the end of the echo string if it's not | 538 | /* Temporarily add a dash to the end of the echo string if it's not |
| 539 | empty, so that it serves as a mini-prompt for the very next character. */ | 539 | empty, so that it serves as a mini-prompt for the very next character. */ |
| 540 | 540 | ||
| 541 | void | 541 | static void |
| 542 | echo_dash (void) | 542 | echo_dash (void) |
| 543 | { | 543 | { |
| 544 | /* Do nothing if not echoing at all. */ | 544 | /* Do nothing if not echoing at all. */ |
| @@ -967,7 +967,7 @@ restore_kboard_configuration (Lisp_Object was_locked) | |||
| 967 | /* Handle errors that are not handled at inner levels | 967 | /* Handle errors that are not handled at inner levels |
| 968 | by printing an error message and returning to the editor command loop. */ | 968 | by printing an error message and returning to the editor command loop. */ |
| 969 | 969 | ||
| 970 | Lisp_Object | 970 | static Lisp_Object |
| 971 | cmd_error (Lisp_Object data) | 971 | cmd_error (Lisp_Object data) |
| 972 | { | 972 | { |
| 973 | Lisp_Object old_level, old_length; | 973 | Lisp_Object old_level, old_length; |
| @@ -1132,7 +1132,7 @@ command_loop_2 (Lisp_Object ignore) | |||
| 1132 | return Qnil; | 1132 | return Qnil; |
| 1133 | } | 1133 | } |
| 1134 | 1134 | ||
| 1135 | Lisp_Object | 1135 | static Lisp_Object |
| 1136 | top_level_2 (void) | 1136 | top_level_2 (void) |
| 1137 | { | 1137 | { |
| 1138 | return Feval (Vtop_level); | 1138 | return Feval (Vtop_level); |
| @@ -1885,7 +1885,7 @@ poll_for_input_1 (void) | |||
| 1885 | /* Timer callback function for poll_timer. TIMER is equal to | 1885 | /* Timer callback function for poll_timer. TIMER is equal to |
| 1886 | poll_timer. */ | 1886 | poll_timer. */ |
| 1887 | 1887 | ||
| 1888 | void | 1888 | static void |
| 1889 | poll_for_input (struct atimer *timer) | 1889 | poll_for_input (struct atimer *timer) |
| 1890 | { | 1890 | { |
| 1891 | if (poll_suppress_count == 0) | 1891 | if (poll_suppress_count == 0) |
| @@ -7056,7 +7056,7 @@ tty_read_avail_input (struct terminal *terminal, | |||
| 7056 | return nread; | 7056 | return nread; |
| 7057 | } | 7057 | } |
| 7058 | 7058 | ||
| 7059 | void | 7059 | static void |
| 7060 | handle_async_input (void) | 7060 | handle_async_input (void) |
| 7061 | { | 7061 | { |
| 7062 | interrupt_input_pending = 0; | 7062 | interrupt_input_pending = 0; |