From: Andreas Schwab Date: Sat, 24 Jul 2010 15:21:56 +0000 (+0200) Subject: Make internal_self_insert static X-Git-Tag: emacs-pretest-24.0.90~104^2~275^2~438^2~49^2~136^2~18 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c8197983c5311abb5b75acf1d9a81369720d28f8;p=emacs.git Make internal_self_insert static * cmds.c (internal_self_insert): Make static. * lisp.h (internal_self_insert): Remove declaration. --- diff --git a/src/ChangeLog b/src/ChangeLog index 27d603829ae..ac5d0a8fc61 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,8 @@ +2010-07-24 Andreas Schwab + + * cmds.c (internal_self_insert): Make static. + * lisp.h (internal_self_insert): Remove declaration. + 2010-07-23 Juanma Barranquero * alloc.c (free_float): diff --git a/src/cmds.c b/src/cmds.c index 81f975a9885..2b686a44d87 100644 --- a/src/cmds.c +++ b/src/cmds.c @@ -45,6 +45,8 @@ Lisp_Object Vself_insert_face_command; extern Lisp_Object Qface; extern Lisp_Object Vtranslation_table_for_input; + +static int internal_self_insert (int, int); DEFUN ("forward-point", Fforward_point, Sforward_point, 1, 1, 0, doc: /* Return buffer position N characters after (before if N negative) point. */) @@ -347,7 +349,7 @@ After insertion, the value of `auto-fill-function' is called if the static Lisp_Object Qexpand_abbrev; -int +static int internal_self_insert (int c, int noautofill) { int hairy = 0; diff --git a/src/lisp.h b/src/lisp.h index d1a14fcd894..fded3adba3b 100644 --- a/src/lisp.h +++ b/src/lisp.h @@ -2393,7 +2393,6 @@ extern void swap_in_global_binding (struct Lisp_Symbol *); EXFUN (Fend_of_line, 1); EXFUN (Fforward_char, 1); EXFUN (Fforward_line, 1); -extern int internal_self_insert (int, int); extern void syms_of_cmds (void); extern void keys_of_cmds (void);