200 |
;; Note this can't simply be run inside function `dired-ls' as the hook |
;; Note this can't simply be run inside function `dired-ls' as the hook |
201 |
;; functions probably depend on the dired-subdir-alist to be OK. |
;; functions probably depend on the dired-subdir-alist to be OK. |
202 |
|
|
203 |
|
(defcustom dired-dnd-protocol-alist |
204 |
|
'(("^file:///" . dired-dnd-handle-local-file) |
205 |
|
("^file://" . dired-dnd-handle-file) |
206 |
|
("^file:" . dired-dnd-handle-local-file)) |
207 |
|
"The functions to call when a drop in `dired-mode' is made. |
208 |
|
See `dnd-protocol-alist' for more information. When nil, behave |
209 |
|
as in other buffers." |
210 |
|
:type '(choice (repeat (cons (regexp) (function))) |
211 |
|
(const :tag "Behave as in other buffers" nil)) |
212 |
|
:version "22.1" |
213 |
|
:group 'dired) |
214 |
|
|
215 |
;; Internal variables |
;; Internal variables |
216 |
|
|
217 |
(defvar dired-marker-char ?* ; the answer is 42 |
(defvar dired-marker-char ?* ; the answer is 42 |
1534 |
'dired-desktop-buffer-misc-data) |
'dired-desktop-buffer-misc-data) |
1535 |
(setq dired-switches-alist nil) |
(setq dired-switches-alist nil) |
1536 |
(dired-sort-other dired-actual-switches t) |
(dired-sort-other dired-actual-switches t) |
|
(run-mode-hooks 'dired-mode-hook) |
|
1537 |
(when (featurep 'dnd) |
(when (featurep 'dnd) |
1538 |
(make-variable-buffer-local 'dnd-protocol-alist) |
(make-variable-buffer-local 'dnd-protocol-alist) |
1539 |
(setq dnd-protocol-alist |
(setq dnd-protocol-alist |
1540 |
(append '(("^file:///" . dired-dnd-handle-local-file) |
(append dired-dnd-protocol-alist dnd-protocol-alist))) |
1541 |
("^file://" . dired-dnd-handle-file) |
(run-mode-hooks 'dired-mode-hook)) |
|
("^file:" . dired-dnd-handle-local-file)) |
|
|
dnd-protocol-alist)))) |
|
1542 |
|
|
1543 |
;; Idiosyncratic dired commands that don't deal with marks. |
;; Idiosyncratic dired commands that don't deal with marks. |
1544 |
|
|