;ELC ;;; compiled by kwzh@hal.gnu.ai.mit.edu on Thu Jun 8 20:41:36 1995 ;;; from file /gd/gnu/emacs/19.0/lisp/viper-mous.el ;;; emacs version 19.28.93.6. ;;; bytecomp version FSF 2.10 ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.28.90"))) (error "`viper-mous.el' was compiled for Emacs 19.29 or later")) (byte-code "!!\f B  Bć" [require viper-util boundp vip-frame-of-focus nil current-load-list selected-frame vip-current-frame-saved] 2) #@235 *Function that determines what constitutes a word for clicking events. Takes two parameters: a COUNT, indicating how many words to return, and CLICK-COUNT, telling whether this is the first click, a double-click, or a tripple-click. (defvar vip-surrounding-word-function (quote vip-surrounding-word) (#$ . -635)) #@86 *Time interval in millisecond within which successive clicks are considered related. (defconst vip-multiclick-timeout (byte-code "\n" [vip-xemacs-p 500 double-click-time] 1) (#$ . -955)) (byte-code "! B! B" [boundp vip-current-click-count 0 current-load-list vip-last-click-event-timestamp] 2) #@20 nil (buffer local) (defvar vip-mouse-click-search-noerror t (#$ . 1282)) (make-variable-buffer-local (quote vip-mouse-click-search-noerror)) #@20 nil (buffer local) (defvar vip-mouse-click-search-limit nil (#$ . 1429)) (byte-code "!!\f Bć" [make-variable-buffer-local vip-mouse-click-search-limit boundp vip-global-prefix-argument nil current-load-list] 2) (defalias 'vip-multiclick-p #[nil "\f ƥ\n\" \n#*?" [vip-multiclick-timeout t nodisp val vip-xemacs-p sit-for 1000.0 0] 4]) (put (quote vip-multiclick-p) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@585 Returns word surrounding point according to a heuristic. COUNT indicates how many regions to return. If CLICK-COUNT is 1, `word' is a word in Vi sense. If it is > 1, then `word' is a Word in Vi sense. If the character clicked on is a non-separator and is non-alphanumeric but is adjacent to an alphanumeric symbol, then it is considered alphanumeric for the purpose of this command. If this character has a matching character, such as `(' is a match for `)', then the matching character is also considered alphanumeric. For convenience, in Lisp modes, `-' is considered alphanumeric. (defalias 'vip-surrounding-word #[(count click-count) "\f\n \f  ! !)N !)!Xق!bƂ!l܂!vނ!!€!䂬!Ƃ&!Ƃg!!!!-!\"P $\n $ \nP\f\fQ \n3P 3%3\n#3\n#7V3<7VL?xn ![\nxn\f!ixn!`@ABV ?!ASAx `{." ["_a-zA-Z0-9" basic-alpha "[_a-zA-Z0-9]" basic-alpha-B vip-NONALPHASEP-B basic-nonalphasep-B "" end-modifiers start-modifiers nil vip-ALPHA vip-ALPHA-B vip-NONALPHA vip-NONALPHA-B vip-ALPHASEP vip-ALPHASEP-B vip-NONALPHASEP skip-flag one-char-word-func word-function-forw word-function-back word-beg looking-at vip-backward-char-carefully vip-forward-char-carefully "\\\\" "-" "[][]" "][" "[()]" ")(" "[{}]" "{}" "[<>]" "<>" "[`']" "`'" "\\^" vip-SEP-B char-to-string "C-C-" "^" string-match "lisp" symbol-name major-mode format "%s%s%s" "[%s%s%s]" "[" "]" vip-SEP "[%s%s%s%s]" "^%s%s" "[^%s%s]" click-count 1 vip-one-char-Word-p vip-end-of-Word vip-backward-Word vip-one-char-word-p vip-end-of-word vip-backward-word vip-NONSEP t count 0] 7 (#$ . 1886)]) #@130 Returns word surrounding the position of a mouse click. Click may be in another window. Current window and buffer isn't changed. (defalias 'vip-mouse-click-get-word #[(click &optional count click-count) " \n ! !!)  !!) \n *  3 ΋," ["" click vip-xemacs-p event-point posn-point event-start window-buffer vip-mouse-click-window click-buf click-pos click-word count 1 click-count ((byte-code " qb\n \f\"! " [click-pos click-buf vip-surrounding-word-function count click-count click-word error "Click must be over a window."] 3))] 5 (#$ . 3729)]) (defalias 'vip-mouse-click-frame #[(click) " \n ! !!)!" [window-frame click vip-xemacs-p event-window posn-window event-start] 4]) (put (quote vip-mouse-click-frame) (quote byte-optimizer) (quote byte-compile-inline-expand)) (defalias 'vip-mouse-click-window #[(click) "\n!\nA@)@)" [vip-xemacs-p event-window click event position] 3]) (put (quote vip-mouse-click-window) (quote byte-optimizer) (quote byte-compile-inline-expand)) (defalias 'vip-mouse-click-window-buffer #[(click) " \n ! A@)@))!" [window-buffer click vip-xemacs-p event-window event position] 4]) (put (quote vip-mouse-click-window-buffer) (quote byte-optimizer) (quote byte-compile-inline-expand)) (defalias 'vip-mouse-click-window-buffer-name #[(click) "    ! A@)@))!)!" [buffer-name click window-buffer vip-xemacs-p event-window event position] 5]) (put (quote vip-mouse-click-window-buffer-name) (quote byte-optimizer) (quote byte-compile-inline-expand)) (defalias 'vip-mouse-click-posn #[(click) "\n!\nA@)A@:\fA@@ \fA@)" [vip-xemacs-p event-point click event position] 3]) (put (quote vip-mouse-click-posn) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@318 Insert word clicked or double-clicked on. With prefix argument, N, insert that many words. This command must be bound to a mouse click. The double-click action of the same mouse button must not be bound (or it must be bound to the same function). See `vip-surrounding-word' for the definition of a word in this case. (defalias 'vip-mouse-click-insert-word #[(click arg) "!\n \n<\n@\n@ ĉ \n <\nͥ \"C\n #*[ ![\n!!Vm\n#c 9N:@9@N) !? !*" [vip-frame-of-focus select-frame arg 1 nil interrupting-event click-count vip-multiclick-timeout t nodisp val vip-xemacs-p sit-for 1000.0 0 vip-read-event vip-mouse-event-p last-input-event vip-global-prefix-argument vip-event-click-count click vip-mouse-click-get-word obj event-symbol-elements vip-set-unread-command-events] 5 (#$ . 5535) "e\nP"]) (defalias 'vip-mouse-event-p #[(event) "! 9 N! :! @9! @N)-!!\"" [event obj event-symbol-elements string-match "\\(mouse-\\|frame\\|screen\\|track\\)" prin1-to-string vip-event-key] 6]) (defalias 'vip-event-click-count #[(click) "\n! Z\fV\n!T\n8.8/)" [vip-xemacs-p event-timestamp click vip-last-click-event-timestamp vip-multiclick-timeout 0 vip-current-click-count event 2 1] 2]) #@367 Find the word clicked or double-clicked on. Word may be in another window. With prefix argument, N, search for N-th occurrence. This command must be bound to a mouse click. The double-click action of the same button must not be bound (or it must be bound to the same function). See `vip-surrounding-word' for the details on what constitutes a word for this command. (defalias 'vip-mouse-click-search-word #[(click arg) "!‰  \n &\nͥ \"-\n #*J !J!! # Vdj  !!p=  !\"#!%@ %B%\"V!鏈S+" [vip-frame-of-focus select-frame nil vip-s-string previous-search-string click-count click-word vip-multiclick-timeout t nodisp val vip-xemacs-p sit-for 1000.0 0 vip-read-event vip-mouse-event-p last-input-event arg vip-global-prefix-argument last-command this-command vip-event-click-count click vip-mouse-click-get-word 1 vip-deactivate-mark markerp vip-search-start-marker marker-buffer vip-mouse-click-search-word point-marker vip-local-search-start-marker vip-mouse-click-search-noerror vip-mouse-click-search-limit vip-re-search regexp-quote vip-search-history push-mark vip-forward-word (byte-code " \n #+!!b!)eb \n#ʔb \"X? ć" [search-forward click-word vip-mouse-click-search-limit vip-mouse-click-search-noerror nil markerp vip-local-search-start-marker marker-buffer vip-line-pos end 0 message "Searching for: %s" vip-s-string arg 1 vip-flash-search-pattern] 4) ((error (byte-code "!\n \f=p!#+\np!# !!C!CbЇ" [beep 1 click-word previous-search-string last-command vip-mouse-click-search-word message "`%s': String not found in %s" vip-s-string buffer-name "`%s': Last occurrence in %s. Back to beginning of search" arg sit-for 2 t vip-mouse-click-search-noerror nil vip-mouse-click-search-limit markerp vip-local-search-start-marker marker-buffer] 5)))] 5 (#$ . 6892) "e\nP"]) #@153 Catch the event of switching frame. Usually is bound to a 'down-mouse' event to work properly. See sample bindings in viper.el and in the Viper manual. (defalias 'vip-mouse-catch-frame-switch #[(event arg) "\n\f= \f" [nil vip-frame-of-focus arg prefix-arg last-command handle-switch-frame vip-current-frame-saved this-command] 2 (#$ . 8918) "e\nP"]) (defalias 'vip-remember-current-frame #[(frame) " " [handle-switch-frame last-command selected-frame vip-current-frame-saved] 2]) (byte-code "# >ǂ 'ʂ(\f3͂4?Ђ@ !?O\f!?!?^!?k \"v\"\f\"\"\"$\".!" [put vip-remember-current-frame byte-optimizer byte-compile-inline-expand vip-device-type (tty stream) vip-xemacs-p [(meta button1up)] [S-mouse-1] search-key [(meta button1)] [S-down-mouse-1] search-key-catch [(meta button2up)] [S-mouse-2] insert-key [(meta button2)] [S-down-mouse-2] insert-key-catch key-binding search-key-unbound insert-key-unbound global-set-key vip-mouse-click-search-word vip-mouse-click-insert-word vip-mouse-catch-frame-switch add-hook mouse-leave-frame-hook ad-add-advice handle-switch-frame (vip-frame-advice nil t (advice lambda nil "Remember the selected frame before the switch-frame event." (vip-remember-current-frame (selected-frame)))) before nil ad-activate-on provide viper-mous] 5)