diff options
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); |