From 4f1611fad5411e22df143ea777fd447d329baaad Mon Sep 17 00:00:00 2001 From: Eshel Yaron Date: Fri, 30 Sep 2022 14:50:11 +0300 Subject: [PATCH] ADDED: Menu for sweep commands --- sweeprolog.el | 14 ++++++++++++++ 1 file changed, 14 insertions(+) diff --git a/sweeprolog.el b/sweeprolog.el index 12583c4..0a6f6bb 100644 --- a/sweeprolog.el +++ b/sweeprolog.el @@ -1634,6 +1634,20 @@ Interactively, a prefix arg means to prompt for BUFFER." map) "Keymap for `sweeprolog-mode'.") +(easy-menu-define sweeprolog-menu (list sweeprolog-mode-map + sweeprolog-top-level-mode-map) + "`sweep' menu." + '("Sweep" + [ "Set Prolog flag" sweeprolog-set-prolog-flag t ] + [ "Install Prolog package" sweeprolog-pack-install t ] + [ "Load Prolog buffer" sweeprolog-load-buffer t ] + [ "Find Prolog module" sweeprolog-find-module t ] + [ "Find Prolog predicate" sweeprolog-find-predicate t ] + [ "Open top-level" sweeprolog-top-level t ] + "--" + [ "Reset sweep" sweeprolog-restart t ] + [ "View sweep messages" sweeprolog-view-messages t ])) + (defun sweeprolog-token-boundaries (&optional pos) (let ((point (or pos (point)))) (save-excursion -- 2.39.2