crash in font-get

[Sam Steingold <sds@gnu.org>]

GNU Emacs 24.0.50.4 (x86_64-unknown-linux-gnu, GTK+ Version 2.10.4)
 of 2011-01-27 on tbox

emacs -Q -fn "-misc-fixed-medium-r-semicondensed--13-120-75-75-c-60-koi8-r"
evaluate in *scratch*:

(let ((f (font-at (point))))
  (dolist (k '(:family :weight :slant :width :foundry :adstyle :registry
               :size :name :script :otf))
    (print (cons k (font-get f k)))))

Program received signal SIGSEGV, Segmentation fault.
0x00000000004be149 in x_draw_glyph_string_background (s=0x7fff4bbada40, 
    force_p=1) at xterm.c:1179
1179          else if (FONT_HEIGHT (s->font) < s->height - 2 * box_line_width
(gdb) where
#0  0x00000000004be149 in x_draw_glyph_string_background (s=0x7fff4bbada40, 
    force_p=1) at xterm.c:1179
#1  0x00000000004bf51a in x_draw_glyph_string (s=0x7fff4bbada40)
    at xterm.c:2736
#2  0x000000000044cd7e in draw_glyphs (w=0x114e850, x=1, row=0xde5d70, 
    area=TEXT_AREA, start=140734463924984, end=16561552, hl=DRAW_NORMAL_TEXT, 
    overlaps=0) at xdisp.c:21424
#3  0x0000000000450363 in x_write_glyphs (start=<value optimized out>, len=66)
    at xdisp.c:23002
#4  0x0000000000419e43 in update_window_line (w=0x114e850, vpos=29, 
    mouse_face_overwritten_p=0x7fff4bbae17c) at dispnew.c:3839
#5  0x000000000041b3ce in update_window (w=0x114e850, force_p=0)
    at dispnew.c:3642
#6  0x000000000041c7cc in update_window_tree (w=0x114e850, force_p=0)
    at dispnew.c:3403
#7  0x000000000041cea9 in update_frame (f=0x114e600, force_p=0, 
    inhibit_hairy_id_p=0) at dispnew.c:3330
#8  0x0000000000444a15 in redisplay_internal (
    preserve_echo_area=<value optimized out>) at xdisp.c:11931
#9  0x0000000000504f6c in command_loop_1 () at keyboard.c:1550
#10 0x0000000000563a01 in internal_condition_case (
    bfun=0x504b60 <command_loop_1>, handlers=11794930, 
    hfun=0x4ff100 <cmd_error>) at eval.c:1408
#11 0x00000000004fed7a in command_loop_2 (ignore=<value optimized out>)
    at keyboard.c:1129
#12 0x0000000000563af8 in internal_catch (tag=<value optimized out>, 
    func=0x4fed60 <command_loop_2>, arg=11742818) at eval.c:1152
#13 0x00000000004fef33 in command_loop () at keyboard.c:1108
#14 0x00000000004ff2d8 in recursive_edit_1 () at keyboard.c:731
#15 0x00000000004ff42f in Frecursive_edit () at keyboard.c:793
#16 0x00000000004f2b27 in main (argc=<value optimized out>, 
    argv=0x7fff4bbb04e8) at emacs.c:1684
(gdb) p s
$3 = (struct glyph_string *) 0x7fff4bbada40
(gdb) p *s
$4 = {
  x = 49, 
  y = 328, 
  ybase = 344, 
  width = 192, 
  background_width = 192, 
  height = 23, 
  left_overhang = 0, 
  right_overhang = 0, 
  f = 0x114e600, 
  w = 0x114e850, 
  display = 0x113b730, 
  window = 12583032, 
  row = 0xde5d70, 
  area = TEXT_AREA, 
  char2b = 0x0, 
  nchars = 12, 
  hl = DRAW_NORMAL_TEXT, 
  face = 0xdaf240, 
  font = 0x0, 
  cmp = 0x0, 
  cmp_id = 0, 
  cmp_from = 0, 
  cmp_to = 0, 
  extends_to_end_of_line_p = 0, 
  background_filled_p = 0, 
  two_byte_p = 0, 
  font_not_found_p = 0, 
  stippled_p = 0, 
  for_overlaps = 0, 
  padding_p = 0, 
  gc = 0x1d3f3980, 
  first_glyph = 0xfcb590, 
  img = 0x0, 
  slice = {
    x = 0, 
    y = 0, 
    width = 0, 
    height = 0
  }, 
  clip_head = 0x0, 
  clip_tail = 0x0, 
  clip = {{
      x = 0, 
      y = 328, 
      width = 516, 
      height = 23
    }, {
      x = 0, 
      y = 0, 
      width = 0, 
      height = 0
    }}, 
  num_clips = 1, 
  underline_position = 0, 
  underline_thickness = 0, 
  next = 0x7fff4bbad940, 
  prev = 0x7fff4bbadbe0
}
(gdb) p s->font
$5 = (struct font *) 0x0


-- 
Sam Steingold (http://sds.podval.org/) on CentOS release 5.3 (Final)
http://honestreporting.com http://ffii.org http://www.memritv.org
http://iris.org.il http://dhimmi.com http://openvotingconsortium.org
He who laughs last thinks slowest.