diff options
| author | Karl Heuer <kwzh@gnu.org> | 1994-08-23 22:56:44 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1994-08-23 22:56:44 +0000 |
| commit | cf058e49444b2c8d894f46c1bfd57d5e96b923c8 (patch) | |
| tree | 8740e63b48fc4f9102695397a2f8ac9af63e332b /src/buffer.c | |
| parent | 8ec1a37406d4e1305df2b696dd90b91167ab2041 (diff) | |
| download | emacs-cf058e49444b2c8d894f46c1bfd57d5e96b923c8.tar.gz emacs-cf058e49444b2c8d894f46c1bfd57d5e96b923c8.tar.bz2 emacs-cf058e49444b2c8d894f46c1bfd57d5e96b923c8.zip | |
(Frename_buffer): Fix gcpro problems.
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 d14d33c74d7..87a81658fed 100644 --- a/src/buffer.c +++ b/src/buffer.c @@ -608,9 +608,11 @@ This does not change the name of the visited file (if any).") XSET (buf, Lisp_Buffer, current_buffer); Fsetcar (Frassq (buf, Vbuffer_alist), name); - if (NILP (current_buffer->filename) && !NILP (current_buffer->auto_save_file_name)) + if (NILP (current_buffer->filename) + && !NILP (current_buffer->auto_save_file_name)) call0 (intern ("rename-auto-save-file")); - return name; + /* refetch since that last call may have done GC */ + return current_buffer->name; } DEFUN ("other-buffer", Fother_buffer, Sother_buffer, 0, 2, 0, |