(Frename_buffer): In interactive spec replace

`read-buffer' with `read-string' that uses `buffer-name-history'
as history, and the current buffer's name as default.

diff --git a/src/ChangeLog b/src/ChangeLog
index 86bfa0ab2111d16ac3622dd5027b89e9d28a3ef8..babf84e1e85e002dc4216a251783dc23a386e1de 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,9 @@
+2007-12-12  Juri Linkov  <juri@jurta.org>
+
+       * buffer.c (Frename_buffer): In interactive spec replace
+       `read-buffer' with `read-string' that uses `buffer-name-history'
+       as history, and the current buffer's name as default.
+
 2007-12-10  Stefan Monnier  <monnier@iro.umontreal.ca>
 
        * keyboard.c (Fcommand_execute): Call Qcall_interactively instead of

diff --git a/src/buffer.c b/src/buffer.c
index 44c449767c39075b2a77b9bd9ad9dec0e3129360..58e2bd9e4cdb33b296f4b48745c4f02da104e8e8 100644 (file)
--- a/src/buffer.c
+++ b/src/buffer.c
@@ -1187,8 +1187,9 @@ buffer as BUFFER.  */)
 }
 \f
 DEFUN ("rename-buffer", Frename_buffer, Srename_buffer, 1, 2,
-       "(list (read-buffer \"Rename buffer (to new name): \" \
-             (current-buffer)) current-prefix-arg)",
+       "(list (read-string \"Rename buffer (to new name): \" \
+             nil 'buffer-name-history (buffer-name (current-buffer))) \
+             current-prefix-arg)",
        doc: /* Change current buffer's name to NEWNAME (a string).
 If second arg UNIQUE is nil or omitted, it is an error if a
 buffer named NEWNAME already exists.