(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:
parent
5ec7fe1bff
commit
c7d97628b0
2 changed files with 9 additions and 2 deletions
|
@ -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
|
||||
|
|
|
@ -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.
|
||||
|
|
Loading…
Add table
Reference in a new issue