ADDED: key and menu bindings for sweeprolog-list-top-levels

* sweeprolog.el:
- sweeprolog-prefix-map: bind sweeprolog-list-top-levels to T
- sweeprolog-menu: add menu entry for sweeprolog-list-top-levels

diff --git a/sweeprolog.el b/sweeprolog.el
index 8d4d373424726d247d5398738c899f59d2bf54a9..eece22b15e0be6cb854b55951c9cbe223b80aa0a 100644 (file)
--- a/sweeprolog.el
+++ b/sweeprolog.el
@@ -1632,6 +1632,7 @@ Interactively, a prefix arg means to prompt for BUFFER."
     (define-key map "F" #'sweeprolog-set-prolog-flag)
     (define-key map "P" #'sweeprolog-pack-install)
     (define-key map "R" #'sweeprolog-restart)
+    (define-key map "T" #'sweeprolog-list-top-levels)
     (define-key map "e" #'sweeprolog-view-messages)
     (define-key map "l" #'sweeprolog-load-buffer)
     (define-key map "m" #'sweeprolog-find-module)
@@ -1761,6 +1762,7 @@ Interactively, a prefix arg means to prompt for BUFFER."
            (sweeprolog-definition-at-point)) ]
     "--"
     [ "Reset sweep"            sweeprolog-restart         t ]
+    [ "Open Top-level Menu"    sweeprolog-list-top-levels t ]
     [ "View sweep messages"    sweeprolog-view-messages   t ]))
 
 (defun sweeprolog-token-boundaries (&optional pos)