comparison src/keymap.c @ 9273:129621997564

(synkey, Fdescribe_bindings, describe_command): Use new accessor macros instead of calling XSET directly.

9272:0a0998c4d4b6

synkey (frommap, fromchar, tomap, tochar)
     struct Lisp_Vector *frommap, *tomap;
     int fromchar, tochar;
{
  Lisp_Object v, c;
  XSET (v, Lisp_Vector, tomap);
  XFASTINT (c) = tochar;
  frommap->contents[fromchar] = Fcons (v, c);
}
#endif /* 0 */

then we display only bindings that start with that prefix.")
  (prefix)
     Lisp_Object prefix;
{
  register Lisp_Object thisbuf;
  XSET (thisbuf, Lisp_Buffer, current_buffer);
  internal_with_output_to_temp_buffer ("*Help*",
				       describe_buffer_bindings,
				       Fcons (thisbuf, prefix));
  return Qnil;
}

  Findent_to (make_number (16), make_number (1));

  if (SYMBOLP (definition))
    {
      XSET (tem1, Lisp_String, XSYMBOL (definition)->name);
      insert1 (tem1);
      insert_string ("\n");
    }
  else if (STRINGP (definition))
    insert_string ("Keyboard Macro\n");

9273:129621997564

synkey (frommap, fromchar, tomap, tochar)
     struct Lisp_Vector *frommap, *tomap;
     int fromchar, tochar;
{
  Lisp_Object v, c;
  XSETVECTOR (v, tomap);
  XFASTINT (c) = tochar;
  frommap->contents[fromchar] = Fcons (v, c);
}
#endif /* 0 */

then we display only bindings that start with that prefix.")
  (prefix)
     Lisp_Object prefix;
{
  register Lisp_Object thisbuf;
  XSETBUFFER (thisbuf, current_buffer);
  internal_with_output_to_temp_buffer ("*Help*",
				       describe_buffer_bindings,
				       Fcons (thisbuf, prefix));
  return Qnil;
}

  Findent_to (make_number (16), make_number (1));

  if (SYMBOLP (definition))
    {
      XSETSTRING (tem1, XSYMBOL (definition)->name);
      insert1 (tem1);
      insert_string ("\n");
    }
  else if (STRINGP (definition))
    insert_string ("Keyboard Macro\n");