[nongnu] elpa/sweeprolog 4754971669 09/12: ADDED: key and menu bindings for sweeprolog-list-top-levels

[ELPA Syncer]

branch: elpa/sweeprolog
commit 4754971669160b7555b39d24b125fcf8469c95a2
Author: Eshel Yaron <me@eshelyaron.com>
Commit: Eshel Yaron <me@eshelyaron.com>

    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
---
 sweeprolog.el | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/sweeprolog.el b/sweeprolog.el
index 8d4d373424..eece22b15e 100644
--- 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)