From: Eshel Yaron <me@eshelyaron.com>
Date: Tue, 4 Oct 2022 14:32:17 +0000 (+0300)
Subject: ADDED: key and menu bindings for sweeprolog-list-top-levels
X-Git-Tag: v0.5.0~2
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4754971669160b7555b39d24b125fcf8469c95a2;p=sweep.git

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 8d4d373..eece22b 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)