comparison src/keymap.c @ 13245:2e0c4159e94b

(describe_map_tree): New arg always_title. Callers changed.

13244:23281af757c9

      insert ("\n", 1);
    }

  if (!NILP (Vkey_translation_map))
    describe_map_tree (Vkey_translation_map, 0, Qnil, prefix,
		       "Key translations", 0, 1);

  {
    int i, nmaps;
    Lisp_Object *modes, *maps;

	*p++ = '\'';
	bcopy (" Minor Mode Bindings", p, sizeof (" Minor Mode Bindings") - 1);
	p += sizeof (" Minor Mode Bindings") - 1;
	*p = 0;

	describe_map_tree (maps[i], 0, shadow, prefix, title, 0, 0);
	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", 0, 0);
      shadow = Fcons (start1, shadow);
    }

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

  /* Print the function-key-map translations under this prefix.  */
  if (!NILP (Vfunction_key_map))
    describe_map_tree (Vfunction_key_map, 0, Qnil, prefix,
		       "Function key map translations", 0, 1);

  call0 (intern ("help-mode"));
  Fset_buffer (descbuf);
  UNGCPRO;
  return Qnil;

   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.
   If NOMENU is not 0, then omit menu-bar commands.

   If TRANSL is nonzero, the definitions are actually key translations
   so print strings and vectors differently.  */

void
describe_map_tree (startmap, partial, shadow, prefix, title, nomenu, transl)
     Lisp_Object startmap, shadow, prefix;
     int partial;
     char *title;
     int nomenu;
     int transl;
{
  Lisp_Object maps, seen, sub_shadows;
  struct gcpro gcpro1, gcpro2, gcpro3;
  int something = 0;
  char *key_heading

		maps = Fdelq (elt, maps);
	    }
	}
    }

  if (!NILP (maps))
    {
      if (title)
	{
	  insert_string (title);
	  if (!NILP (prefix))

13245:2e0c4159e94b

      insert ("\n", 1);
    }

  if (!NILP (Vkey_translation_map))
    describe_map_tree (Vkey_translation_map, 0, Qnil, prefix,
		       "Key translations", 0, 1, 0);

  {
    int i, nmaps;
    Lisp_Object *modes, *maps;

	*p++ = '\'';
	bcopy (" Minor Mode Bindings", p, sizeof (" Minor Mode Bindings") - 1);
	p += sizeof (" Minor Mode Bindings") - 1;
	*p = 0;

	describe_map_tree (maps[i], 0, shadow, prefix, title, 0, 0, 0);
	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", 0, 0, 0);
      shadow = Fcons (start1, shadow);
    }

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

  /* Print the function-key-map translations under this prefix.  */
  if (!NILP (Vfunction_key_map))
    describe_map_tree (Vfunction_key_map, 0, Qnil, prefix,
		       "Function key map translations", 0, 1, 0);

  call0 (intern ("help-mode"));
  Fset_buffer (descbuf);
  UNGCPRO;
  return Qnil;

   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.
   If NOMENU is not 0, then omit menu-bar commands.

   If TRANSL is nonzero, the definitions are actually key translations
   so print strings and vectors differently.

   If ALWAYS_TITLE is nonzero, print the title even if there are no maps
   to look through.  */

void
describe_map_tree (startmap, partial, shadow, prefix, title, nomenu, transl,
		   always_title)
     Lisp_Object startmap, shadow, prefix;
     int partial;
     char *title;
     int nomenu;
     int transl;
     int always_title;
{
  Lisp_Object maps, seen, sub_shadows;
  struct gcpro gcpro1, gcpro2, gcpro3;
  int something = 0;
  char *key_heading

		maps = Fdelq (elt, maps);
	    }
	}
    }

  if (!NILP (maps) || always_title)
    {
      if (title)
	{
	  insert_string (title);
	  if (!NILP (prefix))