aboutsummaryrefslogtreecommitdiffstats
path: root/src/casefiddle.c
diff options
context:
space:
mode:
Diffstat (limited to 'src/casefiddle.c')
-rw-r--r--src/casefiddle.c3
1 files changed, 3 insertions, 0 deletions
diff --git a/src/casefiddle.c b/src/casefiddle.c
index 4f1f72f6e9e..b6d8b21f606 100644
--- a/src/casefiddle.c
+++ b/src/casefiddle.c
@@ -182,6 +182,7 @@ The argument object is not altered--the value is a copy.")
182/* flag is CASE_UP, CASE_DOWN or CASE_CAPITALIZE or CASE_CAPITALIZE_UP. 182/* flag is CASE_UP, CASE_DOWN or CASE_CAPITALIZE or CASE_CAPITALIZE_UP.
183 b and e specify range of buffer to operate on. */ 183 b and e specify range of buffer to operate on. */
184 184
185void
185casify_region (flag, b, e) 186casify_region (flag, b, e)
186 enum case_action flag; 187 enum case_action flag;
187 Lisp_Object b, e; 188 Lisp_Object b, e;
@@ -404,6 +405,7 @@ With negative argument, capitalize previous words but do not move.")
404 return Qnil; 405 return Qnil;
405} 406}
406 407
408void
407syms_of_casefiddle () 409syms_of_casefiddle ()
408{ 410{
409 Qidentity = intern ("identity"); 411 Qidentity = intern ("identity");
@@ -421,6 +423,7 @@ syms_of_casefiddle ()
421 defsubr (&Scapitalize_word); 423 defsubr (&Scapitalize_word);
422} 424}
423 425
426void
424keys_of_casefiddle () 427keys_of_casefiddle ()
425{ 428{
426 initial_define_key (control_x_map, Ctl('U'), "upcase-region"); 429 initial_define_key (control_x_map, Ctl('U'), "upcase-region");