-;; Fixme: This should use mailcap.
-(defcustom dired-view-command-alist
- '(("\\.\\(ps\\|ps_pages\\|eps\\)\\'" . "gv %s")
- ("\\.pdf\\'" . "xpdf %s")
- ;; ("\\.pod\\'" . "perldoc %s")
- ("\\.\\(jpe?g\\|gif\\|png\\)\\'" . "eog %s")
- ("\\.dvi\\'" . "xdvi %s"))
- "Alist specifying how to view special types of files.
-Each element has the form (REGEXP . SHELL-COMMAND).
-When the file name matches REGEXP, `dired-view-file'
-invokes SHELL-COMMAND to view the file, processing it through `format'.
-Use `%s' in SHELL-COMMAND to specify where to put the file name."
- :group 'dired
- :type '(alist :key-type regexp :value-type string)
- :version "21.4")
+(defcustom dired-dnd-protocol-alist
+ '(("^file:///" . dired-dnd-handle-local-file)
+ ("^file://" . dired-dnd-handle-file)
+ ("^file:" . dired-dnd-handle-local-file))
+ "The functions to call when a drop in `dired-mode' is made.
+See `dnd-protocol-alist' for more information. When nil, behave
+as in other buffers."
+ :type '(choice (repeat (cons (regexp) (function)))
+ (const :tag "Behave as in other buffers" nil))
+ :version "22.1"
+ :group 'dired)