* (sweeprolog-top-level-mode-map): bind sweeprolog-forward-hole

diff --git a/sweeprolog.el b/sweeprolog.el
index d3d4b4e559bab89f874ce9849dbef6ad1827ff71..2fcabbfa98f831d7d8bbae1bb0f73248a5417aae 100644 (file)
--- a/sweeprolog.el
+++ b/sweeprolog.el
@@ -364,6 +364,7 @@ non-terminals)."
 (defvar sweeprolog-top-level-mode-map
   (let ((map (make-sparse-keymap)))
     (define-key map (kbd "C-c C-c") #'sweeprolog-top-level-signal-current)
+    (define-key map (kbd "C-c C-i") #'sweeprolog-forward-hole)
     map)
   "Keymap for `sweeprolog-top-level-mode'.")