diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/ChangeLog | 2 | ||||
| -rw-r--r-- | src/buffer.c | 6 |
2 files changed, 5 insertions, 3 deletions
diff --git a/src/ChangeLog b/src/ChangeLog index 09a4a72a562..d16a19e15eb 100644 --- a/src/ChangeLog +++ b/src/ChangeLog | |||
| @@ -1,5 +1,7 @@ | |||
| 1 | 2011-06-09 Paul Eggert <eggert@cs.ucla.edu> | 1 | 2011-06-09 Paul Eggert <eggert@cs.ucla.edu> |
| 2 | 2 | ||
| 3 | * buffer.c (Fgenerate_new_buffer_name): Use EMACS_INT for count, not int. | ||
| 4 | |||
| 3 | * data.c (Qcompiled_function): Now static. | 5 | * data.c (Qcompiled_function): Now static. |
| 4 | 6 | ||
| 5 | 2011-06-08 Paul Eggert <eggert@cs.ucla.edu> | 7 | 2011-06-08 Paul Eggert <eggert@cs.ucla.edu> |
diff --git a/src/buffer.c b/src/buffer.c index e9ff8f492ba..453ea838902 100644 --- a/src/buffer.c +++ b/src/buffer.c | |||
| @@ -841,8 +841,8 @@ it is in the sequence to be tried) even if a buffer with that name exists. */) | |||
| 841 | (register Lisp_Object name, Lisp_Object ignore) | 841 | (register Lisp_Object name, Lisp_Object ignore) |
| 842 | { | 842 | { |
| 843 | register Lisp_Object gentemp, tem; | 843 | register Lisp_Object gentemp, tem; |
| 844 | int count; | 844 | EMACS_INT count; |
| 845 | char number[10]; | 845 | char number[INT_BUFSIZE_BOUND (EMACS_INT) + sizeof "<>"]; |
| 846 | 846 | ||
| 847 | CHECK_STRING (name); | 847 | CHECK_STRING (name); |
| 848 | 848 | ||
| @@ -856,7 +856,7 @@ it is in the sequence to be tried) even if a buffer with that name exists. */) | |||
| 856 | count = 1; | 856 | count = 1; |
| 857 | while (1) | 857 | while (1) |
| 858 | { | 858 | { |
| 859 | sprintf (number, "<%d>", ++count); | 859 | sprintf (number, "<%"pI"d>", ++count); |
| 860 | gentemp = concat2 (name, build_string (number)); | 860 | gentemp = concat2 (name, build_string (number)); |
| 861 | tem = Fstring_equal (gentemp, ignore); | 861 | tem = Fstring_equal (gentemp, ignore); |
| 862 | if (!NILP (tem)) | 862 | if (!NILP (tem)) |