[nongnu] elpa/sweeprolog 4f1611fad5 3/5: ADDED: Menu for sweep commands

[ELPA Syncer]

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

    ADDED: Menu for sweep commands
---
 sweeprolog.el | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

diff --git a/sweeprolog.el b/sweeprolog.el
index 12583c44e0..0a6f6bb1b1 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