comparison src/keymap.c @ 4023:5e4f918d5d44

(describe_map_tree): When inserting TITLE, mention PREFIX. Insert newline at end, if inserted anything else. (describe_buffer_bindings): Corresponding changes. For minor mode maps, build up a title string, then let describe_map_tree insert it.

4022:a3d3d7eef5ce

    shadow = Qnil;

    /* Print the minor mode maps.  */
    for (i = 0; i < nmaps; i++)
      {
	if (XTYPE (modes[i]) == Lisp_Symbol)
	  {
	    insert_char ('`');
	    insert_string (XSYMBOL (modes[i])->name->data);
	    insert_char ('\'');
	  }
	else
	  insert_string ("Strangely Named");
	insert_string (" Minor Mode Bindings:\n");
	describe_map_tree (maps[i], 0, shadow, prefix, 0);
	shadow = Fcons (maps[i], shadow);
	insert_char ('\n');
      }
  }

  /* Print the (major mode) local map.  */
  start1 = XBUFFER (descbuf)->keymap;
  if (!NILP (start1))
    {
      describe_map_tree (start1, 0, shadow, prefix,
			 "Major Mode Bindings:\n");
      shadow = Fcons (start1, shadow);
      insert_string ("\n");
    }

  describe_map_tree (current_global_map, 0, shadow, prefix,
		     "Global Bindings:\n");

  Fset_buffer (descbuf);
  return Qnil;
}

   If PARTIAL is nonzero, omit certain "uninteresting" commands
    (such as `undefined').
   If SHADOW is non-nil, it is a list of maps;
    don't mention keys which would be shadowed by any of them.
   PREFIX, if non-nil, says mention only keys that start with PREFIX.
   TITLE, if not 0, is a string to insert at the beginning.  */

void
describe_map_tree (startmap, partial, shadow, prefix, title)
     Lisp_Object startmap, shadow, prefix;
     int partial;
     char *title;
{
  Lisp_Object maps;
  struct gcpro gcpro1;
  char *key_heading
    = "\
key             binding\n\
---             -------\n";

  GCPRO1 (maps);

  if (!NILP (maps))
    {
      if (title)
	insert_string (title);
      insert_string (key_heading);
    }

  for (; !NILP (maps); maps = Fcdr (maps))
    {
      register Lisp_Object elt, prefix, sub_shadows, tail;

      describe_map (Fcdr (elt), Fcar (elt), partial, sub_shadows);

    skip: ;
    }

  UNGCPRO;
}

static void

4023:5e4f918d5d44

    shadow = Qnil;

    /* Print the minor mode maps.  */
    for (i = 0; i < nmaps; i++)
      {
	/* Tht title for a minor mode keymap
	   is constructed at run time.
	   We let describe_map_tree do the actual insertion
	   because it takes care of other features when doing so.  */
	char *title = (char *) alloca (40 + XSYMBOL (modes[i])->name->size);
	char *p = title;

	if (XTYPE (modes[i]) == Lisp_Symbol)
	  {
	    *p++ = '`';
	    bcopy (XSYMBOL (modes[i])->name->data, p,
		   XSYMBOL (modes[i])->name->size);
	    p += XSYMBOL (modes[i])->name->size;
	    *p++ = '\'';
	  }
	else
	  {
	    bcopy ("Strangely Named", p, sizeof ("Strangely Named"));
	    p += sizeof ("Strangely Named");
	  }
	bcopy (" Minor Mode Bindings", p, sizeof (" Minor Mode Bindings"));
	p += sizeof (" Minor Mode Bindings");
	*p = 0;

	describe_map_tree (maps[i], 0, shadow, prefix, title);
	shadow = Fcons (maps[i], shadow);
      }
  }

  /* Print the (major mode) local map.  */
  start1 = XBUFFER (descbuf)->keymap;
  if (!NILP (start1))
    {
      describe_map_tree (start1, 0, shadow, prefix,
			 "Major Mode Bindings");
      shadow = Fcons (start1, shadow);
    }

  describe_map_tree (current_global_map, 0, shadow, prefix,
		     "Global Bindings");

  Fset_buffer (descbuf);
  return Qnil;
}

   If PARTIAL is nonzero, omit certain "uninteresting" commands
    (such as `undefined').
   If SHADOW is non-nil, it is a list of maps;
    don't mention keys which would be shadowed by any of them.
   PREFIX, if non-nil, says mention only keys that start with PREFIX.
   TITLE, if not 0, is a string to insert at the beginning.
   TITLE should not end with a colon or a newline; we supply that.  */

void
describe_map_tree (startmap, partial, shadow, prefix, title)
     Lisp_Object startmap, shadow, prefix;
     int partial;
     char *title;
{
  Lisp_Object maps;
  struct gcpro gcpro1;
  int something = 0;
  char *key_heading
    = "\
key             binding\n\
---             -------\n";

  GCPRO1 (maps);

  if (!NILP (maps))
    {
      if (title)
	{
	  insert_string (title);
	  if (!NILP (prefix))
	    {
	      insert_string (" Starting With ");
	      insert1 (Fkey_description (prefix));
	    }
	  insert_string (":\n");
	}
      insert_string (key_heading);
      something = 1;
    }

  for (; !NILP (maps); maps = Fcdr (maps))
    {
      register Lisp_Object elt, prefix, sub_shadows, tail;

      describe_map (Fcdr (elt), Fcar (elt), partial, sub_shadows);

    skip: ;
    }

  if (something)
    insert_string ("\n");

  UNGCPRO;
}

static void