(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.
This commit is contained in:
Juri Linkov 2007-12-12 00:10:37 +00:00
parent 5ec7fe1bff
commit c7d97628b0
2 changed files with 9 additions and 2 deletions

View file

@ -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

View file

@ -1187,8 +1187,9 @@ buffer as BUFFER. */)
}
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.