1;;; viper-mous.el --- mouse support for Viper
2
3;; Copyright (C) 1994, 1995, 1996, 1997, 2001, 2002, 2003, 2004,
4;;   2005, 2006, 2007 Free Software Foundation, Inc.
5
6;; Author: Michael Kifer <kifer@cs.stonybrook.edu>
7
8;; This file is part of GNU Emacs.
9
10;; GNU Emacs is free software; you can redistribute it and/or modify
11;; it under the terms of the GNU General Public License as published by
12;; the Free Software Foundation; either version 2, or (at your option)
13;; any later version.
14
15;; GNU Emacs is distributed in the hope that it will be useful,
16;; but WITHOUT ANY WARRANTY; without even the implied warranty of
17;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
18;; GNU General Public License for more details.
19
20;; You should have received a copy of the GNU General Public License
21;; along with GNU Emacs; see the file COPYING.  If not, write to the
22;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
23;; Boston, MA 02110-1301, USA.
24
25;;; Commentary:
26
27;;; Code:
28
29(provide 'viper-mous)
30
31;; compiler pacifier
32(defvar double-click-time)
33(defvar mouse-track-multi-click-time)
34(defvar viper-search-start-marker)
35(defvar viper-local-search-start-marker)
36(defvar viper-search-history)
37(defvar viper-s-string)
38(defvar viper-re-search)
39
40;; loading happens only in non-interactive compilation
41;; in order to spare non-viperized emacs from being viperized
42(if noninteractive
43    (eval-when-compile
44      (let ((load-path (cons (expand-file-name ".") load-path)))
45	(or (featurep 'viper-util)
46	    (load "viper-util.el" nil nil 'nosuffix))
47	(or (featurep 'viper-cmd)
48	    (load "viper-cmd.el" nil nil 'nosuffix))
49	)))
50;; end pacifier
51
52(require 'viper-util)
53
54
55(defgroup viper-mouse nil
56  "Support for Viper special mouse-bound commands."
57  :prefix "viper-"
58  :group 'viper)
59
60
61;;; Variables
62
63;; Variable used for catching the switch-frame event.
64;; If non-nil, indicates that previous-frame should be the selected
65;; one.  Used by viper-mouse-click-get-word.  Not a user option.
66(defvar viper-frame-of-focus nil)
67
68;; Frame that was selected before the switch-frame event.
69(defvar viper-current-frame-saved (selected-frame))
70
71(defcustom viper-surrounding-word-function 'viper-surrounding-word
72  "*Function that determines what constitutes a word for clicking events.
73Takes two parameters: a COUNT, indicating how many words to return,
74and CLICK-COUNT, telling whether this is the first click, a double-click,
75or a tripple-click."
76  :type 'symbol
77  :group 'viper-mouse)
78
79;; time interval in millisecond within which successive clicks are
80;; considered related
81(defcustom viper-multiclick-timeout (if (viper-window-display-p)
82				      (if viper-xemacs-p
83					  mouse-track-multi-click-time
84					double-click-time)
85				    500)
86  "*Time interval in millisecond within which successive mouse clicks are
87considered related."
88  :type 'integer
89  :group 'viper-mouse)
90
91;; current event click count; XEmacs only
92(defvar viper-current-click-count 0)
93;; time stamp of the last click event; XEmacs only
94(defvar viper-last-click-event-timestamp 0)
95
96;; Local variable used to toggle wraparound search on click.
97(viper-deflocalvar  viper-mouse-click-search-noerror t)
98
99;; Local variable used to delimit search after wraparound.
100(viper-deflocalvar  viper-mouse-click-search-limit nil)
101
102;; remembers prefix argument to pass along to commands invoked by second
103;; click.
104;; This is needed because in Emacs (not XEmacs), assigning to preix-arg
105;; causes Emacs to count the second click as if it was a single click
106(defvar viper-global-prefix-argument nil)
107
108
109;; same keys, but parsed
110(defvar viper-mouse-up-search-key-parsed nil)
111(defvar viper-mouse-down-search-key-parsed nil)
112(defvar viper-mouse-up-insert-key-parsed nil)
113(defvar viper-mouse-down-insert-key-parsed nil)
114
115
116
117
118;;; Code
119
120(defsubst viper-multiclick-p ()
121  (not (viper-sit-for-short viper-multiclick-timeout t)))
122
123;; Returns window where click occurs
124(defun viper-mouse-click-window (click)
125  (let ((win (viper-cond-compile-for-xemacs-or-emacs
126	      (event-window click) ; xemacs
127	      (posn-window (event-start click)) ; emacs
128	      )))
129    (if (window-live-p win)
130	win
131      (error "Click was not over a live window"))))
132
133;; Returns window where click occurs
134(defsubst viper-mouse-click-frame (click)
135  (window-frame (viper-mouse-click-window click)))
136
137;; Returns the buffer of the window where click occurs
138(defsubst viper-mouse-click-window-buffer (click)
139  (window-buffer (viper-mouse-click-window click)))
140
141;; Returns the name of the buffer in the window where click occurs
142(defsubst viper-mouse-click-window-buffer-name (click)
143  (buffer-name (viper-mouse-click-window-buffer click)))
144
145;; Returns position of a click
146(defsubst viper-mouse-click-posn (click)
147  (viper-cond-compile-for-xemacs-or-emacs
148   (event-point click) ; xemacs
149   (posn-point (event-start click)) ; emacs
150   ))
151
152
153(defun viper-surrounding-word (count click-count)
154   "Returns word surrounding point according to a heuristic.
155COUNT indicates how many regions to return.
156If CLICK-COUNT is 1, `word' is a word in Vi sense.
157If CLICK-COUNT is 2,then `word' is a Word in Vi sense.
158If the character clicked on is a non-separator and is non-alphanumeric but
159is adjacent to an alphanumeric symbol, then it is considered alphanumeric
160for the purpose of this command.  If this character has a matching
161character, such as `\(' is a match for `\)', then the matching character is
162also considered alphanumeric.
163For convenience, in Lisp modes, `-' is considered alphanumeric.
164
165If CLICK-COUNT is 3 or more, returns the line clicked on with leading and
166trailing space and tabs removed.  In that case, the first argument, COUNT,
167is ignored."
168   (let ((modifiers "_")
169	 beg skip-flag result
170	 word-beg)
171     (if (> click-count 2)
172	 (save-excursion
173	   (beginning-of-line)
174	   (viper-skip-all-separators-forward 'within-line)
175	   (setq beg (point))
176	   (end-of-line)
177	   (setq result (buffer-substring beg (point))))
178
179       (if (and (not (viper-looking-at-alphasep))
180		(or (save-excursion (viper-backward-char-carefully)
181				    (viper-looking-at-alpha))
182		    (save-excursion (viper-forward-char-carefully)
183				    (viper-looking-at-alpha))))
184	   (setq modifiers
185		 (concat modifiers
186			 (cond ((looking-at "\\\\") "\\\\")
187			       ((looking-at "-") "C-C-")
188			       ((looking-at "[][]") "][")
189			       ((looking-at "[()]") ")(")
190			       ((looking-at "[{}]") "{}")
191			       ((looking-at "[<>]") "<>")
192			       ((looking-at "[`']") "`'")
193			       ((looking-at "\\^") "\\^")
194			       ((viper-looking-at-separator) "")
195			       (t (char-to-string (following-char))))
196			 )
197		 ))
198
199       ;; Add `-' to alphanum, if it wasn't added and if we are in Lisp
200       (or (looking-at "-")
201	   (not (string-match "lisp" (symbol-name major-mode)))
202	   (setq modifiers (concat modifiers "C-C-")))
203
204
205       (save-excursion
206	 (cond ((> click-count 1) (viper-skip-nonseparators 'backward))
207	       ((viper-looking-at-alpha modifiers)
208		(viper-skip-alpha-backward modifiers))
209	       ((not (viper-looking-at-alphasep modifiers))
210		(viper-skip-nonalphasep-backward))
211	       (t (if (> click-count 1)
212		      (viper-skip-nonseparators 'backward)
213		    (viper-skip-alpha-backward modifiers))))
214
215	 (setq word-beg (point))
216
217	 (setq skip-flag nil) ; don't move 1 char forw the first time
218	 (while (> count 0)
219	   (if skip-flag (viper-forward-char-carefully 1))
220	   (setq skip-flag t) ; now always move 1 char forward
221	   (if (> click-count 1)
222	       (viper-skip-nonseparators 'forward)
223	     (viper-skip-alpha-forward modifiers))
224	   (setq count (1- count)))
225
226	 (setq result (buffer-substring word-beg (point))))
227       ) ; if
228     ;; XEmacs doesn't have set-text-properties, but there buffer-substring
229     ;; doesn't return properties together with the string, so it's not needed.
230     (if viper-emacs-p
231	 (set-text-properties 0 (length result) nil result))
232     result
233     ))
234
235
236(defun viper-mouse-click-get-word (click count click-count)
237  "Returns word surrounding the position of a mouse click.
238Click may be in another window.  Current window and buffer isn't changed.
239On single or double click, returns the word as determined by
240`viper-surrounding-word-function'."
241
242  (let ((click-word "")
243	(click-pos (viper-mouse-click-posn click))
244	(click-buf (viper-mouse-click-window-buffer click)))
245    (or (natnump count) (setq count 1))
246    (or (natnump click-count) (setq click-count 1))
247
248    (save-excursion
249      (save-window-excursion
250	(if click-pos
251	    (progn
252	      (set-buffer click-buf)
253
254	      (goto-char click-pos)
255	      (setq click-word
256		    (funcall viper-surrounding-word-function count click-count)))
257	  (error "Click must be over a window"))
258	click-word))))
259
260
261(defun viper-mouse-click-insert-word (click arg)
262  "Insert word clicked or double-clicked on.
263With prefix argument, N, insert that many words.
264This command must be bound to a mouse click.
265The double-click action of the same mouse button must not be bound
266\(or it must be bound to the same function\).
267See `viper-surrounding-word' for the definition of a word in this case."
268  (interactive "e\nP")
269  (if viper-frame-of-focus	;; to handle clicks in another frame
270      (select-frame viper-frame-of-focus))
271  (if (save-excursion
272	(or (not (eq (key-binding viper-mouse-down-insert-key-parsed)
273		     'viper-mouse-catch-frame-switch))
274	    (not (eq (key-binding viper-mouse-up-insert-key-parsed)
275		     'viper-mouse-click-insert-word))
276	    (and viper-xemacs-p (not (event-over-text-area-p click)))))
277      () ; do nothing, if binding isn't right or not over text
278    ;; turn arg into a number
279    (cond ((integerp arg) nil)
280	  ;; prefix arg is a list when one hits C-u then command
281	  ((and (listp arg) (integerp (car arg)))
282	   (setq arg (car arg)))
283	  (t (setq arg 1)))
284
285    (if (not (eq (key-binding viper-mouse-down-insert-key-parsed)
286		 'viper-mouse-catch-frame-switch))
287	() ; do nothing
288      (let (click-count interrupting-event)
289	(if (and
290	     (viper-multiclick-p)
291	     ;; This trick checks if there is a pending mouse event if so, we
292	     ;; use this latter event and discard the current mouse click If
293	     ;; the next pending event is not a mouse event, we execute the
294	     ;; current mouse event
295	     (progn
296	       (setq interrupting-event (viper-read-event))
297	       (viper-mouse-event-p last-input-event)))
298	    (progn ; interrupted wait
299	      (setq viper-global-prefix-argument arg)
300	      ;; count this click for XEmacs
301	      (viper-event-click-count click))
302	  ;; uninterrupted wait or the interrupting event wasn't a mouse event
303	  (setq click-count (viper-event-click-count click))
304	  (if (> click-count 1)
305	      (setq arg viper-global-prefix-argument
306		    viper-global-prefix-argument nil))
307	  (insert (viper-mouse-click-get-word click arg click-count))
308	  (if (and interrupting-event
309		   (eventp interrupting-event)
310		   (not (viper-mouse-event-p interrupting-event)))
311	      (viper-set-unread-command-events interrupting-event))
312	  )))))
313
314;; Arg is an event.  Accepts symbols and numbers, too
315(defun viper-mouse-event-p (event)
316  (if (eventp event)
317      (string-match "\\(mouse-\\|frame\\|screen\\|track\\)"
318		    (prin1-to-string (viper-event-key event)))))
319
320;; XEmacs has no double-click events.  So, we must simulate.
321;; So, we have to simulate event-click-count.
322(defun viper-event-click-count (click)
323  (viper-cond-compile-for-xemacs-or-emacs
324   (viper-event-click-count-xemacs click) ; xemacs
325   (event-click-count click) ; emacs
326   ))
327
328;; kind of semaphore for updating viper-current-click-count
329(defvar viper-counting-clicks-p nil)
330(viper-cond-compile-for-xemacs-or-emacs
331 (defun viper-event-click-count-xemacs (click)
332   (let ((time-delta (- (event-timestamp click)
333			viper-last-click-event-timestamp))
334	 inhibit-quit)
335     (while viper-counting-clicks-p
336       (ignore))
337     (setq viper-counting-clicks-p t)
338     (if (> time-delta viper-multiclick-timeout)
339	 (setq viper-current-click-count 0))
340     (discard-input)
341     (setq viper-current-click-count (1+ viper-current-click-count)
342	   viper-last-click-event-timestamp (event-timestamp click))
343     (setq viper-counting-clicks-p nil)
344     (if (viper-sit-for-short viper-multiclick-timeout t)
345	 viper-current-click-count
346       0)
347     ))
348  nil ; emacs
349 )
350
351
352(defun viper-mouse-click-search-word (click arg)
353   "Find the word clicked or double-clicked on.  Word may be in another window.
354With prefix argument, N, search for N-th occurrence.
355This command must be bound to a mouse click.  The double-click action of the
356same button must not be bound \(or it must be bound to the same function\).
357See `viper-surrounding-word' for the details on what constitutes a word for
358this command."
359  (interactive "e\nP")
360  (if viper-frame-of-focus	;; to handle clicks in another frame
361      (select-frame viper-frame-of-focus))
362  (if (save-excursion
363	(or (not (eq (key-binding viper-mouse-down-search-key-parsed)
364		     'viper-mouse-catch-frame-switch))
365	    (not (eq (key-binding viper-mouse-up-search-key-parsed)
366		     'viper-mouse-click-search-word))
367	    (and viper-xemacs-p (not (event-over-text-area-p click)))))
368      () ; do nothing, if binding isn't right or not over text
369    (let ((previous-search-string viper-s-string)
370	  click-word click-count)
371
372      (if (and
373	   (viper-multiclick-p)
374	   ;; This trick checks if there is a pending mouse event if so, we use
375	   ;; this latter event and discard the current mouse click If the next
376	   ;; pending event is not a mouse event, we execute the current mouse
377	   ;; event
378	   (progn
379	     (viper-read-event)
380	     (viper-mouse-event-p last-input-event)))
381	  (progn ; interrupted wait
382	    (setq viper-global-prefix-argument (or viper-global-prefix-argument
383						   arg)
384		  ;; remember command that was before the multiclick
385		  this-command last-command)
386	    ;; make sure we counted this event---needed for XEmacs only
387	    (viper-event-click-count click))
388	;; uninterrupted wait
389	(setq click-count (viper-event-click-count click))
390	(setq click-word (viper-mouse-click-get-word click nil click-count))
391
392	(if (> click-count 1)
393	    (setq arg viper-global-prefix-argument
394		  viper-global-prefix-argument nil))
395	(setq arg (or arg 1))
396
397	(viper-deactivate-mark)
398	(if (or (not (string= click-word viper-s-string))
399		(not (markerp viper-search-start-marker))
400		(not (equal (marker-buffer viper-search-start-marker)
401			    (current-buffer)))
402		(not (eq last-command 'viper-mouse-click-search-word)))
403	    (progn
404	      (setq  viper-search-start-marker (point-marker)
405		     viper-local-search-start-marker viper-search-start-marker
406		     viper-mouse-click-search-noerror t
407		     viper-mouse-click-search-limit nil)
408
409	      ;; make search string known to Viper
410	      (setq viper-s-string (if viper-re-search
411				       (regexp-quote click-word)
412				   click-word))
413	      (if (not (string= viper-s-string (car viper-search-history)))
414		  (setq viper-search-history
415			(cons viper-s-string viper-search-history)))
416	      ))
417
418	(push-mark nil t)
419	(while (> arg 0)
420	  (viper-forward-word 1)
421	  (condition-case nil
422	      (progn
423		(if (not (search-forward
424			  click-word viper-mouse-click-search-limit
425			  viper-mouse-click-search-noerror))
426		    (progn
427		      (setq viper-mouse-click-search-noerror nil)
428		      (setq viper-mouse-click-search-limit
429			    (save-excursion
430			      (if (and
431				   (markerp viper-local-search-start-marker)
432				   (marker-buffer viper-local-search-start-marker))
433				  (goto-char viper-local-search-start-marker))
434			      (viper-line-pos 'end)))
435
436		      (goto-char (point-min))
437		      (search-forward click-word
438				      viper-mouse-click-search-limit nil)))
439		(goto-char (match-beginning 0))
440		(message "Searching for: %s" viper-s-string)
441		(if (<= arg 1) ; found the right occurrence of the pattern
442		    (progn
443		      (viper-adjust-window)
444		      (viper-flash-search-pattern)))
445		)
446	    (error (beep 1)
447		   (if (or (not (string= click-word previous-search-string))
448			   (not (eq  last-command 'viper-mouse-click-search-word)))
449		       (message "`%s': String not found in %s"
450				viper-s-string (buffer-name (current-buffer)))
451		     (message
452		      "`%s': Last occurrence in %s.  Back to beginning of search"
453		      click-word (buffer-name (current-buffer)))
454		     (setq arg 1) ;; to terminate the loop
455		     (sit-for 2))
456		   (setq  viper-mouse-click-search-noerror t)
457		   (setq  viper-mouse-click-search-limit nil)
458		   (if (and (markerp viper-local-search-start-marker)
459			    (marker-buffer viper-local-search-start-marker))
460		       (goto-char viper-local-search-start-marker))))
461	  (setq arg (1- arg)))
462	))))
463
464(defun viper-mouse-catch-frame-switch (event arg)
465  "Catch the event of switching frame.
466Usually is bound to a `down-mouse' event to work properly.  See sample
467bindings in the Viper manual."
468  (interactive "e\nP")
469  (setq viper-frame-of-focus nil)
470  ;; pass prefix arg along to viper-mouse-click-search/insert-word
471  (setq prefix-arg arg)
472  (if (eq last-command 'handle-switch-frame)
473      (setq viper-frame-of-focus viper-current-frame-saved))
474  ;; make Emacs forget that it executed viper-mouse-catch-frame-switch
475  (setq this-command last-command))
476
477;; Called just before switching frames.  Saves the old selected frame.
478;; Sets last-command to handle-switch-frame (this is done automatically in
479;; Emacs.
480;; The semantics of switching frames is different in Emacs and XEmacs.
481;; In Emacs, if you select-frame A while mouse is over frame B and then
482;; start typing, input goes to frame B, which becomes selected.
483;; In XEmacs, input will go to frame A.  This may be a bug in one of the
484;; Emacsen, but also may be a design decision.
485;; Also, in Emacs sending input to frame B generates handle-switch-frame
486;; event, while in XEmacs it doesn't.
487;; All this accounts for the difference in the behavior of
488;; viper-mouse-click-* commands when you click in a frame other than the one
489;; that was the last to receive input.  In Emacs, focus will be in frame A
490;; until you do something other than viper-mouse-click-* command.
491;; In XEmacs, you have to manually select frame B (with the mouse click) in
492;; order to shift focus to frame B.
493(defsubst viper-remember-current-frame (frame)
494  (setq last-command 'handle-switch-frame
495	viper-current-frame-saved (selected-frame)))
496
497
498;; The key is of the form (MODIFIER ... BUTTON-NUMBER)
499;; Converts into a valid mouse button spec for the appropriate version of
500;; Emacs.  EVENT-TYPE is either `up' or `down'.  Up returns button-up key; down
501;; returns button-down key.
502(defun viper-parse-mouse-key (key-var event-type)
503  (let ((key (eval key-var))
504	button-spec meta-spec shift-spec control-spec key-spec)
505    (if (null key)
506	;; just return nil
507	()
508      (setq button-spec
509	    (cond ((memq 1 key)
510		   (if viper-emacs-p
511		       (if (eq 'up event-type)
512			   "mouse-1" "down-mouse-1")
513		     (if (eq 'up event-type)
514			 'button1up 'button1)))
515		  ((memq 2 key)
516		   (if viper-emacs-p
517		       (if (eq 'up event-type)
518			   "mouse-2" "down-mouse-2")
519		     (if (eq 'up event-type)
520			 'button2up 'button2)))
521		  ((memq 3 key)
522		   (if viper-emacs-p
523		       (if (eq 'up event-type)
524			   "mouse-3" "down-mouse-3")
525		     (if (eq 'up event-type)
526			 'button3up 'button3)))
527		  (t (error
528		      "%S: invalid button number, %S" key-var key)))
529	    meta-spec
530	    (if (memq 'meta key)
531		(if viper-emacs-p "M-" 'meta)
532	      (if viper-emacs-p "" nil))
533	    shift-spec
534	    (if (memq 'shift key)
535		(if viper-emacs-p "S-" 'shift)
536	      (if viper-emacs-p "" nil))
537	    control-spec
538	    (if (memq 'control key)
539		(if viper-emacs-p "C-" 'control)
540	      (if viper-emacs-p "" nil)))
541
542      (setq key-spec (if viper-emacs-p
543			 (vector
544			  (intern
545			   (concat
546			    control-spec meta-spec shift-spec button-spec)))
547		       (vector
548			(delq
549			 nil
550			 (list
551			  control-spec meta-spec shift-spec button-spec)))))
552      )))
553
554(defun viper-unbind-mouse-search-key ()
555  (if viper-mouse-up-search-key-parsed
556      (global-unset-key viper-mouse-up-search-key-parsed))
557  (if viper-mouse-down-search-key-parsed
558      (global-unset-key viper-mouse-down-search-key-parsed))
559  (setq viper-mouse-up-search-key-parsed nil
560	viper-mouse-down-search-key-parsed nil))
561
562(defun viper-unbind-mouse-insert-key ()
563  (if viper-mouse-up-insert-key-parsed
564      (global-unset-key viper-mouse-up-insert-key-parsed))
565  (if viper-mouse-down-insert-key-parsed
566      (global-unset-key viper-mouse-down-insert-key-parsed))
567  (setq viper-mouse-up-insert-key-parsed nil
568	viper-mouse-down-insert-key-parsed nil))
569
570;; If FORCE, bind even if this mouse action is already bound to something else
571(defun viper-bind-mouse-search-key (&optional force)
572  (setq viper-mouse-up-search-key-parsed
573	(viper-parse-mouse-key 'viper-mouse-search-key 'up)
574	viper-mouse-down-search-key-parsed
575	(viper-parse-mouse-key 'viper-mouse-search-key 'down))
576  (cond ((or (null viper-mouse-up-search-key-parsed)
577	     (null viper-mouse-down-search-key-parsed))
578	 nil) ; just quit
579	((and (null force)
580	      (key-binding viper-mouse-up-search-key-parsed)
581	      (not (eq (key-binding viper-mouse-up-search-key-parsed)
582		       'viper-mouse-click-search-word)))
583	 (message
584	  "%S already bound to a mouse event.  Viper mouse-search feature disabled"
585	  viper-mouse-up-search-key-parsed))
586	((and (null force)
587	      (key-binding viper-mouse-down-search-key-parsed)
588	      (not (eq (key-binding viper-mouse-down-search-key-parsed)
589		       'viper-mouse-catch-frame-switch)))
590	 (message
591	  "%S already bound to a mouse event.  Viper mouse-search feature disabled"
592	  viper-mouse-down-search-key-parsed))
593	(t
594	 (global-set-key viper-mouse-up-search-key-parsed
595			 'viper-mouse-click-search-word)
596	 (global-set-key viper-mouse-down-search-key-parsed
597			 'viper-mouse-catch-frame-switch))))
598
599;; If FORCE, bind even if this mouse action is already bound to something else
600(defun viper-bind-mouse-insert-key (&optional force)
601  (setq viper-mouse-up-insert-key-parsed
602	(viper-parse-mouse-key 'viper-mouse-insert-key 'up)
603	viper-mouse-down-insert-key-parsed
604	(viper-parse-mouse-key 'viper-mouse-insert-key 'down))
605  (cond ((or (null viper-mouse-up-insert-key-parsed)
606	     (null viper-mouse-down-insert-key-parsed))
607	 nil) ; just quit
608	((and (null force)
609	      (key-binding viper-mouse-up-insert-key-parsed)
610	      (not (eq (key-binding viper-mouse-up-insert-key-parsed)
611		       'viper-mouse-click-insert-word)))
612	 (message
613	  "%S already bound to a mouse event.  Viper mouse-insert feature disabled"
614	  viper-mouse-up-insert-key-parsed))
615	((and (null force)
616	      (key-binding viper-mouse-down-insert-key-parsed)
617	      (not (eq (key-binding viper-mouse-down-insert-key-parsed)
618		       'viper-mouse-catch-frame-switch)))
619	 (message
620	  "%S already bound to a mouse event.  Viper mouse-insert feature disabled"
621	  viper-mouse-down-insert-key-parsed))
622	(t
623	 (global-set-key viper-mouse-up-insert-key-parsed
624			 'viper-mouse-click-insert-word)
625	 (global-set-key viper-mouse-down-insert-key-parsed
626			 'viper-mouse-catch-frame-switch))))
627
628(defun viper-reset-mouse-search-key (symb val)
629  (viper-unbind-mouse-search-key)
630  (set symb val)
631  (viper-bind-mouse-search-key 'force))
632
633(defun viper-reset-mouse-insert-key (symb val)
634  (viper-unbind-mouse-insert-key)
635  (set symb val)
636  (viper-bind-mouse-insert-key 'force))
637
638
639(defcustom viper-mouse-search-key '(meta shift 1)
640  "*Key used to click-search in Viper.
641This must be a list that specifies the mouse button and modifiers.
642The supported modifiers are `meta', `shift', and `control'.
643For instance, `(meta shift 1)' means that holding the meta and shift
644keys down and clicking on a word with mouse button 1
645will search for that word in the buffer that was current before the click.
646This buffer may be different from the one where the click occurred."
647  :type '(list (set :inline t :tag "Modifiers" :format "%t: %v"
648		     (const :format "%v " meta)
649		     (const :format "%v " shift)
650		     (const control))
651	       (integer :tag "Button"))
652  :set 'viper-reset-mouse-search-key
653  :group 'viper-mouse)
654
655(defcustom viper-mouse-insert-key '(meta shift 2)
656  "*Key used to click-insert in Viper.
657Must be a list that specifies the mouse button and modifiers.
658The supported modifiers are `meta', `shift', and `control'.
659For instance, `(meta shift 2)' means that holding the meta and shift keys
660down, and clicking on a word with mouse button 2, will insert that word
661at the cursor in the buffer that was current just before the click.
662This buffer may be different from the one where the click occurred."
663  :type '(list (set :inline t :tag "Modifiers" :format "%t: %v"
664		     (const :format "%v " meta)
665		     (const :format "%v " shift)
666		     (const control))
667	       (integer :tag "Button"))
668  :set 'viper-reset-mouse-insert-key
669  :group 'viper-mouse)
670
671
672
673;;; Local Variables:
674;;; eval: (put 'viper-deflocalvar 'lisp-indent-hook 'defun)
675;;; End:
676
677
678;;; arch-tag: e56b2390-06c4-4dd1-96f5-c7876e2d8c2f
679;;; viper-mous.el ends here
680