;ELC   
;;; Compiled by aatharuv@cutter-john.mit.edu on Sun Jan  5 18:15:13 2003
;;; from file /afs/sipb.mit.edu/contrib/emacs/packages/w3-4.0pre.47/lisp/w3-mouse.el
;;; in Emacs version 21.1.1
;;; with bytecomp version 2.85
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.
(if (and (boundp 'emacs-version)
	 (< (aref emacs-version (1- (length emacs-version))) ?A)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19.29")))
    (error "`w3-mouse.el' was compiled for Emacs 19.29 or later"))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(require 'w3-vars)
#@120 Function suitable to being bound to a mouse key.  Follows the link under
the mouse click, opening it in another frame.
(defalias 'w3-follow-mouse-other-frame #[(e) "\301!\210\302 \207" [e mouse-set-point w3-follow-link-other-frame] 2 (#$ . 666) "e"])
#@40 Follow an inlined image from the mouse
(defalias 'w3-follow-inlined-image-mouse #[(e) "\301!\210\302 \207" [e mouse-set-point w3-follow-inlined-image] 2 (#$ . 924) "e"])
#@74 Follow an inlined image, regardless of whether it is a hyperlink or not.
(defalias 'w3-follow-inlined-image #[nil "\301`!\211\204\f \302\303!\210\304\305\"\211\203 \306@=\204  \302\303!\210\304\307\"\205- \310\304\307\"!)\207" [widget widget-at error "No inlined image at point." widget-get :parent image :src w3-fetch] 5 (#$ . 1101) nil])
(byte-code "\302B\306\302!\204, \307\310!\203 \311\202+ 	\203\" \307\312!\203\" \313\202+ 	\203* \311\202+ \314\303B\306\303!\204X \307\310!\203@ \311\202W 	\203N \307\312!\203N \315\202W 	\203V \311\202W \316\304B\306\304!\204\204 \307\310!\203l \311\202\203 	\203z \307\312!\203z \317\202\203 	\203\202 \311\202\203 \320\f\203\220 \321\322\f!\323#\210\n\203\235 \321\322\n!\324#\210\203\264 \321\322\325D!\326#\210\321\322!\326#\210	\204\316 \203\303 \321\327\330#\210\203\316 \321\331\323#\210\332\333!\207" [current-load-list w3-running-xemacs w3-mouse-button1 w3-mouse-button2 w3-mouse-button3 w3-mode-map boundp featurep infodock nil mouse button1 down-mouse-1 button2 down-mouse-2 button3 down-mouse-3 define-key vector w3-popup-menu w3-widget-button-click meta w3-follow-mouse-other-frame [mouse-movement] w3-mouse-handler [down-mouse-3] provide w3-mouse w3-netscape-emulation-minor-mode-map w3-track-mouse w3-popup-menu-on-mouse-3] 5)