;ELC ;;; Compiled by aatharuv@cutter-john.mit.edu on Sun Jan 5 18:15:51 2003 ;;; from file /afs/sipb.mit.edu/contrib/emacs/packages/w3-4.0pre.47/lisp/w3-e19.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-e19.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\302\303!\210\302\304!\210\302\305!\210\301B\306\301!\204\307\310\301!\207" [current-load-list w3-e19-window-width require w3-forms font w3-script boundp nil make-variable-buffer-local] 2) (defalias 'w3-setup-version-specifics #[nil "\300\207" [nil] 1]) #@42 Store string STR in the system clipboard (defalias 'w3-store-in-clipboard #[(str) "\303\300!\203\203 \304\"\207\305 \211\306=\203\307 !\2027\n\310=\203*\311 !\2027\n\312=\2036\313 !\2027\314)\207" [interprogram-cut-function str #1=#:G93300 boundp t device-type x x-select-text pm pm-put-clipboard ns ns-store-pasteboard-internal nil] 4 (#$ . 913)]) (defalias 'w3-mode-version-specifics #[nil "\306\302!\210\307  \203 \310 \205\241\311\312\313\314\f\"!\315\310# @\310 A\fT\2036\316\"\210 \203@\317 \"\210ed\320\211\321\322\321%\321\211\205\237\323$\324%\210\324%\210\322\321%\211\204g\321.\f\207" [w3-e19-window-width w3-track-mouse track-mouse w3-display-background-properties w3-face-index back make-local-variable window-width t w3-make-face intern format "w3-style-face-%05d" "An Emacs-W3 face... don't edit by hand." font-set-face-foreground font-set-face-background face nil text-property-any next-single-property-change put-text-property inhibit-read-only fore object value markprop setprop end start next] 7]) #@52 Function to message the url under the mouse cursor (defalias 'w3-mouse-handler #[(e) "\211A@)\211A@:\203\nA@@\202\nA@)\211A@)\211@)\306 =\307\f\205M \205M\310 !\205M\311 !\210\312 \313\"\314 \236\205M\315\314 \236A!+\207" [e event position pt good mouse-events selected-window nil number-or-marker-p widget-echo-help w3-script-find-event-handlers mouse onmouseover w3-script-evaluate-form] 4 (#$ . 2040) "e"]) (defalias 'w3-window-size-change-function #[(frame) "\305!\306 \n=?\2056 \203\307 \306#\202\n\212\310 !q\210 \311=\2032\312 !\f=\2042\313 \210)\202*\207" [frame cur first major-mode w3-e19-window-width frame-first-window nil next-window window-buffer w3-mode window-width w3-refresh-buffer] 4]) (byte-code "\300\301!\210\300\302!\207" [provide w3-emacs19 w3-e19] 2)