From 546ceb7e75baf7be2ab170781869a4deea1bfa9c Mon Sep 17 00:00:00 2001
From: Pierre Courtieu
Date: Sat, 4 Jun 2011 09:34:23 +0000
Subject: Cleaning some keyboard shortcuts, applying patch from Erik
 Martin-Dorel.

---
 coq/coq.el | 11 +++++------
 1 file changed, 5 insertions(+), 6 deletions(-)

diff --git a/coq/coq.el b/coq/coq.el
index 5daab334..12db171d 100644
--- a/coq/coq.el
+++ b/coq/coq.el
@@ -1899,25 +1899,24 @@ Completion is on a quasi-exhaustive list of Coq tacticals."
 (define-key coq-keymap [(control ?))] 'coq-end-Section)
 (define-key coq-keymap [(control ?s)] 'coq-Show)
 (define-key coq-keymap [(control ?t)] 'coq-insert-tactic)
-(define-key coq-keymap [(control ?T)] 'coq-insert-tactical)
-(define-key coq-keymap [(control ?r)] 'proof-store-response-win)
-(define-key coq-keymap [(control ?G)] 'proof-store-goals-win)
+(define-key coq-keymap [?t] 'coq-insert-tactical)
+(define-key coq-keymap [?r] 'proof-store-response-win)
+(define-key coq-keymap [?g] 'proof-store-goals-win)
 
-;(define-key coq-keymap [(control ?!)] 'coq-insert-solve-tactic)
 (define-key coq-keymap [?!] 'coq-insert-solve-tactic) ; will work in tty
 
 (define-key coq-keymap [(control ?\s)] 'coq-insert-term)
 (define-key coq-keymap [(control return)] 'coq-insert-command)
 
 
-;(define-key coq-keymap [(control ?)] 'coq-insert-requires)
+(define-key coq-keymap [(control ?r)] 'coq-insert-requires)
 (define-key coq-keymap [(control ?o)] 'coq-SearchIsos)
 
 (define-key coq-keymap [(control ?p)] 'coq-Print)
 (define-key coq-keymap [(control ?b)] 'coq-About)
 (define-key coq-keymap [(control ?a)] 'coq-SearchAbout)
 (define-key coq-keymap [(control ?c)] 'coq-Check)
-(define-key coq-keymap [(control ?H)] 'coq-PrintHint)
+(define-key coq-keymap [?h] 'coq-PrintHint)
 (define-key coq-keymap [(control ?l)] 'coq-LocateConstant)
 (define-key coq-keymap [(control ?n)] 'coq-LocateNotation)
 
-- 
cgit v1.2.3