Mercurial > emacs
comparison src/buffer.c @ 83286:9deb6323655c
Merged from miles@gnu.org--gnu-2005 (patch 59, 240-245)
Patches applied:
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-240
Update from CVS
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-241
Update from CVS
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-242
Update from CVS
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-243
Merge from gnus--rel--5.10
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-244
Update from CVS
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-245
Update from CVS
* miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-59
Update from CVS
git-archimport-id: lorentey@elte.hu--2004/emacs--multi-tty--0--patch-326
author | Karoly Lorentey <lorentey@elte.hu> |
---|---|
date | Mon, 11 Apr 2005 12:40:15 +0000 |
parents | 1830bcd0eec0 9ee6093ffeaf |
children | b151ec53c504 |
comparison
equal
deleted
inserted
replaced
83285:865f9b91fdbe | 83286:9deb6323655c |
---|---|
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; |