;ELC
;;; Compiled by LTX@Xue-LingTaos-MacBook-Pro.local on Wed Mar 16 23:19:07 2011
;;; from file /Users/LTX/Projects/Emacs/emacs/lisp/url/url-dired.el
;;; in Emacs version 24.0.50.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.

;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.

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


(autoload 'dired-get-filename "dired")
#@40 Keymap used when browsing directories.
(defvar url-dired-minor-mode-map (byte-code "\301 \302\303\304#\210\302\305\306#\210)\207" [map make-sparse-keymap define-key "
" url-dired-find-file [mouse-2] url-dired-find-file-mouse] 4) (#$ . 586))
#@59 In dired, visit the file or directory named on this line.
(defalias 'url-dired-find-file #[nil "\301 \302!)\207" [filename dired-get-filename find-file] 2 (#$ . 837) nil])
#@58 In dired, visit the file or directory name you click on.
(defalias 'url-dired-find-file-mouse #[(event) "\301!\210\302 \207" [event mouse-set-point url-dired-find-file] 2 (#$ . 1017) "@e"])
#@109 Non-nil if Url-Dired minor mode is enabled.
Use the command `url-dired-minor-mode' to change this variable.
(defvar url-dired-minor-mode nil (#$ . 1215))
(make-variable-buffer-local 'url-dired-minor-mode)
#@36 Minor mode for directory browsing.
(defalias 'url-dired-minor-mode #[(&optional arg) "\303 	\304=\203\n?\202\305	!\306V\307\310\n\203\311\202\312\"\210\313\314!\203@\303 \2033\303 \232\203@\315\316\n\203=\317\202>\320\"\210)\321 \210\n\207" [#1=#:last-message arg url-dired-minor-mode current-message toggle prefix-numeric-value 0 run-hooks url-dired-minor-mode-hook url-dired-minor-mode-on-hook url-dired-minor-mode-off-hook called-interactively-p any message "Url-Dired minor mode %sabled" "en" "dis" force-mode-line-update] 3 (#$ . 1426) (list (or current-prefix-arg 'toggle))])
(byte-code "\301\302\303\304\211%\207" [url-dired-minor-mode-map add-minor-mode url-dired-minor-mode " URL" nil] 6)
#@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 (#$ . 2147) "DURL Dired (directory): "])
(provide 'url-dired)
