/[emacs]/emacs/lisp/dired.el
ViewVC logotype

Diff of /emacs/lisp/dired.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.307 by jhd, Mon Apr 11 19:28:07 2005 UTC revision 1.308 by rsteib, Wed May 11 19:32:51 2005 UTC
# Line 200  with the buffer narrowed to the listing. Line 200  with the buffer narrowed to the listing.
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
# Line 1522  Keybindings: Line 1534  Keybindings:
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    

Legend:
Removed from v.1.307  
changed lines
  Added in v.1.308

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26