diff options
Diffstat (limited to 'src/minibuf.c')
| -rw-r--r-- | src/minibuf.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/minibuf.c b/src/minibuf.c index 2b21fa6a06f..f3a24afc199 100644 --- a/src/minibuf.c +++ b/src/minibuf.c | |||
| @@ -236,7 +236,7 @@ string_to_object (Lisp_Object val, Lisp_Object defalt) | |||
| 236 | { | 236 | { |
| 237 | struct gcpro gcpro1, gcpro2; | 237 | struct gcpro gcpro1, gcpro2; |
| 238 | Lisp_Object expr_and_pos; | 238 | Lisp_Object expr_and_pos; |
| 239 | int pos; | 239 | EMACS_INT pos; |
| 240 | 240 | ||
| 241 | GCPRO2 (val, defalt); | 241 | GCPRO2 (val, defalt); |
| 242 | 242 | ||
| @@ -254,7 +254,7 @@ string_to_object (Lisp_Object val, Lisp_Object defalt) | |||
| 254 | { | 254 | { |
| 255 | /* Ignore trailing whitespace; any other trailing junk | 255 | /* Ignore trailing whitespace; any other trailing junk |
| 256 | is an error. */ | 256 | is an error. */ |
| 257 | int i; | 257 | EMACS_INT i; |
| 258 | pos = string_char_to_byte (val, pos); | 258 | pos = string_char_to_byte (val, pos); |
| 259 | for (i = pos; i < SBYTES (val); i++) | 259 | for (i = pos; i < SBYTES (val); i++) |
| 260 | { | 260 | { |