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