;ELC ;;; compiled by jwz@thalidomide on Sat May 14 17:08:21 1994 ;;; from file /th/jwz/emacs19/lisp/w3/w3-emacs19.el ;;; emacs version 19.10 Lucid (beta23). ;;; bytecomp version 2.24; 26-Apr-94. ;;; 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"))) (error "This file was compiled for Emacs 19.")) (byte-code "#\"OPB  C\" C)ʇ" [put w3-emacs19 use-overlays t w3-rassoc w3-file-handler file-name-handler-alist "^/" w3-nonrelative-link 1 nil new-handler append] 4) (fset 'w3-file-handler #[(operation &rest args) "N\n@O\nA P\"\"͕SOQ # #)+" [operation w3-mode args 1 nil myargs url fn string-match w3-nonrelative-link "/[^/]" w3-match "://" 0 apply file-name-handler-alist] 5 "\ Function called from the file-name-handler-alist routines. OPERATION is what needs to be done ('file-exists-p, etc). args are the arguments that would have been passed to OPERATION."]) (byte-code "#############" [put insert-file-contents w3-mode w3-insert-file-contents directory-files w3-directory-files file-directory-p w3-file-directory-p file-writable-p w3-file-writable-p file-readable-p w3-file-exists file-executable-p null file-symlink-p file-exists-p copy-file w3-copy-file file-attributes w3-file-attributes file-name-all-completions w3-file-name-all-completions file-name-completion w3-file-name-completion file-local-copy w3-file-local-copy] 4) (fset 'w3-emacs19-hack-vt100 #[nil "\"!!I!!I!!I!!I" [standard-display-table make-vector 261 nil 1 vector create-glyph "" 2 "" 3 "" 4] 5 "\ Hack 'faces' for ttys (vt100)"]) (byte-code "MMMM" [w3-emacs19-hack-vt102 w3-emacs19-hack-vt100 w3-emacs19-hack-vt200 w3-emacs19-hack-vt220 w3-emacs19-hack-vt320] 2) (fset 'w3-emacs19-hack-xterm #[nil "\"!!I!!I!!I!!I" [standard-display-table make-vector 261 nil 1 vector create-glyph "" 2 "" 3 "" 4] 5 "\ Hack 'faces' for ttys (xterm)"]) (fset 'w3-emacs19-hack-console #[nil "\"!!I!!I!!I!!I" [standard-display-table make-vector 261 nil 1 vector create-glyph "" 2 "" 3 "" 4] 5 "\ Hack 'faces' for ttys (linux-console)"]) (fset 'w3-emacs19-unhack-faces #[nil "\"" [standard-display-default 1 4] 3 "\ Remove faces hacks" nil]) (defvar w3-links-menu nil "\ Menu for w3-mode in emacs 19") (make-variable-buffer-local 'w3-links-menu) (defvar w3-options-menu '("Options" ["Delay Image Load" (setq w3-delay-image-loads (not w3-delay-image-loads)) nil] ["Flush Image Cache" (setq w3-graphics-list nil) t] ("Hypertext Gopher Mode" ["Turn On" (setq w3-use-hypertext-gopher t) t] ["Turn Off" (setq w3-use-hypertext-gopher nil) t]) ("Hypertext Dired Mode" ["Turn On" (setq w3-directory-format 'hypertext) t] ["Turn Off" (setq w3-directory-format 'dired) t]) ["Clear History" (setq w3-history-list nil) t]) "\ The options menu for w3") (fset 'w3-mouse-handler #[(e) "\n!! ! >A@A@ >A@ >A@ !!  8! A@КѪ A@!#  @!\"!-" [posn-point event-start e pt text-properties-at props w3 link w3form form w3graphic imag message w3-quotify-percents "Form entry (name=%s, type=%s)" 2 "" "text" "Inlined image (%s)"] 7 "\ Function to message the url under the mouse cursor" "@e"]) (fset 'w3-create-faces #[nil "=== !!!! !\n! ! ! !!\" ! \"\n!\n\" ! \"!\"!\" ! \" !? \"" [window-system x ns pm make-face w3-default-style w3-header-style w3-bold-style w3-italic-style w3-underline-style w3-node-style w3-address-style w3-tt-style w3-visited-node-style face-differs-from-default-p copy-face bold-italic bold italic default underline] 3 "\ Create faces, the emacs 19 way"]) (fset 'w3-zone-start #[(zone) " \" \" \"e \"e \"*" [get-text-property zone w3 w3form form link previous-single-property-change error "No zone contains %d!"] 5 "\ This is just a hack to get the beginning of a text-property region"]) (fset 'w3-zone-end #[(zone) " \" \" \"d \"d \"*" [get-text-property zone w3 w3form form link next-single-property-change error "No zone contains %d!"] 5 "\ This is just a hack to get the end of a text-property region"]) (fset 'w3-zone-eq #[(zone1 zone2) " !\n!U !\n!U" [w3-zone-start zone1 zone2 w3-zone-end] 3 "\ Are two zones equal?"]) (fset 'w3-fix-extent-endpoints #[nil "  @!Sf>\nT#\nSn Aa*" [w3-all-zones nil nd zones w3-zone-end (10 32 9) set-text-properties] 5 "\ Make sure no extents have whitespace/newlines at the end of them"]) (fset 'w3-delete-zone #[(zone) " ! ! ǯ#*" [w3-zone-start zone w3-zone-end nd st remove-text-properties w3 nil w3form face mouse-face] 11 "\ Remove a zone from a buffer. This is just a hack to remove some text properties."]) (fset 'w3-zone-data #[(zone) " \" \" \" \"  BBBB," [get-text-property zone w3 w3form w3graphic w3expandlist list grph form link nil] 7 "\ Return the data from a zone (fake text property area"]) (fset 'w3-only-links #[nil "e\n\"\n B\n\"n *" [nil result cur get-text-property w3 next-single-property-change] 4 "\ Get all the zones from a buffer. This is really just a list of positions that have a text-property set correctly."]) (fset 'w3-all-forms-zones #[nil "e\n\"\nT B\n\"m *" [nil result cur get-text-property w3form next-single-property-change] 4 "\ Get all the zones from a buffer. This is really just a list of positions that have a text-property set correctly."]) (fset 'w3-all-zones #[nil " " [w3-only-links w3-all-forms-zones] 2 "\ Get all the zones from a buffer. This is really just a list of positions that have a text-property set correctly."]) (fset 'w3-add-hotlist-menu #[nil "=  @@ @A@D# B Ak #*" [major-mode w3-mode nil w3-hotlist hot hot-menu vector w3-fetch t add-menu ("Navigate") "Hotlist..."] 5 "\ Add the hotlist menu to this buffer - used when it changes."]) (fset 'w3-find-specific-link #[(link) "e \"\n? \" bd\"^ Z+" [nil next-change found cur next-single-property-change w3-ident link get-text-property message "Found link %s"] 4 "\ Find LINK in the current document"]) (fset 'w3-link-at #[(pt) " \"" [get-text-property pt w3] 3 "\ Return the link(s) at point"]) (fset 'w3-forward-form-internal #[(&optional pt) "`\"Ī \" !)" [pt next-single-property-change w3form next nil get-text-property w3-forward-form-internal] 4 "\ Go forward 1 link"]) (fset 'w3-forward-link-internal #[(&optional pt) "`\"Ī \" !)" [pt next-single-property-change w3 next nil get-text-property w3-forward-link-internal] 4 "\ Go forward 1 link"]) (fset 'w3-forward-link #[(p) "US!  !d d^bw*" [p 1 w3-forward-link w3-forward-link-internal w3-forward-form-internal form link error "No more links." " \n" nil] 3 "\ Go forward 1 link." "P"]) (byte-code "MM" [w3-back-link-internal #[(&optional pt) "`\"`\"`\"S`\"??\"SŪ \" \"e) !)" [pt get-text-property w3 previous-single-property-change prev nil prev2 w3-back-link-internal] 4] w3-back-form-internal #[(&optional pt) "`\"`S\"`\"Ū \" \"e) S!)" [pt get-text-property w3form previous-single-property-change prev nil prev2 w3-back-form-internal] 4]] 2) (fset 'w3-back-link #[(p) "US!  `` !e e]bw*" [p 1 w3-back-link w3-back-link-internal w3-back-form-internal form link nil error "No previous links." " \n"] 2 "\ Go back 1 link" "P"]) (fset 'w3-zone-hidden-p #[(start end) " T\"" [get-text-property start invisible] 3 "\ Return t iff the region from start to end is invisible."]) (fset 'w3-unhide-zone #[(start end) " \nD#" [add-text-properties start end invisible nil] 5 "\ Make a region from START TO END visible. (emacs19)"]) (fset 'w3-hide-zone #[(start end) " \nD#" [add-text-properties start end invisible t] 5 "\ Make a region from START to END invisible. (emacs19)"]) (fset 'w3-add-zone #[(start end style data &optional highlight) " \n @ AF# = = =\nbc bc = =\nbc bc @= A@ \n A@F# = \nگ#" [add-text-properties start end face style data window-system w3-emacs19-hack-faces-p w3-node-style w3-visited-node-style w3-bold-style 4 3 w3-header-style w3-underline-style 2 1 w3 w3-ident mouse-face modeline w3form front-sticky nil rear-nonsticky (t) region] 9 "\ Add highlighting (emacs19)"]) (fset 'w3-follow-mouse #[(e) " ! " [mouse-set-point e w3-follow-link] 2 "\ Function suitable to being bound to a mouse key. Follows the link under the mouse click." "e"]) (fset 'w3-zone-at #[(pt) " \" \" \" \"    ," [get-text-property pt w3 w3form w3graphic w3expandlist list grph form link nil] 7 "\ Return the extent at point PT that is either a link or a forms area."]) (fset 'w3-follow-inlined-image-mouse #[(e) " ! " [mouse-set-point e w3-follow-inlined-image] 2 "\ Follow the inlined image under the mouse - ignore any hyperlinks or form entry areas and blindly try to find an image." "e"]) (fset 'w3-follow-inlined-image #[nil "`\"\n@!!)" [get-text-property w3graphic grph w3-maybe-relative error "No inlined image at point."] 4 "\ Follow an inlined image, regardless of whether it is a hyperlink or not." nil]) (byte-code "! # #! Y #" [boundp hyperb:version define-key w3-mode-map [mouse-2] w3-follow-mouse [mouse-3] w3-popup-menu window-system emacs-minor-version 23 [mouse-movement] w3-mouse-handler] 4) (fset 'w3-build-FSF19-menu #[nil "  @!=8\n8!\"8D#C\n) AO\nB\n @@ @A@D# B Ak B!!A#A \nD\"#A# A#+" [w3-hotlist hot nil hot-menu w3-only-links ovls w3-zone-data data w3 2 w3-links-menu vector format "%s" w3-strip-leading-spaces 3 w3-maybe-relative t "Links..." "Hotlist..." set-buffer-menubar copy-sequence current-menubar add-menu "WWW" w3-main-menu "Navigate" append w3-navigate-menu "Options" w3-options-menu "Annotate" w3-annotation-menu] 8 "\ Build emacs19 menus from w3-links-list"]) (fset 'w3-popup-menu #[(e) " ! !" [mouse-set-point e popup-menu w3-popup-menu] 2 "\ Pop up a menu of common w3 commands" "e"]) (fset 'w3-insert #[(&rest args) "` \"`#)" [start apply insert-before-markers args set-text-properties nil] 4 "\ Insert without inheriting any text properties"]) (fset 'w3-setup-version-specifics #[nil " !P!! !\")>͏==M=M" [window-system w3-emacs19-hack-faces-p intern "w3-emacs19-hack-" getenv "TERM" hack-fn fboundp message "Don't know how to hack faces for %s..." nil (x pm ns) (byte-code "!" [require lmenu] 2) ((error (byte-code " \"\" \")" [mapcar #[(x) "!\"AB" [x assoc menu-bar-lines frame-parameters] 5] frame-list saved-menu-info require menubar "lmenu" #[(x) " @ ABC\"" [modify-frame-parameters x menu-bar-lines] 4]] 3))) x pm w3-x-popup-menu x-popup-menu ns ns-popup-menu] 4 "\ Set up routine for emacs 19"]) (fset 'w3-store-in-x-clipboard #[(str) "= \"= \"= !ȇ" [window-system x x-set-selection PRIMARY str pm ns ns-store-pasteboard-internal nil] 3 "\ Store string STR in the Xwindows clipboard"]) (fset 'w3-mode-version-specifics #[nil " !> " [window-system w3-emacs19-hack-faces-p recenter 1 (x pm ns) w3-build-FSF19-menu] 2 "\ Emacs 19 specific stuff for w3-mode"]) (fset 'w3-map-links #[(function &optional buffer from to maparg) " \"Ç" [mapcar #[(x) "\n! \"ć" [function w3-zone-data x maparg nil] 3] w3-only-links nil] 3 "\ Map FUNCTION over the hypertext links which overlap region in BUFFER, starting at FROM and ending at TO. FUNCTION is called with the arguments linkdata, MAPARG. The arguments FROM, TO, MAPARG, and BUFFER default to the beginning of BUFFER, the end of BUFFER, nil, and (current-buffer), respectively. In emacs19, FROM, TO, and BUFFER are ignored.... working on it."]) (byte-code "N!!MMMMMMMMMMMMMMMMMMMM!" [w3-emacs19 use-overlays message "Emacs 19 is using text properties." "Emacs 19 is using overlays." w3-zone-start overlay-start w3-zone-end overlay-end w3-zone-eq eq w3-delete-zone delete-overlay w3-insert insert-before-markers w3-fix-extent-endpoints #[nil " @ A @ A\n!\n! f> Tu\n #[," [overlay-lists nil cur nd st ovls overlay-start overlay-end (32 10 9) move-overlay] 5 "Make sure no extents have whitespace/newlines at the end of them"] w3-mouse-handler #[(e) "\n!! =? !\"\"\n\n>A@A@ \n>A@\n>A@  !!8!A@՚֪A@!#@!\"!-" [posn-point event-start e pt mode-line apply nconc mapcar overlay-properties overlays-at props w3 link w3form form w3graphic imag message w3-quotify-percents "Form entry (name=%s, type=%s)" 2 "" "text" "Inlined image (%s)"] 7 "Function to message the url under the mouse cursor" "e"] w3-zone-data #[(zone) " \" \" \" \"  BBBB," [overlay-get zone w3 w3form w3graphic w3expandlist list grph form link nil] 7 "Return the data from a zone"] w3-zone-at #[(pt) " !‰@A\" \" \" \": ." [overlays-at pt nil list grph form link cur ovls overlay-get w3 w3form w3graphic w3expandlist] 6 "Return the extent at point PT that is either a link or a forms area."] w3-only-links #[nil " @ A @ A \"q \nBk\n+" [overlay-lists nil result cur ovls overlay-get w3] 4 "Get all the zones from a buffer"] w3-all-forms-zones #[nil " @ A @ A \"q \nBk\n+" [overlay-lists nil result cur ovls overlay-get w3form] 4 "Get all the zones from a buffer."] w3-all-zones #[nil " @ A @ A \" \"k \nBe\n+" [overlay-lists nil result cur ovls overlay-get w3 w3form] 4 "Get all the zones from a buffer."] w3-find-specific-link #[(link) " @ A\n? @ A \"k !bɉa+" [overlay-lists nil found cur ovls link overlay-get w3-ident overlay-start t] 5 "Find LINK in the current document"] w3-forward-link #[(p) "US!`!É dU!!g d@\"@\"@AaF ! !bw," [p 1 w3-forward-link nil next-overlay-change done ovl next found overlays-at overlay-get w3 w3form error "No more links." overlay-start " \n"] 5 "Go forward 1 link." "P"] w3-back-link #[(p) "`! !b) Ɖ @ A  \"  @!`W @\" @\" @B A XS8S8!bw!+" [p 1 w3-zone-at x w3-zone-start overlay-lists nil cur tmp ovls sort #[(x y) " !\n!W" [overlay-start x y] 3] overlay-start overlay-get w3 w3form " \n" error "No more links."] 4 "Go back 1 link" "P"] w3-zone-hidden-p #[(start end) " T! @\" Aq *" [overlays-at start nil y x overlay-get invisible t] 4 "Return t iff the region from start to end is invisible."] w3-unhide-zone #[(start end) " T!\n@\"\n@#\nAl)" [overlays-at start x overlay-get invisible overlay-put nil] 5 "Make a region from START TO END visible. (emacs19)"] w3-hide-zone #[(start end) "\n \"#" [overlay-put make-overlay start end invisible t] 4 "Make a region from START to END invisible. (emacs19)"] w3-add-zone #[(start end style data &optional highlight) " \n\" # @A# # #  ===\nbc bc==\nbc bc@=A@ A@# @=٪@=۪@=#)" [make-overlay start end ovl overlay-put face style data rear-nonsticky t front-sticky window-system w3-emacs19-hack-faces-p w3-node-style w3-visited-node-style w3-bold-style 4 3 w3-header-style w3-underline-style 2 1 w3 w3-ident mouse-face modeline w3form region w3graphic secondary-selection] 5 "Add highlighting (emacs19)"] w3-follow-inlined-image #[nil "`!\n @\" @\"@! Ae\n?!*" [overlays-at nil done ovls overlay-get w3graphic w3-maybe-relative t error "No inlined image at point."] 5 "Follow an inlined image, regardless of whether it is a hyperlink or not." nil] provide] 2)