;ELC ;;; Compiled by aatharuv@cutter-john.mit.edu on Sun Jan 5 18:15:53 2003 ;;; from file /afs/sipb.mit.edu/contrib/emacs/packages/w3-4.0pre.47/lisp/w3-xemac.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-xemac.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\300\305!\210\300\306!\207" [require w3-imap images w3-widget w3-menu w3-forms w3-script] 2) #@52 Function to message the url under the mouse cursor (defalias 'w3-mouse-handler #[(e) "p\306!\232\205A\307!\310!\311 =\312\n\205@ \205@\313 !\205@\f\203/ \203/\314 !\210\315 \316\"\317 \236\205@\320\317 \236A!+\207" [e pt good mouse-events inhibit-help-echo w3-track-mouse event-buffer event-point event-window selected-window nil number-or-marker-p widget-echo-help w3-script-find-event-handlers mouse onmouseover w3-script-evaluate-form] 3 (#$ . 803) "e"]) #@42 Set up routine for XEmacs 19.12 or later (defalias 'w3-setup-version-specifics #[nil "\304\305!\203 \306 \210\307 \210\304\310!\203)\304\311!\204)\312\300!\211\203(\313\314\315 AB\"\210)\n\316U\2035 \317U\204A\n\320U\205F \321U\205F\322\323M\210\322\207" [current-menubar w3-menu-help-menu emacs-major-version emacs-minor-version featurep toolbar w3-toolbar-make-buttons image-register-netpbm-utilities menubar infodock default-value add-submenu ("Help") "WWW" 20 0 19 14 text-prop-extent-paste-function #[(ext from to) "\305\306\307#\307\211\204\310\311!\210\305\n\307#\312 \f\n \307%\210*\307\207" [ext val prop from to extent-property text-prop nil error "Internal error: no text-prop" put-text-property] 7]] 5 (#$ . 1281)]) #@42 Store string STR into the clipboard in X (defalias 'w3-store-in-clipboard #[(str) "\302\303!\203\n\303!\207\304 \211\305=\203\306!\202& \307=\203%\310!\202&\311)\207" [str #1=#:G80000 fboundp own-selection device-type x x-own-selection mswindows mswindows-own-selection nil] 3 (#$ . 2031)]) (defalias 'w3-mode-motion-hook #[(e) "\306!\211\205 \307! \205\310! \205\311 \304\"\211\205$\312\f!\f\205-\313\f\314\"\f\f\2057\313\f\315\" \203J\316\317\n \" \320#\202X\f\203X\321\322\n $\205b\323\324\".\207" [e glyph x y widget usemap event-glyph event-glyph-x-pixel event-glyph-y-pixel glyph-property w3-image-widget-usemap widget-get ismap href w3-point-in-map vector t format "%s?%d,%d" message "%s" echo] 6]) #@35 XEmacs specific stuff for w3-mode (defalias 'w3-mode-version-specifics #[nil "\306\307!\203\204\f\310\311\312 \211\313>\204\314 \210)\f\211\207" [w3-track-mouse inhibit-help-echo mode-motion-hook #1=#:G80001 w3-popup-menu mode-popup-menu featurep mouse nil w3-mouse-handler device-type (tty stream) w3-add-toolbar-to-buffer] 3 (#$ . 2788)]) (byte-code "\304\305\"\204\304\306\"\203\307\310\311\"\210\304\312\"\203\216\313\314!\210\315\316\317\320\321$\210\322\316\321\"\210\315\323\324\320\321$\210\322\323\321\"\210\315\325\326\320\321$\210\322\325\321\"\210\327\330M\210\331\332M\210\333\334\335\"\210\333\336\337\"\210\302 B\340\302!\204`\341\342\343M\210\321\315\344\345\320\321$\210\322\344\321\"\210\315\346\347\320\321$\210\322\346\321\"\210\350\351M\210\315\352\353\320\321$\210\322\352\321\"\210\313\354!\210\355\356!\210\355\357!\207" [emacs-version current-load-list shell-command-switch widget-use-overlay-change string-match "19\\.1[3456]" "20\\.[0123]" mapc load ("wid-edit" "widget" "custom" "cus-edit" "cus-face" "cus-start" "cus-load") "19\\.13" require advice ad-add-advice add-text-properties (face-list nil t (advice lambda nil "Allow a list of faces (ignore all but first one)." (let ((faces (plist-get props 'face))) (if (listp faces) (plist-put props 'face (car faces)))))) before nil ad-activate set-extent-property (face-list nil t (advice lambda nil "Allow a list of faces (ignore all but first one)." (if (and (eq property 'face) (listp value)) (setq value (car value))))) insert-char (inherit-ignore nil t (advice lambda (char &optional count inherit buffer) "Accept and ignore a third arg INHERIT." (or (bufferp inherit) (setq inherit buffer)))) font-height #[(font) "\300\207" [1] 1] font-width #[(font) "\300\207" [1] 1] defalias get-char-property get-text-property extent-object extent-buffer boundp "-c" extent-list #[(&optional buffer from to) "\303\304\305 \n%\207" [buffer from to mapcar-extents identity nil] 6 "Return a list of all extents in BUFFER between FROM and TO \n(see mapcar-extents)."] add-hook (ignore nil t (advice lambda (hook function &optional append ignore) "Accept and ignore a fourth argument.")) remove-hook (ignore nil t (advice lambda (hook function &optional ignore) "Accept and ignore a third argument.")) valid-image-instantiator-format-p #[(format) "\301\302\303\304\305!P#\306\"\207" [format valid-instantiator-p vector :file "foo." symbol-name image] 7] make-sparse-keymap (ignore nil t (advice lambda (&optional name) "Accept and ignore an optional arg NAME.")) w3-toolbar provide w3-xemacs w3-xemac] 5)