diff options
| author | Karl Heuer | 1994-08-23 22:56:44 +0000 |
|---|---|---|
| committer | Karl Heuer | 1994-08-23 22:56:44 +0000 |
| commit | cf058e49444b2c8d894f46c1bfd57d5e96b923c8 (patch) | |
| tree | 8740e63b48fc4f9102695397a2f8ac9af63e332b /src | |
| parent | 8ec1a37406d4e1305df2b696dd90b91167ab2041 (diff) | |
| download | emacs-cf058e49444b2c8d894f46c1bfd57d5e96b923c8.tar.gz emacs-cf058e49444b2c8d894f46c1bfd57d5e96b923c8.zip | |
(Frename_buffer): Fix gcpro problems.
Diffstat (limited to 'src')
| -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).") | |||
| 608 | 608 | ||
| 609 | XSET (buf, Lisp_Buffer, current_buffer); | 609 | XSET (buf, Lisp_Buffer, current_buffer); |
| 610 | Fsetcar (Frassq (buf, Vbuffer_alist), name); | 610 | Fsetcar (Frassq (buf, Vbuffer_alist), name); |
| 611 | if (NILP (current_buffer->filename) && !NILP (current_buffer->auto_save_file_name)) | 611 | if (NILP (current_buffer->filename) |
| 612 | && !NILP (current_buffer->auto_save_file_name)) | ||
| 612 | call0 (intern ("rename-auto-save-file")); | 613 | call0 (intern ("rename-auto-save-file")); |
| 613 | return name; | 614 | /* refetch since that last call may have done GC */ |
| 615 | return current_buffer->name; | ||
| 614 | } | 616 | } |
| 615 | 617 | ||
| 616 | DEFUN ("other-buffer", Fother_buffer, Sother_buffer, 0, 2, 0, | 618 | DEFUN ("other-buffer", Fother_buffer, Sother_buffer, 0, 2, 0, |