diff options
| author | Dan Nicolaescu | 2010-07-04 00:50:25 -0700 |
|---|---|---|
| committer | Dan Nicolaescu | 2010-07-04 00:50:25 -0700 |
| commit | 971de7fb158335fbda39525feb2d7776a26bc030 (patch) | |
| tree | 605333d85f16e35bb06baffcb66ac49f4ec0dce9 /src/casefiddle.c | |
| parent | b8463cbfbe2c5183cf40772df2746e58b787ddeb (diff) | |
| download | emacs-971de7fb158335fbda39525feb2d7776a26bc030.tar.gz emacs-971de7fb158335fbda39525feb2d7776a26bc030.zip | |
Convert (most) functions in src to standard C.
* src/alloc.c: Convert function definitions to standard C.
* src/atimer.c:
* src/bidi.c:
* src/bytecode.c:
* src/callint.c:
* src/callproc.c:
* src/casefiddle.c:
* src/casetab.c:
* src/category.c:
* src/ccl.c:
* src/character.c:
* src/charset.c:
* src/chartab.c:
* src/cmds.c:
* src/coding.c:
* src/composite.c:
* src/data.c:
* src/dbusbind.c:
* src/dired.c:
* src/dispnew.c:
* src/doc.c:
* src/doprnt.c:
* src/ecrt0.c:
* src/editfns.c:
* src/fileio.c:
* src/filelock.c:
* src/filemode.c:
* src/fns.c:
* src/font.c:
* src/fontset.c:
* src/frame.c:
* src/fringe.c:
* src/ftfont.c:
* src/ftxfont.c:
* src/gtkutil.c:
* src/indent.c:
* src/insdel.c:
* src/intervals.c:
* src/keymap.c:
* src/lread.c:
* src/macros.c:
* src/marker.c:
* src/md5.c:
* src/menu.c:
* src/minibuf.c:
* src/prefix-args.c:
* src/print.c:
* src/ralloc.c:
* src/regex.c:
* src/region-cache.c:
* src/scroll.c:
* src/search.c:
* src/sound.c:
* src/strftime.c:
* src/syntax.c:
* src/sysdep.c:
* src/termcap.c:
* src/terminal.c:
* src/terminfo.c:
* src/textprop.c:
* src/tparam.c:
* src/undo.c:
* src/unexelf.c:
* src/window.c:
* src/xfaces.c:
* src/xfns.c:
* src/xfont.c:
* src/xftfont.c:
* src/xgselect.c:
* src/xmenu.c:
* src/xrdb.c:
* src/xselect.c:
* src/xsettings.c:
* src/xsmfns.c:
* src/xterm.c: Likewise.
Diffstat (limited to 'src/casefiddle.c')
| -rw-r--r-- | src/casefiddle.c | 16 |
1 files changed, 5 insertions, 11 deletions
diff --git a/src/casefiddle.c b/src/casefiddle.c index 30bb457b17d..36715848941 100644 --- a/src/casefiddle.c +++ b/src/casefiddle.c | |||
| @@ -33,9 +33,7 @@ enum case_action {CASE_UP, CASE_DOWN, CASE_CAPITALIZE, CASE_CAPITALIZE_UP}; | |||
| 33 | Lisp_Object Qidentity; | 33 | Lisp_Object Qidentity; |
| 34 | 34 | ||
| 35 | Lisp_Object | 35 | Lisp_Object |
| 36 | casify_object (flag, obj) | 36 | casify_object (enum case_action flag, Lisp_Object obj) |
| 37 | enum case_action flag; | ||
| 38 | Lisp_Object obj; | ||
| 39 | { | 37 | { |
| 40 | register int c, c1; | 38 | register int c, c1; |
| 41 | register int inword = flag == CASE_DOWN; | 39 | register int inword = flag == CASE_DOWN; |
| @@ -200,9 +198,7 @@ The argument object is not altered--the value is a copy. */) | |||
| 200 | b and e specify range of buffer to operate on. */ | 198 | b and e specify range of buffer to operate on. */ |
| 201 | 199 | ||
| 202 | void | 200 | void |
| 203 | casify_region (flag, b, e) | 201 | casify_region (enum case_action flag, Lisp_Object b, Lisp_Object e) |
| 204 | enum case_action flag; | ||
| 205 | Lisp_Object b, e; | ||
| 206 | { | 202 | { |
| 207 | register int c; | 203 | register int c; |
| 208 | register int inword = flag == CASE_DOWN; | 204 | register int inword = flag == CASE_DOWN; |
| @@ -358,9 +354,7 @@ character positions to operate on. */) | |||
| 358 | } | 354 | } |
| 359 | 355 | ||
| 360 | static Lisp_Object | 356 | static Lisp_Object |
| 361 | operate_on_word (arg, newpoint) | 357 | operate_on_word (Lisp_Object arg, EMACS_INT *newpoint) |
| 362 | Lisp_Object arg; | ||
| 363 | EMACS_INT *newpoint; | ||
| 364 | { | 358 | { |
| 365 | Lisp_Object val; | 359 | Lisp_Object val; |
| 366 | int farend; | 360 | int farend; |
| @@ -427,7 +421,7 @@ With negative argument, capitalize previous words but do not move. */) | |||
| 427 | } | 421 | } |
| 428 | 422 | ||
| 429 | void | 423 | void |
| 430 | syms_of_casefiddle () | 424 | syms_of_casefiddle (void) |
| 431 | { | 425 | { |
| 432 | Qidentity = intern_c_string ("identity"); | 426 | Qidentity = intern_c_string ("identity"); |
| 433 | staticpro (&Qidentity); | 427 | staticpro (&Qidentity); |
| @@ -445,7 +439,7 @@ syms_of_casefiddle () | |||
| 445 | } | 439 | } |
| 446 | 440 | ||
| 447 | void | 441 | void |
| 448 | keys_of_casefiddle () | 442 | keys_of_casefiddle (void) |
| 449 | { | 443 | { |
| 450 | initial_define_key (control_x_map, Ctl('U'), "upcase-region"); | 444 | initial_define_key (control_x_map, Ctl('U'), "upcase-region"); |
| 451 | Fput (intern ("upcase-region"), Qdisabled, Qt); | 445 | Fput (intern ("upcase-region"), Qdisabled, Qt); |