Mercurial > emacs

comparison src/alloc.c @ 85020:db98fea45dfd

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(mark_object): Fix typo.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Tue, 02 Oct 2007 21:19:17 +0000
parents 21a145f18ed2
children a0c901e4e649
comparison
equal deleted inserted replaced
85019:21a145f18ed2 85020:db98fea45dfd
5588 else if (GC_FRAMEP (obj)) 5588 else if (GC_FRAMEP (obj))
5589 { 5589 {
5590 register struct frame *ptr = XFRAME (obj); 5590 register struct frame *ptr = XFRAME (obj);
5591 if (mark_vectorlike (XVECTOR (obj))) 5591 if (mark_vectorlike (XVECTOR (obj)))
5592 { 5592 {
5593 mark_face_cache (ptr->face_cache); 5593 mark_face_cache (ptr->face_cache);
5594 #ifdef HAVE_WINDOW_SYSTEM 5594 #ifdef HAVE_WINDOW_SYSTEM
5595 mark_image_cache (ptr); 5595 mark_image_cache (ptr);
5596 #endif /* HAVE_WINDOW_SYSTEM */ 5596 #endif /* HAVE_WINDOW_SYSTEM */
5597 } 5597 }
5598 } 5598 }
5599 else if (GC_WINDOWP (obj)) 5599 else if (GC_WINDOWP (obj))
5600 { 5600 {
5601 register struct Lisp_Vector *ptr = XVECTOR (obj); 5601 register struct Lisp_Vector *ptr = XVECTOR (obj);
5602 struct window *w = XWINDOW (obj); 5602 struct window *w = XWINDOW (obj);
5603 if (mark_vectorlike (ptr)) 5603 if (mark_vectorlike (ptr))
5604 { 5604 {
5605 /* Mark glyphs for leaf windows. Marking window matrices is 5605 /* Mark glyphs for leaf windows. Marking window matrices is
5606 sufficient because frame matrices use the same glyph 5606 sufficient because frame matrices use the same glyph
5607 memory. */ 5607 memory. */
5608 if (NILP (w->hchild) 5608 if (NILP (w->hchild)
5609 && NILP (w->vchild) 5609 && NILP (w->vchild)
5610 && w->current_matrix) 5610 && w->current_matrix)
5611 { 5611 {
5612 mark_glyph_matrix (w->current_matrix); 5612 mark_glyph_matrix (w->current_matrix);
5613 mark_glyph_matrix (w->desired_matrix); 5613 mark_glyph_matrix (w->desired_matrix);
5614 }
5614 } 5615 }
5615 } 5616 }
5616 else if (GC_HASH_TABLE_P (obj)) 5617 else if (GC_HASH_TABLE_P (obj))
5617 { 5618 {
5618 struct Lisp_Hash_Table *h = XHASH_TABLE (obj); 5619 struct Lisp_Hash_Table *h = XHASH_TABLE (obj);