comparison src/buffer.c @ 95826:54e76878a8c0

(clone_per_buffer_values): Skip `name'.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Wed, 11 Jun 2008 16:25:03 +0000
parents 9a4b27c8feec
children 514e5b8b3fbf
comparison
equal deleted inserted replaced
95825:85ee8c71ce8c 95826:54e76878a8c0
494 494
495 XSETBUFFER (to_buffer, to); 495 XSETBUFFER (to_buffer, to);
496 496
497 /* buffer-local Lisp variables start at `undo_list', 497 /* buffer-local Lisp variables start at `undo_list',
498 tho only the ones from `name' on are GC'd normally. */ 498 tho only the ones from `name' on are GC'd normally. */
499 for (offset = PER_BUFFER_VAR_OFFSET (undo_list) + sizeof (Lisp_Object); 499 for (offset = PER_BUFFER_VAR_OFFSET (undo_list);
500 offset < sizeof *to; 500 offset < sizeof *to;
501 offset += sizeof (Lisp_Object)) 501 offset += sizeof (Lisp_Object))
502 { 502 {
503 Lisp_Object obj; 503 Lisp_Object obj;
504
505 /* Don't touch the `name' which should be unique for every buffer. */
506 if (offset == PER_BUFFER_VAR_OFFSET (name))
507 continue;
504 508
505 obj = PER_BUFFER_VALUE (from, offset); 509 obj = PER_BUFFER_VALUE (from, offset);
506 if (MARKERP (obj)) 510 if (MARKERP (obj))
507 { 511 {
508 struct Lisp_Marker *m = XMARKER (obj); 512 struct Lisp_Marker *m = XMARKER (obj);