# HG changeset patch # User Chong Yidong # Date 1260043789 0 # Node ID 7c2192f52cb68ff92c1c59acfd87e62d4f9a5f16 # Parent a67d65733a074684a305b25ee5d900de811efa9f Fix a comment and delete trailing whitespace. diff -r a67d65733a07 -r 7c2192f52cb6 src/font.c --- a/src/font.c Sat Dec 05 19:49:47 2009 +0000 +++ b/src/font.c Sat Dec 05 20:09:49 2009 +0000 @@ -722,11 +722,11 @@ && NILP (Fstring_lessp (prop, XCAR (XCAR (extra))))) prev = extra, extra = XCDR (extra); - if (NILP (prev)) + if (NILP (prev)) ASET (font, FONT_EXTRA_INDEX, Fcons (Fcons (prop, val), extra)); - else + else XSETCDR (prev, Fcons (Fcons (prop, val), extra)); - + return val; } XSETCDR (slot, val); @@ -1507,7 +1507,7 @@ if (prop >= FONT_FOUNDRY_INDEX && prop < FONT_EXTRA_INDEX) ASET (font, prop, font_prop_validate (prop, Qnil, val)); - else + else { extra_props = nconc2 (extra_props, Fcons (Fcons (key, val), Qnil)); @@ -1524,7 +1524,7 @@ if (driver_list->driver->filter_properties) (*driver_list->driver->filter_properties) (font, extra_props); } - + } else { @@ -2403,7 +2403,7 @@ { int font_driver_preference = 0; Lisp_Object current_font_driver; - + if (best_only) vec = XCAR (tail); len = ASIZE (vec); @@ -2842,8 +2842,8 @@ /* Return a list of vectors of font-entities matching with SPEC on - FRAME. The elements of the list are in the same of order of - font-drivers. */ + FRAME. Each elements in the list is a vector of entities from the + same font-driver. */ Lisp_Object font_list_entities (frame, spec)