;ELC ;;; Compiled by aatharuv@cutter-john.mit.edu on Sun Jan 5 18:15:03 2003 ;;; from file /afs/sipb.mit.edu/contrib/emacs/packages/w3-4.0pre.47/lisp/w3-emulate.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-emulate.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\301\302!\210\303\304\305#\210\303\306\307#\210\303\310\311#\210\303\312\313#\210\303\314\315#\210\303\316\317#\210\303\320\321#\210\303\322\323#\210\303\324\325#\210\303\326\327#\210\303\330\331#\210\303\332\333#\210\303\334\335#\210\303\336\337#\210\303\340\341#\210\303\342\343#\210\303\344\345#\210\303\346\347#\210\303\350\351#\210\303\352\353#\207" [w3-netscape-emulation-minor-mode-map require w3-vars define-key "\363" w3-save-as "\355" w3-mailto "\356" make-frame "\354" w3-fetch "\357" w3-open-local "\360" w3-print-this-url "\361" w3-quit "\346" w3-search-forward "\347" w3-search-again "\362" w3-reload-document "\351" w3-load-delayed-images "\341" w3-hotlist-add-document "\342" w3-show-hotlist "\350" w3-show-history-list [up] #[nil "\300\301!\207" [scroll-down 1] 2 nil nil] [down] #[nil "\300\301!\207" [scroll-up 1] 2 nil nil] [right] scroll-left [left] scroll-right [(meta left)] w3-history-backward [(meta right)] w3-history-forward] 4) (defalias 'turn-on-netscape-emulation #[nil "\300\301!\210\302\303!\207" [w3-lynx-emulation-minor-mode 0 w3-netscape-emulation-minor-mode 1] 2 nil nil]) #@51 Minor mode for emulating netscape key navigation. (defalias 'w3-netscape-emulation-minor-mode #[(&optional arg) "\204 ?\211\205\303\211\207\304U\203\303\211\207\303\305\211\207" [arg w3-netscape-emulation-minor-mode w3-lynx-emulation-minor-mode nil 0 t] 3 (#$ . 1791) "P"]) (defalias 'w3-skip-word #[nil "\300\301w\210\302\301w\207" ["^ \n " nil " "] 2]) (put 'w3-skip-word 'byte-optimizer 'byte-compile-inline-expand) (defalias 'turn-on-lynx-emulation #[nil "\300\301!\210\302\303!\207" [w3-netscape-emulation-minor-mode 0 w3-lynx-emulation-minor-mode 1] 2 nil nil]) #@47 Minor mode for emulating lynx key navigation. (defalias 'w3-lynx-emulation-minor-mode #[(&optional arg) "\204 ?\211\205\303\211\207\304U\203\303\211\207\305\303\211\207" [arg w3-lynx-emulation-minor-mode w3-netscape-emulation-minor-mode nil 0 t] 3 (#$ . 2380) "P"]) (byte-code "\301\302\303#\210\301\304\305#\210\301\306\307#\210\301\310\311#\210\301\312\313#\210\301\314\315#\210\301\316\315#\210\301\317\320#\210\301\321\322#\210\301\323\324#\210\301\325\315#\210\301\326\327#\210\301\330\331#\210\301\332\333#\210\301\334\333#\210\301\335\336#\210\301\337\340#\210\301\341\342#\210\301\343\344#\210\301\345\346#\210\301\347\333#\210\301\350\351#\210\301\352\353#\210\301\354\340#\210\301\355\333#\210\301\356\357#\210\301\360\361#\210\301\362\363#\210\301\364\365#\210\301\366\367#\210\301\370\371#\210\301\372\373#\210\301\374\375#\210\301\376\377#\210\301\201@\333#\210\301\201A\311#\210\301\201B\201C#\210\301\201D\201E#\210\301\201F\201E#\210\301\201G\307#\210\301\201H\201I#\210\301\201J\201K#\210\301\201L\201M#\210\301\201N\201O#\210\301\201P\333#\210\301\201Q\333#\210\301\201R\333#\210\301\201S\333#\210\301\201T\333#\210\301\201U\333#\210\301\201V\333#\210\301\201W\201X#\210\301\201Y\201Z#\210\301\201[\333#\210\301\201\\\201I#\210\301\201]\333#\210\301\201^\333#\207" [w3-lynx-emulation-minor-mode-map define-key [up] widget-backward [down] widget-forward [right] widget-button-press [left] w3-history-backward "+" w3-scroll-up "-" scroll-down "b" "" w3-start-of-document "" w3-end-of-document "" scroll-up "" "" #[nil "\300\301!\207" [scroll-up 2] 2 nil nil] "" #[nil "\300\301!\207" [scroll-down 2] 2 nil nil] ")" ignore "(" "#" w3-toggle-toolbar "?" w3-help "a" w3-hotlist-add-document "c" w3-mail-document-author "d" w3-download-url "e" "f" dired "g" w3-fetch "h" "i" "j" w3-use-hotlist "k" describe-mode "l" w3-complete-link "m" w3 "n" w3-search-again "o" w3-preferences-edit "p" w3-print-this-url "q" w3-quit "r" w3-hotlist-delete "t" "u" "/" w3-search-forward "v" w3-show-hotlist "V" "x" "z" keyboard-quit "=" w3-document-information "\\" w3-source-document "!" shell "'" "`" "*" "@" "[" "]" "\"" "" w3-reload-document "" w3-refresh-buffer "" "" "" " "] 4) (defalias 'w3-masquerade-stub #[(arg app version) "\204 \306\232\203\307\202\310\310U\203\306\n\211\207\f \211\207" [arg url-package-name w3-version-number url-package-version app version "Emacs-W3" 1 0] 2]) (defalias 'w3-lynx-masquerade-mode #[(&optional arg) "\301\302\303#\207" [arg w3-masquerade-stub "Lynx" "2.6"] 4 nil "P"]) (defalias 'turn-on-lynx-masquerade-mode #[nil "\300\301!\207" [w3-lynx-masquerade-mode 1] 2 nil nil]) (defalias 'turn-off-lynx-masquerade-mode #[nil "\300\301!\207" [w3-lynx-masquerade-mode 0] 2 nil nil]) (defalias 'w3-netscape-masquerade-mode #[(&optional arg) "\301\302\303#\207" [arg w3-masquerade-stub "Mozilla" "4.0"] 4 nil "P"]) (defalias 'turn-on-netscape-masquerade-mode #[nil "\300\301!\207" [w3-netscape-masquerade-mode 1] 2 nil nil]) (defalias 'turn-off-netscape-masquerade-mode #[nil "\300\301!\207" [w3-netscape-masquerade-mode 0] 2 nil nil]) (defalias 'w3-ie-masquerade-mode #[(&optional arg) "\301\302\303#\207" [arg w3-masquerade-stub "Internet_Explorer" "3.02"] 4 nil "P"]) (defalias 'turn-on-ie-masquerade-mode #[nil "\300\301!\207" [w3-ie-masquerade-mode 1] 2 nil nil]) (defalias 'turn-off-ie-masquerade-mode #[nil "\300\301!\207" [w3-ie-masquerade-mode 0] 2 nil nil]) (defalias 'w3-arena-masquerade-mode #[(&optional arg) "\301\302\303#\207" [arg w3-masquerade-stub "Arena" "0.9"] 4 nil "P"]) (defalias 'turn-on-arena-masquerade-mode #[nil "\300\301!\207" [w3-arena-masquerade-mode 1] 2 nil nil]) (defalias 'turn-off-arena-masquerade-mode #[nil "\300\301!\207" [w3-arena-masquerade-mode 0] 2 nil nil]) (provide 'w3-emulate)