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/callint.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/callint.c')
| -rw-r--r-- | src/callint.c | 14 |
1 files changed, 5 insertions, 9 deletions
diff --git a/src/callint.c b/src/callint.c index 45e5bd9ed9b..5716a6fdd47 100644 --- a/src/callint.c +++ b/src/callint.c | |||
| @@ -140,8 +140,7 @@ usage: (interactive &optional ARGS) */) | |||
| 140 | /* Quotify EXP: if EXP is constant, return it. | 140 | /* Quotify EXP: if EXP is constant, return it. |
| 141 | If EXP is not constant, return (quote EXP). */ | 141 | If EXP is not constant, return (quote EXP). */ |
| 142 | Lisp_Object | 142 | Lisp_Object |
| 143 | quotify_arg (exp) | 143 | quotify_arg (register Lisp_Object exp) |
| 144 | register Lisp_Object exp; | ||
| 145 | { | 144 | { |
| 146 | if (!INTEGERP (exp) && !STRINGP (exp) | 145 | if (!INTEGERP (exp) && !STRINGP (exp) |
| 147 | && !NILP (exp) && !EQ (exp, Qt)) | 146 | && !NILP (exp) && !EQ (exp, Qt)) |
| @@ -152,8 +151,7 @@ quotify_arg (exp) | |||
| 152 | 151 | ||
| 153 | /* Modify EXP by quotifying each element (except the first). */ | 152 | /* Modify EXP by quotifying each element (except the first). */ |
| 154 | Lisp_Object | 153 | Lisp_Object |
| 155 | quotify_args (exp) | 154 | quotify_args (Lisp_Object exp) |
| 156 | Lisp_Object exp; | ||
| 157 | { | 155 | { |
| 158 | register Lisp_Object tail; | 156 | register Lisp_Object tail; |
| 159 | Lisp_Object next; | 157 | Lisp_Object next; |
| @@ -169,8 +167,7 @@ char *callint_argfuns[] | |||
| 169 | = {"", "point", "mark", "region-beginning", "region-end"}; | 167 | = {"", "point", "mark", "region-beginning", "region-end"}; |
| 170 | 168 | ||
| 171 | static void | 169 | static void |
| 172 | check_mark (for_region) | 170 | check_mark (int for_region) |
| 173 | int for_region; | ||
| 174 | { | 171 | { |
| 175 | Lisp_Object tem; | 172 | Lisp_Object tem; |
| 176 | tem = Fmarker_buffer (current_buffer->mark); | 173 | tem = Fmarker_buffer (current_buffer->mark); |
| @@ -191,8 +188,7 @@ check_mark (for_region) | |||
| 191 | of VALUES to do its job. */ | 188 | of VALUES to do its job. */ |
| 192 | 189 | ||
| 193 | static void | 190 | static void |
| 194 | fix_command (input, values) | 191 | fix_command (Lisp_Object input, Lisp_Object values) |
| 195 | Lisp_Object input, values; | ||
| 196 | { | 192 | { |
| 197 | if (CONSP (input)) | 193 | if (CONSP (input)) |
| 198 | { | 194 | { |
| @@ -897,7 +893,7 @@ Its numeric meaning is what you would get from `(interactive "p")'. */) | |||
| 897 | } | 893 | } |
| 898 | 894 | ||
| 899 | void | 895 | void |
| 900 | syms_of_callint () | 896 | syms_of_callint (void) |
| 901 | { | 897 | { |
| 902 | point_marker = Fmake_marker (); | 898 | point_marker = Fmake_marker (); |
| 903 | staticpro (&point_marker); | 899 | staticpro (&point_marker); |