Edit file File name : url-dired.elc Content :;ELC ;;; Compiled ;;; in Emacs version 26.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) (#$ . 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) #@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) "\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 (#$ . 2514) "DURL Dired (directory): "]) (provide 'url-dired) Save