aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorPaul Eggert2011-03-13 22:51:17 -0700
committerPaul Eggert2011-03-13 22:51:17 -0700
commit2f2650daaab043eb8f7fb16fd10575552a7cd378 (patch)
treefe2b9f3bb9de85d76f37f560979cf54a15c37640
parenta053e86cc52840a18124d78a63c720769e111ba3 (diff)
downloademacs-2f2650daaab043eb8f7fb16fd10575552a7cd378.tar.gz
emacs-2f2650daaab043eb8f7fb16fd10575552a7cd378.zip
* keyboard.c: Declare functions static if they are not used elsewhere.
(echo_char, echo_dash, cmd_error, top_level_2): (poll_for_input, handle_async_input): Now static.
-rw-r--r--src/ChangeLog4
-rw-r--r--src/keyboard.c12
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 @@
12011-03-14 Paul Eggert <eggert@cs.ucla.edu> 12011-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
454void 454static void
455echo_char (Lisp_Object c) 455echo_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
541void 541static void
542echo_dash (void) 542echo_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
970Lisp_Object 970static Lisp_Object
971cmd_error (Lisp_Object data) 971cmd_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
1135Lisp_Object 1135static Lisp_Object
1136top_level_2 (void) 1136top_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
1888void 1888static void
1889poll_for_input (struct atimer *timer) 1889poll_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
7059void 7059static void
7060handle_async_input (void) 7060handle_async_input (void)
7061{ 7061{
7062 interrupt_input_pending = 0; 7062 interrupt_input_pending = 0;