From 4576120f547e68aa3faf2b684f171ed3ebb97575 Mon Sep 17 00:00:00 2001 From: Eshel Yaron Date: Sat, 14 Jan 2023 09:07:02 +0200 Subject: [PATCH] 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 3e95d9f..e329571 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 ") #'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 "") #'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].") -- 2.39.2