diff options
author | 2015-03-04 13:17:02 +0000 | |
---|---|---|
committer | 2015-03-04 13:17:02 +0000 | |
commit | 4e0cdecdc3fa43dc07585ac05334bb6c9a3e622a (patch) | |
tree | 07c65e302e0dd41ff7c9a5fafb8bbd48435ee9b9 /coq/coq.el | |
parent | 3a11cf88c175ac38956f513c8fe465dc39bbc712 (diff) |
Fixed compilation issue with previous commit + CHANGE updates.
Diffstat (limited to 'coq/coq.el')
-rw-r--r-- | coq/coq.el | 43 |
1 files changed, 21 insertions, 22 deletions
@@ -2166,28 +2166,27 @@ Completion is on a quasi-exhaustive list of Coq tacticals." (define-key coq-response-mode-map [(control ?c)(control ?a)(control ?g)] 'proof-store-goals-win) (define-key coq-response-mode-map [(control ?c)(control ?a)?h] 'coq-PrintHint) -(eval-when-compile - (when coq-remap-mouse-1 - (define-key proof-mode-map [(control down-mouse-1)] 'coq-id-under-mouse-query) - (define-key proof-mode-map [(shift down-mouse-1)] 'coq-id-under-mouse-query) - (define-key proof-mode-map [(control mouse-1)] '(lambda () (interactive))) - (define-key proof-mode-map [(shift mouse-1)] '(lambda () (interactive))) - (define-key proof-mode-map [(control shift down-mouse-1)] 'coq-id-under-mouse-query) - (define-key proof-mode-map [(control shift mouse-1)] '(lambda () (interactive))) - - (define-key proof-response-mode-map [(control down-mouse-1)] 'coq-id-under-mouse-query) - (define-key proof-response-mode-map [(shift down-mouse-1)] 'coq-id-under-mouse-query) - (define-key proof-response-mode-map [(control mouse-1)] '(lambda () (interactive))) - (define-key proof-response-mode-map [(shift mouse-1)] '(lambda () (interactive))) - (define-key proof-response-mode-map [(control shift down-mouse-1)] 'coq-id-under-mouse-query) - (define-key proof-response-mode-map [(control shift mouse-1)] '(lambda () (interactive))) - - (define-key proof-goals-mode-map [(control down-mouse-1)] 'coq-id-under-mouse-query) - (define-key proof-goals-mode-map [(shift down-mouse-1)] 'coq-id-under-mouse-query) - (define-key proof-goals-mode-map [(control mouse-1)] '(lambda () (interactive))) - (define-key proof-goals-mode-map [(shift mouse-1)] '(lambda () (interactive))) - (define-key proof-goals-mode-map [(control shift down-mouse-1)] 'coq-id-under-mouse-query) - (define-key proof-goals-mode-map [(control shift mouse-1)] '(lambda () (interactive))))) +(when coq-remap-mouse-1 + (define-key proof-mode-map [(control down-mouse-1)] 'coq-id-under-mouse-query) + (define-key proof-mode-map [(shift down-mouse-1)] 'coq-id-under-mouse-query) + (define-key proof-mode-map [(control mouse-1)] '(lambda () (interactive))) + (define-key proof-mode-map [(shift mouse-1)] '(lambda () (interactive))) + (define-key proof-mode-map [(control shift down-mouse-1)] 'coq-id-under-mouse-query) + (define-key proof-mode-map [(control shift mouse-1)] '(lambda () (interactive))) + + (define-key proof-response-mode-map [(control down-mouse-1)] 'coq-id-under-mouse-query) + (define-key proof-response-mode-map [(shift down-mouse-1)] 'coq-id-under-mouse-query) + (define-key proof-response-mode-map [(control mouse-1)] '(lambda () (interactive))) + (define-key proof-response-mode-map [(shift mouse-1)] '(lambda () (interactive))) + (define-key proof-response-mode-map [(control shift down-mouse-1)] 'coq-id-under-mouse-query) + (define-key proof-response-mode-map [(control shift mouse-1)] '(lambda () (interactive))) + + (define-key proof-goals-mode-map [(control down-mouse-1)] 'coq-id-under-mouse-query) + (define-key proof-goals-mode-map [(shift down-mouse-1)] 'coq-id-under-mouse-query) + (define-key proof-goals-mode-map [(control mouse-1)] '(lambda () (interactive))) + (define-key proof-goals-mode-map [(shift mouse-1)] '(lambda () (interactive))) + (define-key proof-goals-mode-map [(control shift down-mouse-1)] 'coq-id-under-mouse-query) + (define-key proof-goals-mode-map [(control shift mouse-1)] '(lambda () (interactive)))) ;;;;;;;;;;;;;;;;;;;;;;;; ;; error handling |