Index: emacs/lisp/dired.el
diff -c emacs/lisp/dired.el:1.307 emacs/lisp/dired.el:1.308
*** emacs/lisp/dired.el:1.307 Mon Apr 11 19:28:07 2005
--- emacs/lisp/dired.el Wed May 11 19:32:51 2005
***************
*** 200,205 ****
--- 200,217 ----
;; Note this can't simply be run inside function `dired-ls' as the hook
;; functions probably depend on the dired-subdir-alist to be OK.
+ (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)
+
;; Internal variables
(defvar dired-marker-char ?* ; the answer is 42
***************
*** 1522,1535 ****
'dired-desktop-buffer-misc-data)
(setq dired-switches-alist nil)
(dired-sort-other dired-actual-switches t)
- (run-mode-hooks 'dired-mode-hook)
(when (featurep 'dnd)
(make-variable-buffer-local 'dnd-protocol-alist)
(setq dnd-protocol-alist
! (append '(("^file:///" . dired-dnd-handle-local-file)
! ("^file://" . dired-dnd-handle-file)
! ("^file:" . dired-dnd-handle-local-file))
! dnd-protocol-alist))))
;; Idiosyncratic dired commands that don't deal with marks.
--- 1534,1544 ----
'dired-desktop-buffer-misc-data)
(setq dired-switches-alist nil)
(dired-sort-other dired-actual-switches t)
(when (featurep 'dnd)
(make-variable-buffer-local 'dnd-protocol-alist)
(setq dnd-protocol-alist
! (append dired-dnd-protocol-alist dnd-protocol-alist)))
! (run-mode-hooks 'dired-mode-hook))
;; Idiosyncratic dired commands that don't deal with marks.
_______________________________________________
Emacs-diffs mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/emacs-diffs
