Mercurial > emacs
comparison src/font.c @ 90888:5f03b3602143
(font_put_extra): Expose externally.
| author | Jason Rumney <jasonr@gnu.org> |
|---|---|
| date | Thu, 31 May 2007 15:52:48 +0000 |
| parents | ce81330d951f |
| children | c3e1394462ec |
comparison
equal
deleted
inserted
replaced
| 90887:aa7f1d212e78 | 90888:5f03b3602143 |
|---|---|
| 258 Lisp_Object, Lisp_Object)); | 258 Lisp_Object, Lisp_Object)); |
| 259 static Lisp_Object font_prop_validate_spacing P_ ((enum font_property_index, | 259 static Lisp_Object font_prop_validate_spacing P_ ((enum font_property_index, |
| 260 Lisp_Object, Lisp_Object)); | 260 Lisp_Object, Lisp_Object)); |
| 261 static int get_font_prop_index P_ ((Lisp_Object, int)); | 261 static int get_font_prop_index P_ ((Lisp_Object, int)); |
| 262 static Lisp_Object font_prop_validate P_ ((Lisp_Object)); | 262 static Lisp_Object font_prop_validate P_ ((Lisp_Object)); |
| 263 static Lisp_Object font_put_extra P_ ((Lisp_Object, Lisp_Object, Lisp_Object)); | |
| 264 | 263 |
| 265 static Lisp_Object | 264 static Lisp_Object |
| 266 font_prop_validate_symbol (prop_index, prop, val) | 265 font_prop_validate_symbol (prop_index, prop, val) |
| 267 enum font_property_index prop_index; | 266 enum font_property_index prop_index; |
| 268 Lisp_Object prop, val; | 267 Lisp_Object prop, val; |
| 406 } | 405 } |
| 407 } | 406 } |
| 408 return spec; | 407 return spec; |
| 409 } | 408 } |
| 410 | 409 |
| 411 static Lisp_Object | 410 Lisp_Object |
| 412 font_put_extra (font, prop, val) | 411 font_put_extra (font, prop, val) |
| 413 Lisp_Object font, prop, val; | 412 Lisp_Object font, prop, val; |
| 414 { | 413 { |
| 415 Lisp_Object extra = AREF (font, FONT_EXTRA_INDEX); | 414 Lisp_Object extra = AREF (font, FONT_EXTRA_INDEX); |
| 416 Lisp_Object slot = (NILP (extra) ? Qnil : assq_no_quit (prop, extra)); | 415 Lisp_Object slot = (NILP (extra) ? Qnil : assq_no_quit (prop, extra)); |