From 328c43d1ff377c2031a5521b87031845f4b25d43 Mon Sep 17 00:00:00 2001
From: Pierre Courtieu
Date: Mon, 17 May 2010 14:31:46 +0000
Subject: Allow SearchAbout to deal with complex queries.

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

(limited to 'coq')

diff --git a/coq/coq.el b/coq/coq.el
index 61e86ce4..fca9579b 100644
--- a/coq/coq.el
+++ b/coq/coq.el
@@ -518,10 +518,10 @@ This is specific to `coq-mode'."
   (coq-ask-do "Search constant" "Search" nil))
 
 
-; only in ssreflect
-;(defun coq-Searchregexp ()
-;  (interactive)
-;  (coq-ask-do "Search regexp" "Search" nil 'coq-put-into-quotes))
+
+(defun coq-Searchregexp ()
+  (interactive)
+  (coq-ask-do "Search regexp (ex: \"eq_\" nat)" "SearchAbout" nil 'coq-put-into-brackets))
 
 
 (defun coq-SearchRewrite ()
@@ -530,7 +530,7 @@ This is specific to `coq-mode'."
 
 (defun coq-SearchAbout ()
   (interactive)
-  (coq-ask-do "Search About (ex: eq nat -bool)" "SearchAbout" nil 'coq-put-into-brackets))
+  (coq-ask-do "Search About (ex: \"eq_\" eq -bool)" "SearchAbout" nil 'coq-put-into-brackets))
 
 (defun coq-Print () "Ask for an ident and print the corresponding term."
   (interactive)
@@ -1246,11 +1246,6 @@ be asked to the user."
 
 ;(define-key coq-keymap [(control ?)] 'coq-insert-requires)
 (define-key coq-keymap [(control ?o)] 'coq-SearchIsos)
-; only for ssreflect??
-;(define-key coq-keymap [(control ?r)] 'coq-Searchregexp)
-
-; searchAbout is better?
-;(define-key coq-keymap [(control ?)] 'coq-SearchConstant)
 
 (define-key coq-keymap [(control ?p)] 'coq-Print)
 (define-key coq-keymap [(control ?b)] 'coq-About)
-- 
cgit v1.2.3