Ticket #365: mouse-bindings.patch

File mouse-bindings.patch, 3.4 KB (added by Erik Martin-Dorel, 14 years ago)

Patch for generic/{proof-menu,pg-goals,pg-vars}.el

Line 
1Index: generic/proof-menu.el
2===================================================================
3RCS file: /disk/cvs/proofgen/ProofGeneral/generic/proof-menu.el,v
4retrieving revision 10.51
5diff -c -r10.51 proof-menu.el
6*** generic/proof-menu.el       21 Sep 2010 11:05:58 -0000      10.51
7--- generic/proof-menu.el       1 Oct 2010 22:40:15 -0000
8***************
9*** 123,129 ****
10    ;; C-c C-. is proof-goto-end-of-locked in universal-keys
11    (define-key map [(control c) (control return)] 'proof-goto-point)
12    (define-key map [(control c) ?v] 'pg-toggle-visibility)
13!   (define-key map [(control mouse-3)] 'proof-mouse-goto-point)
14    ;; NB: next binding overwrites comint-find-source-code.
15    (define-key map [(meta p)] 'pg-previous-matching-input-from-input)
16    (define-key map [(meta n)] 'pg-next-matching-input-from-input)
17--- 123,129 ----
18    ;; C-c C-. is proof-goto-end-of-locked in universal-keys
19    (define-key map [(control c) (control return)] 'proof-goto-point)
20    (define-key map [(control c) ?v] 'pg-toggle-visibility)
21!   (define-key map [(control meta mouse-3)] 'proof-mouse-goto-point)
22    ;; NB: next binding overwrites comint-find-source-code.
23    (define-key map [(meta p)] 'pg-previous-matching-input-from-input)
24    (define-key map [(meta n)] 'pg-next-matching-input-from-input)
25Index: generic/pg-goals.el
26===================================================================
27RCS file: /disk/cvs/proofgen/ProofGeneral/generic/pg-goals.el,v
28retrieving revision 10.6
29diff -c -r10.6 pg-goals.el
30*** generic/pg-goals.el 26 Aug 2010 23:39:20 -0000      10.6
31--- generic/pg-goals.el 1 Oct 2010 22:40:15 -0000
32***************
33*** 56,62 ****
34  (define-key proof-goals-mode-map [q] 'bury-buffer)
35  ;; TODO: use standard Emacs button behaviour here (cf Info mode)
36  (define-key proof-goals-mode-map [mouse-1] 'pg-goals-button-action)
37! (define-key proof-goals-mode-map [C-mouse-3]
38    'proof-undo-and-delete-last-successful-command)
39 
40 
41--- 56,62 ----
42  (define-key proof-goals-mode-map [q] 'bury-buffer)
43  ;; TODO: use standard Emacs button behaviour here (cf Info mode)
44  (define-key proof-goals-mode-map [mouse-1] 'pg-goals-button-action)
45! (define-key proof-goals-mode-map [C-M-mouse-3]
46    'proof-undo-and-delete-last-successful-command)
47 
48 
49Index: generic/pg-vars.el
50===================================================================
51RCS file: /disk/cvs/proofgen/ProofGeneral/generic/pg-vars.el,v
52retrieving revision 10.16
53diff -c -r10.16 pg-vars.el
54*** generic/pg-vars.el  1 Oct 2010 16:12:57 -0000       10.16
55--- generic/pg-vars.el  1 Oct 2010 22:40:15 -0000
56***************
57*** 269,275 ****
58      ([(control c) (control ?.)] . proof-goto-end-of-locked)
59      ([(control c) (control f)]  . proof-find-theorems)
60      ([(control c) (control o)]  . proof-display-some-buffers)
61!     ([C-M-mouse-1]            . pg-identifier-under-mouse-query)) ; holes overrides this
62  "List of key bindings made for all proof general buffers.
63  Elements of the list are tuples `(k . f)'
64  where `k' is a key binding (vector) and `f' the designated function."
65--- 269,275 ----
66      ([(control c) (control ?.)] . proof-goto-end-of-locked)
67      ([(control c) (control f)]  . proof-find-theorems)
68      ([(control c) (control o)]  . proof-display-some-buffers)
69!     ([(control shift mouse-1)]  . pg-identifier-under-mouse-query))
70  "List of key bindings made for all proof general buffers.
71  Elements of the list are tuples `(k . f)'
72  where `k' is a key binding (vector) and `f' the designated function."