From 4d57f56ce6ae656889beffb1f12d98a1fd6154fe Mon Sep 17 00:00:00 2001
From: David Aspinall
Date: Fri, 1 Oct 2010 16:12:57 +0000
Subject: proof-universal-keys: Add binding for
 pg-identifier-under-mouse-query.

---
 generic/pg-vars.el | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'generic')

diff --git a/generic/pg-vars.el b/generic/pg-vars.el
index 7ce99d8c..36f7f6d6 100644
--- a/generic/pg-vars.el
+++ b/generic/pg-vars.el
@@ -268,7 +268,8 @@ Internal variable dynamically bound.")
     ([(control c) (control w)]  . pg-response-clear-displays)
     ([(control c) (control ?.)] . proof-goto-end-of-locked)
     ([(control c) (control f)]  . proof-find-theorems)
-    ([(control c) (control o)]  . proof-display-some-buffers))
+    ([(control c) (control o)]  . proof-display-some-buffers)
+    ([C-M-mouse-1]		. pg-identifier-under-mouse-query)) ; holes overrides this
 "List of key bindings made for all proof general buffers.
 Elements of the list are tuples `(k . f)'
 where `k' is a key binding (vector) and `f' the designated function."
-- 
cgit v1.2.3