Add level annotating to the Call menu

Via UnNetHack

diff --git a/src/do_name.c b/src/do_name.c
index bd1dc6f49654d7d0bbc1750a1190fb66fea9f72b..06d3054018682d6c9165cdb3b6a5fc01c9005546 100644 (file)
--- a/src/do_name.c
+++ b/src/do_name.c
@@ -596,6 +596,9 @@ docallcmd()
        any.a_char = 'd';       /* entry 'd' (or 'b'), group accelator 'd' */
        add_menu(win, NO_GLYPH, &any, 0, any.a_char, ATR_NONE,
                 "the type of an object on discoveries list", MENU_UNSELECTED);
+       any.a_char = 'e';
+       add_menu(win, NO_GLYPH, &any, 0, any.a_char, ATR_NONE,
+                "the current level", MENU_UNSELECTED);
 #if 0
        any.a_char = 'f';       /* entry 'e' (or 'c'), group accelator 'f' */
        add_menu(win, NO_GLYPH, &any, 0, any.a_char, ATR_NONE,
@@ -643,6 +646,9 @@ docallcmd()
        case 'd':       /* name a type of object on the discoveries list */
                rename_disco();
                break;
+       case 'e':       /* annotate level */
+               donamelevel();
+               break;
 #if 0
        case 'f':       /* name a type of object visible on the floor */
                /* [not implemented] */