ADDED: global keymap sweep-prefix-map, not bound by default

diff --git a/sweep.el b/sweep.el
index e5af56058badfd0188c9aaa2b4e7914ea1792f4f..4d53003ce83fc5ca93fc2d363270d9c08d4c8f6b 100644 (file)
--- a/sweep.el
+++ b/sweep.el
@@ -69,7 +69,7 @@
 (defvar sweep-prolog-server-port nil)
 
 ;;;###autoload
-(defun sweep-module-compile ()
+(defun sweep--compile-module ()
   "Compile sweep-module."
   (interactive)
   (let* ((sweep-directory
@@ -97,7 +97,7 @@
   (unless (require 'sweep-module nil t)
     (if (y-or-n-p "Sweep needs `sweep-module' to work.  Compile it now? ")
         (progn
-          (sweep-module-compile)
+          (sweep--compile-module)
           (require 'sweep-module))
       (error "Sweep will not work until `sweep-module' is compiled!"))))
 
@@ -579,7 +579,6 @@ module name, F is a functor name and N is its arity."
         ))))
 
 (defun sweep-colourise-query (buffer)
-  (interactive)
   (when (buffer-live-p buffer)
     (with-current-buffer buffer
       (let* ((beg (cdr comint-last-prompt))
@@ -644,6 +643,16 @@ module name, F is a functor name and N is its arity."
 (sweep--ensure-module)
 (when sweep-init-on-load (sweep-init))
 
+;;;###autoload
+(defvar sweep-prefix-map
+  (let ((map (make-sparse-keymap)))
+    (define-key map "m" #'sweep-find-module)
+    (define-key map "p" #'sweep-find-predicate)
+    (define-key map "t" #'sweep-top-level)
+    (define-key map "P" #'sweep-pack-install)
+    map)
+  "Keymap for `sweep' global commands.")
+
 ;;;; Testing:
 
 ;; (add-to-list 'load-path (file-name-directory (buffer-file-name)))