Mercurial > emacs
comparison src/buffer.c @ 8599:cf3233d70e94
(Frename_buffer): Fix gcpro problems.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Tue, 23 Aug 1994 22:56:44 +0000 |
| parents | d884e74c75e4 |
| children | 0996472bb39d |
comparison
equal
deleted
inserted
replaced
| 8598:d49cb56cce45 | 8599:cf3233d70e94 |
|---|---|
| 606 any windows displaying current_buffer will stay unchanged. */ | 606 any windows displaying current_buffer will stay unchanged. */ |
| 607 update_mode_lines++; | 607 update_mode_lines++; |
| 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, |
| 617 "Return most recently selected buffer other than BUFFER.\n\ | 619 "Return most recently selected buffer other than BUFFER.\n\ |
| 618 Buffers not visible in windows are preferred to visible buffers,\n\ | 620 Buffers not visible in windows are preferred to visible buffers,\n\ |
