print('plan draw')

--?   print('plan draw')

          if column_index == 1 and pane_index == 1 then
            print('plan draw before:', pane.screen_top1.line, pane.screen_top1.pos)
          end

              if column_index == 1 and pane_index == 1 then
                print('plan draw after:', pane.screen_top1.line, pane.screen_top1.pos)
              end

    if pane.column_index == 1 and pane.pane_index == 1 then
      print('draw', pane.id, 'from y', pane.top, 'down to screen height', App.screen.height)
      print('screen top', pane.screen_top1.line, pane.screen_top1.pos)
      print('cursor', pane.cursor1.line, pane.cursor1.pos)
    end

--?     if pane.column_index == 1 and pane.pane_index == 1 then
--?       print('draw', pane.id, 'from y', pane.top, 'down to screen height', App.screen.height)
--?       print('screen top', pane.screen_top1.line, pane.screen_top1.pos)
--?       print('cursor', pane.cursor1.line, pane.cursor1.pos)
--?     end

  print('keychord press', chord)

--?   print('keychord press', chord)

            print('edit.keychord_press', chord)

            local screen_top_updated = maybe_update_screen_top_of_cursor_pane(pane, old_top)

            maybe_update_screen_top_of_cursor_pane(pane, old_top)

  print('bring_in_view: viewport before', Display_settings.x, Display_settings.y)
  print('bring_in_view: pane before', pane.screen_top1.line, pane.screen_top1.pos, pane.cursor1.line, pane.cursor1.pos)

--?   print('bring_in_view: viewport before', Display_settings.x, Display_settings.y)
--?   print('bring_in_view: pane before', pane.screen_top1.line, pane.screen_top1.pos, pane.cursor1.line, pane.cursor1.pos)

  print('bring_in_view: pane starts at', up_edge_sy(Cursor_pane.col, Cursor_pane.row))
  print('bring_in_view: cursor line contains ^'..pane.lines[pane.cursor1.line].data..'$')
  print('bring_in_view: cursor is at', y_of_schema1(pane, pane.cursor1), 'from top of pane')

--?   print('bring_in_view: pane starts at', up_edge_sy(Cursor_pane.col, Cursor_pane.row))
--?   print('bring_in_view: cursor line contains ^'..pane.lines[pane.cursor1.line].data..'$')
--?   print('bring_in_view: cursor is at', y_of_schema1(pane, pane.cursor1), 'from top of pane')

  print('bring_in_view: cursor is at', cursor_sy)

--?   print('bring_in_view: cursor is at', cursor_sy)

      print('subtract', App.screen.height, App.screen.height-Header_height)

--?       print('subtract', App.screen.height, App.screen.height-Header_height)

      print('=>', Display_settings.y)
      print('cursor now at ', cursor_sy - Display_settings.y)
      print('viewport height', App.screen.height)
      print('cursor row starts', App.screen.height - (cursor_sy-Display_settings.y), 'px above bottom of viewport')  -- totally wrong

      -- Bah, temporarily giving up on debugging.
      Display_settings.y = Display_settings.y + Line_height
--?       print('=>', Display_settings.y)
--?       print('cursor now at ', cursor_sy - Display_settings.y)
--?       print('viewport height', App.screen.height)
--?       print('cursor row starts', App.screen.height - (cursor_sy-Display_settings.y), 'px above bottom of viewport')  -- totally wrong

  print('viewport now', Display_settings.x, Display_settings.y)

--?   print('viewport now', Display_settings.x, Display_settings.y)

  print('AAA', pane.screen_top1.line, pane.screen_top1.pos, pane.cursor1.line, pane.cursor1.pos)

  print('cursor is at pixel', cursor_sy)

    print('BBB')

    print('Display_settings.y is now', Display_settings.y)

  print('CCC')

  print('Display_settings.y is now', Display_settings.y)