ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/url/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/url/url-dired.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2.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) (#$ . 449))
#@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 (#$ . 700) 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 (#$ . 880) "@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 (#$ . 1077))
(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 (#$ . 1289) (list (or current-prefix-arg 'toggle))])
#@185 Hook run after entering or leaving `url-dired-minor-mode'.
No problems result if this variable is not bound.
`add-hook' automatically binds it. (This is true for all hook variables.)
(defvar url-dired-minor-mode-hook nil (#$ . 2083))
(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 (#$ . 2441) "DURL Dired (directory): "])
(provide 'url-dired)
Kontol Shell Bypass