Current File : //usr/local/share/emacs/27.2/lisp/url/url-dired.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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) (#$ . 447))
#@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 (#$ . 698) 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 (#$ . 878) "@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 (#$ . 1075))
(make-variable-buffer-local 'url-dired-minor-mode)
#@284 Minor mode for directory browsing.
If called interactively, enable Url-Dired minor mode if ARG is
positive, and disable it if ARG is zero or negative. If called from
Lisp, also enable the mode if ARG is omitted or nil, and toggle it if
ARG is `toggle'; disable the mode otherwise.
(defalias 'url-dired-minor-mode #[(&optional arg) "\304 \305=\203 \n?\202 \306 !\307V\310\311\n\203 \312\202 \313\"\210\314\315!\203D \304 \2033 \304 \232\203D \316\317\320\n\203? \321\202@ \322 #\210))\323 \210\n\207" [#1=#:last-message arg url-dired-minor-mode local 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 " in current buffer" message "Url-Dired minor mode %sabled%s" "en" "dis" force-mode-line-update] 4 (#$ . 1287) (list (or current-prefix-arg 'toggle))])
(defvar url-dired-minor-mode-hook nil)
(byte-code "\301\302N\204\f \303\301\302\304#\210\305\306\307\310\211%\207" [url-dired-minor-mode-map url-dired-minor-mode-hook variable-documentation put "Hook run after entering or leaving `url-dired-minor-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" 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 (#$ . 2608) "DURL Dired (directory): "])
(provide 'url-dired)
Mini Shell