diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2022-08-16 17:29:26 -0400 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2022-08-16 17:29:26 -0400 |
| commit | b24f7667ad686093c2b013bc58e2f1234d7487fd (patch) | |
| tree | d5c43b0f06f2a03c940a301c9f3a2101b166c66a /src/buffer.c | |
| parent | 8517d1e9aaf098993c5999480a301f472ba05f1d (diff) | |
| download | emacs-b24f7667ad686093c2b013bc58e2f1234d7487fd.tar.gz emacs-b24f7667ad686093c2b013bc58e2f1234d7487fd.tar.bz2 emacs-b24f7667ad686093c2b013bc58e2f1234d7487fd.zip | |
* src/buffer.c (Frename_buffer): Fix bug#56693
Diffstat (limited to 'src/buffer.c')
| -rw-r--r-- | src/buffer.c | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/src/buffer.c b/src/buffer.c index 98066a2eb60..4fd5b2be3e9 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); |