Mercurial > emacs
comparison src/buffer.c @ 87215:7d40f609f780
(Frename_buffer): Change interactive spec from "s" to
Lisp code that uses `read-buffer' with current buffer as default.
author | Juri Linkov <juri@jurta.org> |
---|---|
date | Sun, 09 Dec 2007 23:49:00 +0000 |
parents | 13041217da4b |
children | 409f76c92cb2 |
comparison
equal
deleted
inserted
replaced
87214:c12a7d068bf6 | 87215:7d40f609f780 |
---|---|
1167 | 1167 |
1168 return make_number (BUF_CHARS_MODIFF (buf)); | 1168 return make_number (BUF_CHARS_MODIFF (buf)); |
1169 } | 1169 } |
1170 | 1170 |
1171 DEFUN ("rename-buffer", Frename_buffer, Srename_buffer, 1, 2, | 1171 DEFUN ("rename-buffer", Frename_buffer, Srename_buffer, 1, 2, |
1172 "sRename buffer (to new name): \nP", | 1172 "(list (read-buffer \"Rename buffer (to new name): \" \ |
1173 (current-buffer)) current-prefix-arg)", | |
1173 doc: /* Change current buffer's name to NEWNAME (a string). | 1174 doc: /* Change current buffer's name to NEWNAME (a string). |
1174 If second arg UNIQUE is nil or omitted, it is an error if a | 1175 If second arg UNIQUE is nil or omitted, it is an error if a |
1175 buffer named NEWNAME already exists. | 1176 buffer named NEWNAME already exists. |
1176 If UNIQUE is non-nil, come up with a new name using | 1177 If UNIQUE is non-nil, come up with a new name using |
1177 `generate-new-buffer-name'. | 1178 `generate-new-buffer-name'. |