;ELC   
;;; Compiled by aatharuv@cutter-john.mit.edu on Sun Jan  5 18:41:48 2003
;;; from file /afs/sipb.mit.edu/contrib/emacs/packages/url-cvs-20030105-src/lisp/url-dired.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 "`url-dired.el' was compiled for Emacs 19.29 or later"))

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


(byte-code "\300\301\302\"\210\300\303\302\"\210\300\304\305\"\207" [autoload w3-fetch "w3" w3-open-local dired-get-filename "dired"] 3)
#@40 Keymap used when browsing directories.
(defvar url-dired-minor-mode-map (byte-code "\301 \302\303\304#\210\305\306!\203 \302\307\310#\210\202 \302\311\310#\210)\207" [map make-sparse-keymap define-key "" url-dired-find-file featurep xemacs [button2] url-dired-find-file-mouse [mouse-2]] 4) (#$ . 793))
#@40 Whether we are in url-dired-minor-mode
(defvar url-dired-minor-mode nil (#$ . 1109))
(make-variable-buffer-local 'url-dired-minor-mode)
#@75 In dired, visit the file or directory named on this line, using Emacs-W3.
(defalias 'url-dired-find-file #[nil "\301 \302\303\"\203 \304\305\306\307\"\306\310\"Q!\202 \311!)\207" [filename dired-get-filename string-match "/\\(.*@.*\\):\\(/.*\\)" w3-fetch "file://" match-string 1 2 w3-open-local] 6 (#$ . 1251) nil])
#@74 In dired, visit the file or directory name you click on, using Emacs-W3.
(defalias 'url-dired-find-file-mouse #[(event) "\301!\210\302 \207" [event mouse-set-point url-dired-find-file] 2 (#$ . 1581) "@e"])
#@50 Minor mode for directory browsing with Emacs-W3.
(defalias 'url-dired-minor-mode #[(&optional arg) "\204	 	?\211\207\302\232\203 \303\211\207\304\211\207" [arg url-dired-minor-mode 0 nil t] 2 (#$ . 1794) "P"])
(byte-code "\301\302!\204\n \302\303M\210\302\304\305#\207" [url-dired-minor-mode-map fboundp add-minor-mode #[(toggle name &optional keymap after toggle-fun) "	\236\204\f \nD	B\205 \f\236?\205 B\fB\211\207" [toggle minor-mode-alist name keymap minor-mode-map-alist] 2 "Add a minor mode to `minor-mode-alist' and `minor-mode-map-alist'.\nTOGGLE is a symbol which is used as the variable which toggle the minor mode,\nNAME is the name that should appear in the modeline (it should be a string\nbeginning with a space), KEYMAP is a keymap to make active when the minor\nmode is active, and AFTER is the toggling symbol used for another minor\nmode.  If AFTER is non-nil, then it is used to position the new mode in the\nminor-mode alists.  TOGGLE-FUN specifies an interactive function that\nis called to toggle the mode on and off; this affects what appens when\nbutton2 is pressed on the mode, and when button3 is pressed somewhere\nin the list of modes.  If TOGGLE-FUN is nil and TOGGLE names an\ninteractive function, TOGGLE is used as the toggle function.\n\nExample:  (add-minor-mode 'view-minor-mode \" View\" view-mode-map)"] url-dired-minor-mode " URL"] 4)
#@66 "Edit" directory DIR, but with additional URL-friendly bindings.
(defalias 'url-find-file-dired #[(dir) "\301!\210\302\303!\207" [dir find-file url-dired-minor-mode t] 2 (#$ . 3190) "DURL Dired (directory): "])
(provide 'url-dired)