Rename describe-map-tree to help--describe-map-tree

This function should have been made internal in the first place.
* lisp/help.el (help--describe-map-tree): Rename from
'describe-map-tree'.  Keep old name as an obsolete alias, and update
all callers.

1 files changed, 12 insertions, 12 deletions

diff --git a/src/keymap.c b/src/keymap.c
index 1f863885003..d710bae02e0 100644
--- a/src/keymap.c
+++ b/src/keymap.c
@@ -2885,7 +2885,7 @@ You type        Translation\n\
     {
       Lisp_Object msg = build_unibyte_string ("Key translations");
       CALLN (Ffuncall,
-             Qdescribe_map_tree,
+             Qhelp__describe_map_tree,
              Vkey_translation_map, Qnil, Qnil, prefix,
              msg, nomenu, Qt, Qnil, Qnil, buffer);
     }
@@ -2899,7 +2899,7 @@ You type        Translation\n\
     {
       Lisp_Object msg = build_unibyte_string ("\f\nOverriding Bindings");
       CALLN (Ffuncall,
-             Qdescribe_map_tree,
+             Qhelp__describe_map_tree,
              start1, Qt, shadow, prefix,
              msg, nomenu, Qnil, Qnil, Qnil, buffer);
       shadow = Fcons (start1, shadow);
@@ -2912,7 +2912,7 @@ You type        Translation\n\
     {
       Lisp_Object msg = build_unibyte_string ("\f\nOverriding Bindings");
       CALLN (Ffuncall,
-             Qdescribe_map_tree,
+             Qhelp__describe_map_tree,
              start1, Qt, shadow, prefix,
              msg, nomenu, Qnil, Qnil, Qnil, buffer);
       shadow = Fcons (start1, shadow);
@@ -2935,7 +2935,7 @@ You type        Translation\n\
         {
           Lisp_Object msg = build_unibyte_string ("\f\n`keymap' Property Bindings");
           CALLN (Ffuncall,
-                 Qdescribe_map_tree,
+                 Qhelp__describe_map_tree,
                  start1, Qt, shadow, prefix,
                  msg, nomenu, Qnil, Qnil, Qnil, buffer);
           shadow = Fcons (start1, shadow);
@@ -2946,7 +2946,7 @@ You type        Translation\n\
         {
           /* The title for a minor mode keymap
              is constructed at run time.
-             We let describe-map-tree do the actual insertion
+             We let `help--describe-map-tree' do the actual insertion
              because it takes care of other features when doing so.  */
           char *title, *p;
 
@@ -2968,7 +2968,7 @@ You type        Translation\n\
 
           Lisp_Object msg = build_unibyte_string (title);
           CALLN (Ffuncall,
-                 Qdescribe_map_tree,
+                 Qhelp__describe_map_tree,
                  maps[i], Qt, shadow, prefix,
                  msg, nomenu, Qnil, Qnil, Qnil, buffer);
           shadow = Fcons (maps[i], shadow);
@@ -2986,7 +2986,7 @@ You type        Translation\n\
                        build_unibyte_string ("\f\n`%s' Major Mode Bindings"),
                        XBUFFER (buffer)->major_mode_);
               CALLN (Ffuncall,
-                     Qdescribe_map_tree,
+                     Qhelp__describe_map_tree,
                      start1, Qt, shadow, prefix,
                      msg, nomenu, Qnil, Qnil, Qnil, buffer);
             }
@@ -2994,7 +2994,7 @@ You type        Translation\n\
             {
               Lisp_Object msg = build_unibyte_string ("\f\n`local-map' Property Bindings");
               CALLN (Ffuncall,
-                     Qdescribe_map_tree,
+                     Qhelp__describe_map_tree,
                      start1, Qt, shadow, prefix,
                      msg, nomenu, Qnil, Qnil, Qnil, buffer);
             }
@@ -3005,7 +3005,7 @@ You type        Translation\n\
 
   Lisp_Object msg = build_unibyte_string ("\f\nGlobal Bindings");
   CALLN (Ffuncall,
-         Qdescribe_map_tree,
+         Qhelp__describe_map_tree,
          current_global_map, Qt, shadow, prefix,
          msg, nomenu, Qnil, Qt, Qnil, buffer);
 
@@ -3014,7 +3014,7 @@ You type        Translation\n\
     {
       Lisp_Object msg = build_unibyte_string ("\f\nFunction key map translations");
       CALLN (Ffuncall,
-             Qdescribe_map_tree,
+             Qhelp__describe_map_tree,
              KVAR (current_kboard, Vlocal_function_key_map), Qnil, Qnil, prefix,
              msg, nomenu, Qt, Qnil, Qnil, buffer);
     }
@@ -3024,7 +3024,7 @@ You type        Translation\n\
     {
       Lisp_Object msg = build_unibyte_string ("\f\nInput decoding map translations");
       CALLN (Ffuncall,
-             Qdescribe_map_tree,
+             Qhelp__describe_map_tree,
              KVAR (current_kboard, Vinput_decode_map), Qnil, Qnil, prefix,
              msg, nomenu, Qt, Qnil, Qnil, buffer);
     }
@@ -3341,7 +3341,7 @@ void
 syms_of_keymap (void)
 {
   DEFSYM (Qkeymap, "keymap");
-  DEFSYM (Qdescribe_map_tree, "describe-map-tree");
+  DEFSYM (Qhelp__describe_map_tree, "help--describe-map-tree");
 
   DEFSYM (Qkeymap_canonicalize, "keymap-canonicalize");