diff options
| author | Richard M. Stallman | 1993-02-14 23:08:25 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1993-02-14 23:08:25 +0000 |
| commit | 3bd779aadb256b7f1c07318a92477f0a9aceafef (patch) | |
| tree | f013a82d8f360fc7c43fb08d6fd361e70bfb3c78 /src/buffer.c | |
| parent | 8922af5f60b842d3c0af3e81401e7e8aa5aa17cd (diff) | |
| download | emacs-3bd779aadb256b7f1c07318a92477f0a9aceafef.tar.gz emacs-3bd779aadb256b7f1c07318a92477f0a9aceafef.zip | |
(Frename_buffer): Make prefix arg set UNIQUE.
Diffstat (limited to 'src/buffer.c')
| -rw-r--r-- | src/buffer.c | 15 |
1 files changed, 8 insertions, 7 deletions
diff --git a/src/buffer.c b/src/buffer.c index 4057fffbf7d..3499ba29028 100644 --- a/src/buffer.c +++ b/src/buffer.c | |||
| @@ -510,16 +510,17 @@ No argument or nil as argument means use current buffer as BUFFER.") | |||
| 510 | } | 510 | } |
| 511 | 511 | ||
| 512 | DEFUN ("rename-buffer", Frename_buffer, Srename_buffer, 1, 2, | 512 | DEFUN ("rename-buffer", Frename_buffer, Srename_buffer, 1, 2, |
| 513 | "sRename buffer (to new name): ", | 513 | "sRename buffer (to new name): \nP", |
| 514 | "Change current buffer's name to NEWNAME (a string).\n\ | 514 | "Change current buffer's name to NEWNAME (a string).\n\ |
| 515 | If second arg DISTINGUISH is nil or omitted, it is an error if a\n\ | 515 | If second arg UNIQUE is nil or omitted, it is an error if a\n\ |
| 516 | buffer named NEWNAME already exists.\n\ | 516 | buffer named NEWNAME already exists.\n\ |
| 517 | If DISTINGUISH is non-nil, come up with a new name using\n\ | 517 | If UNIQUE is non-nil, come up with a new name using\n\ |
| 518 | `generate-new-buffer-name'.\n\ | 518 | `generate-new-buffer-name'.\n\ |
| 519 | Return the name we actually gave the buffer.\n\ | 519 | Interactively, you can set UNIQUE with a prefix argument.\n\ |
| 520 | We return the name we actually gave the buffer.\n\ | ||
| 520 | This does not change the name of the visited file (if any).") | 521 | This does not change the name of the visited file (if any).") |
| 521 | (name, distinguish) | 522 | (name, unique) |
| 522 | register Lisp_Object name, distinguish; | 523 | register Lisp_Object name, unique; |
| 523 | { | 524 | { |
| 524 | register Lisp_Object tem, buf; | 525 | register Lisp_Object tem, buf; |
| 525 | 526 | ||
| @@ -529,7 +530,7 @@ This does not change the name of the visited file (if any).") | |||
| 529 | return current_buffer->name; | 530 | return current_buffer->name; |
| 530 | if (!NILP (tem)) | 531 | if (!NILP (tem)) |
| 531 | { | 532 | { |
| 532 | if (!NILP (distinguish)) | 533 | if (!NILP (unique)) |
| 533 | name = Fgenerate_new_buffer_name (name); | 534 | name = Fgenerate_new_buffer_name (name); |
| 534 | else | 535 | else |
| 535 | error ("Buffer name \"%s\" is in use", XSTRING (name)->data); | 536 | error ("Buffer name \"%s\" is in use", XSTRING (name)->data); |