| blob | aaa8adb27454c835d54021552fbb8499dd12c8b2 |
1 ;;; viper-mous.el --- mouse support for Viper
3 ;; Copyright (C) 1994, 1995, 1996, 1997 Free Software Foundation, Inc.
5 ;; This file is part of GNU Emacs.
7 ;; GNU Emacs is free software; you can redistribute it and/or modify
8 ;; it under the terms of the GNU General Public License as published by
9 ;; the Free Software Foundation; either version 2, or (at your option)
10 ;; any later version.
12 ;; GNU Emacs is distributed in the hope that it will be useful,
13 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
14 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 ;; GNU General Public License for more details.
17 ;; You should have received a copy of the GNU General Public License
18 ;; along with GNU Emacs; see the file COPYING. If not, write to the
19 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
20 ;; Boston, MA 02111-1307, USA.
22 ;; Code
26 ;; compiler pacifier
35 ;; loading happens only in non-interactive compilation
36 ;; in order to spare non-viperized emacs from being viperized
44 )))
45 ;; end pacifier
51 "Support for Viper special mouse-bound commands"
55 \f
56 ;;; Variables
58 ;; Variable used for catching the switch-frame event.
59 ;; If non-nil, indicates that previous-frame should be the selected
60 ;; one. Used by viper-mouse-click-get-word. Not a user option.
63 ;; Frame that was selected before the switch-frame event.
67 "*Function that determines what constitutes a word for clicking events.
68 Takes two parameters: a COUNT, indicating how many words to return,
69 and CLICK-COUNT, telling whether this is the first click, a double-click,
70 or a tripple-click."
74 ;; time interval in millisecond within which successive clicks are
75 ;; considered related
78 mouse-track-multi-click-time
79 double-click-time)
81 "*Time interval in millisecond within which successive mouse clicks are
82 considered related."
86 ;; current event click count; XEmacs only
88 ;; time stamp of the last click event; XEmacs only
91 ;; Local variable used to toggle wraparound search on click.
94 ;; Local variable used to delimit search after wraparound.
97 ;; remembers prefix argument to pass along to commands invoked by second
98 ;; click.
99 ;; This is needed because in Emacs (not XEmacs), assigning to preix-arg
100 ;; causes Emacs to count the second click as if it was a single click
104 ;; same keys, but parsed
112 \f
113 ;;; Code
118 ;; Returns window where click occurs
124 win
127 ;; Returns window where click occurs
131 ;; Returns the buffer of the window where click occurs
135 ;; Returns the name of the buffer in the window where click occurs
139 ;; Returns position of a click
147 "Returns word surrounding point according to a heuristic.
148 COUNT indicates how many regions to return.
149 If CLICK-COUNT is 1, `word' is a word in Vi sense.
150 If CLICK-COUNT is 2,then `word' is a Word in Vi sense.
151 If the character clicked on is a non-separator and is non-alphanumeric but
152 is adjacent to an alphanumeric symbol, then it is considered alphanumeric
153 for the purpose of this command. If this character has a matching
154 character, such as `\(' is a match for `\)', then the matching character is
155 also considered alphanumeric.
156 For convenience, in Lisp modes, `-' is considered alphanumeric.
158 If CLICK-COUNT is 3 or more, returns the line clicked on with leading and
159 trailing space and tabs removed. In that case, the first argument, COUNT,
160 is ignored."
162 beg skip-flag result
163 word-beg)
189 )
190 ))
192 ;; Add `-' to alphanum, if it wasn't added and if we are in Lisp
221 ;; XEmacs doesn't have set-text-properties, but there buffer-substring
222 ;; doesn't return properties together with the string, so it's not needed.
225 result
226 ))
230 "Returns word surrounding the position of a mouse click.
231 Click may be in another window. Current window and buffer isn't changed.
232 On single or double click, returns the word as determined by
233 `viper-surrounding-word-function'."
251 click-word))))
255 "Insert word clicked or double-clicked on.
256 With prefix argument, N, insert that many words.
257 This command must be bound to a mouse click.
258 The double-click action of the same mouse button must not be bound
259 \(or it must be bound to the same function\).
260 See `viper-surrounding-word' for the definition of a word in this case."
271 ;; turn arg into a number
273 ;; prefix arg is a list when one hits C-u then command
284 ;; This trick checks if there is a pending mouse event if so, we
285 ;; use this latter event and discard the current mouse click If
286 ;; the next pending event is not a mouse event, we execute the
287 ;; current mouse event
293 ;; count this click for XEmacs
295 ;; uninterrupted wait or the interrupting event wasn't a mouse event
299 viper-global-prefix-argument nil))
305 )))))
307 ;; Arg is an event. Accepts symbols and numbers, too
313 ;; XEmacs has no double-click events. So, we must simulate.
314 ;; So, we have to simulate event-click-count.
320 ;; kind of semaphore for updating viper-current-click-count
324 viper-last-click-event-timestamp))
325 inhibit-quit)
336 viper-current-click-count
338 ))
342 "Find the word clicked or double-clicked on. Word may be in another window.
343 With prefix argument, N, search for N-th occurrence.
344 This command must be bound to a mouse click. The double-click action of the
345 same button must not be bound \(or it must be bound to the same function\).
346 See `viper-surrounding-word' for the details on what constitutes a word for
347 this command."
359 click-word click-count)
363 ;; This trick checks if there is a pending mouse event if so, we use
364 ;; this latter event and discard the current mouse click If the next
365 ;; pending event is not a mouse event, we execute the current mouse
366 ;; event
372 arg)
373 ;; remember command that was before the multiclick
374 this-command last-command)
375 ;; make sure we counted this event---needed for XEmacs only
377 ;; uninterrupted wait
383 viper-global-prefix-argument nil))
394 viper-local-search-start-marker viper-search-start-marker
395 viper-mouse-click-search-noerror t
396 viper-mouse-click-search-limit nil)
398 ;; make search string known to Viper
401 click-word))
405 ))
413 click-word viper-mouse-click-search-limit
414 viper-mouse-click-search-noerror))
427 viper-mouse-click-search-limit nil)))
434 )
441 "`%s': Last occurrence in %s. Back to beginning of search"
451 ))))
454 "Catch the event of switching frame.
455 Usually is bound to a `down-mouse' event to work properly. See sample
456 bindings in the Viper manual."
459 ;; pass prefix arg along to viper-mouse-click-search/insert-word
463 ;; make Emacs forget that it executed viper-mouse-catch-frame-switch
466 ;; Called just before switching frames. Saves the old selected frame.
467 ;; Sets last-command to handle-switch-frame (this is done automatically in
468 ;; Emacs.
469 ;; The semantics of switching frames is different in Emacs and XEmacs.
470 ;; In Emacs, if you select-frame A while mouse is over frame B and then
471 ;; start typing, input goes to frame B, which becomes selected.
472 ;; In XEmacs, input will go to frame A. This may be a bug in one of the
473 ;; Emacsen, but also may be a design decision.
474 ;; Also, in Emacs sending input to frame B generates handle-switch-frame
475 ;; event, while in XEmacs it doesn't.
476 ;; All this accounts for the difference in the behavior of
477 ;; viper-mouse-click-* commands when you click in a frame other than the one
478 ;; that was the last to receive input. In Emacs, focus will be in frame A
479 ;; until you do something other than viper-mouse-click-* command.
480 ;; In XEmacs, you have to manually select frame B (with the mouse click) in
481 ;; order to shift focus to frame B.
487 ;; The key is of the form (MODIFIER ... BUTTON-NUMBER)
488 ;; Converts into a valid mouse button spec for the appropriate version of
489 ;; Emacs. EVENT-TYPE is either `up' or `down'. Up returns button-up key; down
490 ;; returns button-down key.
493 button-spec meta-spec shift-spec control-spec key-spec)
495 ;; just return nil
496 ()
518 meta-spec
522 shift-spec
526 control-spec
535 control-spec meta-spec shift-spec button-spec)))
538 nil
540 control-spec meta-spec shift-spec button-spec)))))
541 )))
549 viper-mouse-down-search-key-parsed nil))
557 viper-mouse-down-insert-key-parsed nil))
559 ;; If FORCE, bind even if this mouse action is already bound to something else
563 viper-mouse-down-search-key-parsed
573 "%S already bound to a mouse event. Viper mouse-search feature disabled"
574 viper-mouse-up-search-key-parsed))
580 "%S already bound to a mouse event. Viper mouse-search feature disabled"
581 viper-mouse-down-search-key-parsed))
588 ;; If FORCE, bind even if this mouse action is already bound to something else
592 viper-mouse-down-insert-key-parsed
602 "%S already bound to a mouse event. Viper mouse-insert feature disabled"
603 viper-mouse-up-insert-key-parsed))
609 "%S already bound to a mouse event. Viper mouse-insert feature disabled"
610 viper-mouse-down-insert-key-parsed))
629 "*Key used to click-search in Viper.
630 This must be a list that specifies the mouse button and modifiers.
631 The supported modifiers are `meta', `shift', and `control'.
632 For instance, `(meta shift 1)' means that holding the meta and shift
633 keys down and clicking on a word with mouse button 1
634 will search for that word in the buffer that was current before the click.
635 This buffer may be different from the one where the click occurred."
645 "*Key used to click-insert in Viper.
646 Must be a list that specifies the mouse button and modifiers.
647 The supported modifiers are `meta', `shift', and `control'.
648 For instance, `(meta shift 2)' means that holding the meta and shift keys
649 down, and clicking on a word with mouse button 2, will insert that word
650 at the cursor in the buffer that was current just before the click.
651 This buffer may be different from the one where the click occurred."
662 ;;; Local Variables:
663 ;;; eval: (put 'viper-deflocalvar 'lisp-indent-hook 'defun)
664 ;;; End:
667 ;;; viper-mous.el ends here