;ELC   
;;; Compiled by leavens@CMC3251632-A on Fri Aug 09 22:34:20 2002
;;; from file d:/emacs/speedbar/sb-w3.el
;;; in Emacs version 21.2.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 "`sb-w3.el' was compiled for Emacs 19.29 or later"))

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


(byte-code "\300\301\302\217\210\303\304!\210\303\305!\207" [nil (byte-code "\300\301!\207" [require w3-imenu] 2) ((error)) require cl speedbar] 3)
#@39 The last buffer shown by w3-speedbar.
(defvar w3-speedbar-last-buffer nil (#$ . 739))
#@42 Keymap used when in the w3 display mode.
(defvar w3-speedbar-key-map nil (#$ . 831))
(byte-code "\204 \301 \302\303\304#\210\302\305\304#\210\302\306\304#\210\301\207" [w3-speedbar-key-map speedbar-make-specialized-keymap define-key "e" speedbar-edit-line "r" ""] 4)
#@31 Extra menu items for w3 mode.
(defvar w3-speedbar-menu-items '(["Jump to link" speedbar-edit-line t]) (#$ . 1111))
#@74 Create speedbar buttons for the current web BUFFER displayed in w3 mode.
(defalias 'w3-speedbar-buttons #[(buffer) "\212eb\210\306\307!\205 	\232?\205\217 	\310 \210\212	q\210\311 )\212	q\210\n)\312\313c\210\314\315\"\210\316c\210\203R \317@\235A@A\2033 \320\321!\322\323\324%\210\2023 \325\326!\205\216 \327\330\fG\"c\210\f\312:\203\214 @\211@\203\203 \320@\331\323\332A\333&\210A\211\202g *\312+)\207" [w3-speedbar-last-buffer buffer imenu--index-alist part toc links looking-at "History:" erase-buffer w3-only-links nil "History:\n" cl-maphash #[(url desc) "\301\302!\303\304\305%\207" [url speedbar-insert-button w3-speedbar-shorten-button speedbar-directory-face highlight w3-speedbar-link] 6] "Links:\n" :href speedbar-insert-button w3-speedbar-shorten-button speedbar-file-face highlight w3-speedbar-link featurep w3-imenu format "Contents: %d\n" bold w3-speedbar-goto-marker prevline url-history-list #1=#:G27213 e] 8 (#$ . 1232)])
#@127 Speedbar callback function for jumping to a marker in a w3 buffer.
TXT is unused.  MARKER is the location.  INDENT is unused.
(defalias 'w3-speedbar-goto-marker #[(txt marker indent) "\301\302!!\210\303!b\207" [marker pop-to-buffer marker-buffer marker-position] 3 (#$ . 2216)])
#@56 Takes text BUTTON and shortens it as much as possible.
(defalias 'w3-speedbar-shorten-button #[(button) "\205/ \302!\303	GW\203 	\202. \304\305\"\203  \303\225\306O\304\307\"\203- \303\211\224O)\207" [button fnnd file-name-nondirectory 0 string-match "\\(ht\\|f\\)tp://" nil "/$"] 3 (#$ . 2503)])
#@76 Follow link described by TEXT which has the URL TOKEN.
INDENT is not used.
(defalias 'w3-speedbar-link #[(text token indent) "\304 \305\216\306	!\210\307\n!\210\310!\210\311 *\207" [save-selected-window-window speedbar-update-speed speedbar-attached-frame token selected-window ((byte-code "\301!\203\n \302!\210\301\207" [save-selected-window-window window-live-p select-window] 2)) speedbar-set-timer select-frame w3-fetch speedbar-maybee-jump-to-attached-frame] 2 (#$ . 2817)])
(provide 'sb-w3)