[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master b24f7667ad: * src/buffer.c (Frename_buffer): Fix bug#56693
From: |
Stefan Monnier |
Subject: |
master b24f7667ad: * src/buffer.c (Frename_buffer): Fix bug#56693 |
Date: |
Tue, 16 Aug 2022 17:29:35 -0400 (EDT) |
branch: master
commit b24f7667ad686093c2b013bc58e2f1234d7487fd
Author: Stefan Monnier <monnier@iro.umontreal.ca>
Commit: Stefan Monnier <monnier@iro.umontreal.ca>
* src/buffer.c (Frename_buffer): Fix bug#56693
---
src/buffer.c | 6 ++++--
1 file changed, 4 insertions(+), 2 deletions(-)
diff --git a/src/buffer.c b/src/buffer.c
index 98066a2eb6..4fd5b2be3e 100644
--- a/src/buffer.c
+++ b/src/buffer.c
@@ -1563,6 +1563,7 @@ This does not change the name of the visited file (if
any). */)
(register Lisp_Object newname, Lisp_Object unique)
{
register Lisp_Object tem, buf;
+ Lisp_Object requestedname = newname;
CHECK_STRING (newname);
@@ -1579,7 +1580,8 @@ This does not change the name of the visited file (if
any). */)
if (NILP (unique) && XBUFFER (tem) == current_buffer)
return BVAR (current_buffer, name);
if (!NILP (unique))
- newname = Fgenerate_new_buffer_name (newname, BVAR (current_buffer,
name));
+ newname = Fgenerate_new_buffer_name (newname,
+ BVAR (current_buffer, name));
else
error ("Buffer name `%s' is in use", SDATA (newname));
}
@@ -1599,7 +1601,7 @@ This does not change the name of the visited file (if
any). */)
run_buffer_list_update_hook (current_buffer);
call2 (intern ("uniquify--rename-buffer-advice"),
- BVAR (current_buffer, name), unique);
+ requestedname, unique);
/* Refetch since that last call may have done GC. */
return BVAR (current_buffer, name);
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master b24f7667ad: * src/buffer.c (Frename_buffer): Fix bug#56693,
Stefan Monnier <=