From 4754971669160b7555b39d24b125fcf8469c95a2 Mon Sep 17 00:00:00 2001 From: Eshel Yaron Date: Tue, 4 Oct 2022 17:32:17 +0300 Subject: [PATCH] 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 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) -- 2.39.5