Current File : //usr/share/emacs/24.3/lisp/url/url-dired.elc

;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:08:19 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/url/url-dired.el
;;; in Emacs version 24.3.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) (#$ . 595))
#@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 (#$ . 846) 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 (#$ . 1026) "@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 (#$ . 1224))
(make-variable-buffer-local 'url-dired-minor-mode)
#@190 Minor mode for directory browsing.
With a prefix argument ARG, enable the mode if ARG is positive,
and disable it otherwise.  If called from Lisp, enable the mode
if ARG is omitted or nil.
(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 (#$ . 1436) (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 (#$ . 2311) "DURL Dired (directory): "])
(provide 'url-dired)