comparison src/xfns.c @ 109701:2cf388f16cae

* w32fns.c (syms_of_w32fns) <x-max-tooltip-size>: Fix typo in docstring. * xfns.c (syms_of_xfns) <x-max-tooltip-size>: Reflow docstring.

109700:e100e3aa28fb

    XDefineCursor (dpy, FRAME_X_WINDOW (f),
                   f->output_data.x->current_cursor = cursor);

  if (FRAME_X_DISPLAY_INFO (f)->invisible_cursor == 0)
    FRAME_X_DISPLAY_INFO (f)->invisible_cursor = make_invisible_cursor (f);
  
  if (cursor != x->text_cursor
      && x->text_cursor != 0)
    XFreeCursor (dpy, x->text_cursor);
  x->text_cursor = cursor;

         read yet.  */
      const char *system_font = xsettings_get_system_font ();
      if (system_font) font_param = make_string (system_font,
                                                 strlen (system_font));
    }
  
  font = !NILP (font_param) ? font_param
    : x_get_arg (dpyinfo, parms, Qfont, "font", "Font", RES_TYPE_STRING);

  if (! STRINGP (font))
    {

  XSETFONT (font, FRAME_FONT (f));
  font_param = Ffont_get (font, intern (":name"));
  if (STRINGP (font_param))
    default_name = xstrdup (SDATA (font_param));
  else 
    {
      font_param = Fframe_parameter (frame, Qfont_param);
      if (STRINGP (font_param))
        default_name = xstrdup (SDATA (font_param));
    }

  if (default_name == NULL && x_last_font_name != NULL)
    default_name = xstrdup (x_last_font_name);

  /* Convert fontconfig names to Gtk names, i.e. remove - before number */
  if (default_name) 
    {
      char *p = strrchr (default_name, '-');
      if (p)
        {
          char *ep = p+1;

  DEFVAR_LISP ("x-cursor-fore-pixel", &Vx_cursor_fore_pixel,
    doc: /* A string indicating the foreground color of the cursor box.  */);
  Vx_cursor_fore_pixel = Qnil;

  DEFVAR_LISP ("x-max-tooltip-size", &Vx_max_tooltip_size,
    doc: /* Maximum size for tooltips.  Value is a pair (COLUMNS . ROWS).
Text larger than this is clipped.  */);
  Vx_max_tooltip_size = Fcons (make_number (80), make_number (40));

  DEFVAR_LISP ("x-no-window-manager", &Vx_no_window_manager,
    doc: /* Non-nil if no X window manager is in use.
Emacs doesn't try to figure this out; this is always nil

109701:2cf388f16cae

    XDefineCursor (dpy, FRAME_X_WINDOW (f),
                   f->output_data.x->current_cursor = cursor);

  if (FRAME_X_DISPLAY_INFO (f)->invisible_cursor == 0)
    FRAME_X_DISPLAY_INFO (f)->invisible_cursor = make_invisible_cursor (f);

  if (cursor != x->text_cursor
      && x->text_cursor != 0)
    XFreeCursor (dpy, x->text_cursor);
  x->text_cursor = cursor;

         read yet.  */
      const char *system_font = xsettings_get_system_font ();
      if (system_font) font_param = make_string (system_font,
                                                 strlen (system_font));
    }

  font = !NILP (font_param) ? font_param
    : x_get_arg (dpyinfo, parms, Qfont, "font", "Font", RES_TYPE_STRING);

  if (! STRINGP (font))
    {

  XSETFONT (font, FRAME_FONT (f));
  font_param = Ffont_get (font, intern (":name"));
  if (STRINGP (font_param))
    default_name = xstrdup (SDATA (font_param));
  else
    {
      font_param = Fframe_parameter (frame, Qfont_param);
      if (STRINGP (font_param))
        default_name = xstrdup (SDATA (font_param));
    }

  if (default_name == NULL && x_last_font_name != NULL)
    default_name = xstrdup (x_last_font_name);

  /* Convert fontconfig names to Gtk names, i.e. remove - before number */
  if (default_name)
    {
      char *p = strrchr (default_name, '-');
      if (p)
        {
          char *ep = p+1;

  DEFVAR_LISP ("x-cursor-fore-pixel", &Vx_cursor_fore_pixel,
    doc: /* A string indicating the foreground color of the cursor box.  */);
  Vx_cursor_fore_pixel = Qnil;

  DEFVAR_LISP ("x-max-tooltip-size", &Vx_max_tooltip_size,
    doc: /* Maximum size for tooltips.
Value is a pair (COLUMNS . ROWS).  Text larger than this is clipped.  */);
  Vx_max_tooltip_size = Fcons (make_number (80), make_number (40));

  DEFVAR_LISP ("x-no-window-manager", &Vx_no_window_manager,
    doc: /* Non-nil if no X window manager is in use.
Emacs doesn't try to figure this out; this is always nil