[nongnu] elpa/sweeprolog 4576120f54 04/11: Bind C-c S-TAB to sweeprolog-backward-hole for symmetry

[ELPA Syncer]

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

    Bind C-c S-TAB to sweeprolog-backward-hole for symmetry
---
 sweeprolog.el | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/sweeprolog.el b/sweeprolog.el
index 3e95d9fa74..e329571d81 100644
--- a/sweeprolog.el
+++ b/sweeprolog.el
@@ -386,7 +386,10 @@ determinism specification, and the third is a summary 
line."
     (define-key map (kbd "C-c C-c") #'sweeprolog-analyze-buffer)
     (define-key map (kbd "C-c C-d") #'sweeprolog-document-predicate-at-point)
     (define-key map (kbd "C-c C-e") #'sweeprolog-export-predicate)
+    (define-key map (kbd "C-c TAB") #'sweeprolog-forward-hole)
     (define-key map (kbd "C-c C-i") #'sweeprolog-forward-hole)
+    (define-key map (kbd "C-c <backtab>") #'sweeprolog-backward-hole)
+    (define-key map (kbd "C-c C-S-i") #'sweeprolog-backward-hole)
     (define-key map (kbd "C-c C-l") #'sweeprolog-load-buffer)
     (define-key map (kbd "C-c C-m") #'sweeprolog-insert-term-with-holes)
     (define-key map (kbd "C-c C-o") #'sweeprolog-find-file-at-point)
@@ -408,9 +411,10 @@ determinism specification, and the third is a summary 
line."
 
 (defvar sweeprolog-forward-hole-repeat-map
   (let ((map (make-sparse-keymap)))
+    (define-key map (kbd "TAB") #'sweeprolog-forward-hole)
     (define-key map (kbd "C-i") #'sweeprolog-forward-hole)
-    (define-key map (kbd "C-n") #'sweeprolog-forward-hole)
-    (define-key map (kbd "C-p") #'sweeprolog-backward-hole)
+    (define-key map (kbd "<backtab>") #'sweeprolog-backward-hole)
+    (define-key map (kbd "C-S-i") #'sweeprolog-backward-hole)
     (define-key map (kbd "C-m") #'sweeprolog-insert-term-with-holes)
     map)
   "Repeat map for \\[sweeprolog-forward-hole].")