Mercurial > emacs
comparison src/buffer.c @ 61445:9ee6093ffeaf
(Fmake_indirect_buffer): Clear out some local variables.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Sun, 10 Apr 2005 23:22:38 +0000 |
parents | d2f6fa8790f3 |
children | bc82609e1655 9deb6323655c 146c086df160 |
comparison
equal
deleted
inserted
replaced
61444:8e54037fa085 | 61445:9ee6093ffeaf |
---|---|
628 b->zv_marker = Fmake_marker (); | 628 b->zv_marker = Fmake_marker (); |
629 set_marker_both (b->zv_marker, buf, BUF_ZV (b), BUF_ZV_BYTE (b)); | 629 set_marker_both (b->zv_marker, buf, BUF_ZV (b), BUF_ZV_BYTE (b)); |
630 XMARKER (b->zv_marker)->insertion_type = 1; | 630 XMARKER (b->zv_marker)->insertion_type = 1; |
631 } | 631 } |
632 else | 632 else |
633 clone_per_buffer_values (b->base_buffer, b); | 633 { |
634 struct buffer *old_b = current_buffer; | |
635 | |
636 clone_per_buffer_values (b->base_buffer, b); | |
637 b->filename = Qnil; | |
638 b->file_truename = Qnil; | |
639 b->display_count = make_number (0); | |
640 b->backed_up = Qnil; | |
641 b->auto_save_file_name = Qnil; | |
642 set_buffer_internal_1 (b); | |
643 Fset (intern ("buffer-save-without-query"), Qnil); | |
644 Fset (intern ("buffer-file-number"), Qnil); | |
645 Fset (intern ("buffer-stale-function"), Qnil); | |
646 set_buffer_internal_1 (old_b); | |
647 } | |
634 | 648 |
635 return buf; | 649 return buf; |
636 } | 650 } |
637 | 651 |
638 void | 652 void |
929 | 943 |
930 return result; | 944 return result; |
931 } | 945 } |
932 | 946 |
933 /* Return an alist of the Lisp-level buffer-local bindings of | 947 /* Return an alist of the Lisp-level buffer-local bindings of |
934 buffer BUF. That is, do't include the variables maintained | 948 buffer BUF. That is, don't include the variables maintained |
935 in special slots in the buffer object. */ | 949 in special slots in the buffer object. */ |
936 | 950 |
937 static Lisp_Object | 951 static Lisp_Object |
938 buffer_lisp_local_variables (buf) | 952 buffer_lisp_local_variables (buf) |
939 struct buffer *buf; | 953 struct buffer *buf; |