Mercurial > emacs
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); |