Mercurial > emacs

comparison src/casefiddle.c @ 21514:fa9ff387d260

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix -Wimplicit warnings.
author Andreas Schwab <schwab@suse.de>
date Tue, 14 Apr 1998 12:25:56 +0000
parents 0fda3f197f9c
children 2107e25fa56f
comparison
equal deleted inserted replaced
21513:984881b316fc 21514:fa9ff387d260
180 } 180 }
181 181
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
185 void
185 casify_region (flag, b, e) 186 casify_region (flag, b, e)
186 enum case_action flag; 187 enum case_action flag;
187 Lisp_Object b, e; 188 Lisp_Object b, e;
188 { 189 {
189 register int i; 190 register int i;
402 casify_region (CASE_CAPITALIZE, beg, end); 403 casify_region (CASE_CAPITALIZE, beg, end);
403 SET_PT (newpoint); 404 SET_PT (newpoint);
404 return Qnil; 405 return Qnil;
405 } 406 }
406 407
408 void
407 syms_of_casefiddle () 409 syms_of_casefiddle ()
408 { 410 {
409 Qidentity = intern ("identity"); 411 Qidentity = intern ("identity");
410 staticpro (&Qidentity); 412 staticpro (&Qidentity);
411 defsubr (&Supcase); 413 defsubr (&Supcase);
419 defsubr (&Supcase_word); 421 defsubr (&Supcase_word);
420 defsubr (&Sdowncase_word); 422 defsubr (&Sdowncase_word);
421 defsubr (&Scapitalize_word); 423 defsubr (&Scapitalize_word);
422 } 424 }
423 425
426 void
424 keys_of_casefiddle () 427 keys_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");
427 Fput (intern ("upcase-region"), Qdisabled, Qt); 430 Fput (intern ("upcase-region"), Qdisabled, Qt);
428 initial_define_key (control_x_map, Ctl('L'), "downcase-region"); 431 initial_define_key (control_x_map, Ctl('L'), "downcase-region");