Browse files

=Fixed bug in macro sr-tree-adapt-dired-command: dired-get-filename i…

…s no longer adviced.
  • Loading branch information...
1 parent 6e15a50 commit aa31ff55fc5576ee9835eb85c4e2cab9340fc9a5 @escherdragon escherdragon committed Nov 20, 2011
Showing with 1 addition and 3 deletions.
  1. +1 −3 sunrise-x-tree.el
@@ -834,16 +834,14 @@ nil."
Necessary so the basic Dired file manipulation commands can work
in Sunrise Tree View mode."
`(let ((ad-redefinition-action 'accept))
- (ad-deactivate 'dired-get-filename)
((dired-get-filename (&optional localp no-error)
(cdr sr-tree-cursor))
(dired-show-file-type (file &optional deref-symlinks)
"%s: directory"
(directory-file-name (car sr-tree-cursor)))))
- ,form)
- (ad-activate 'dired-get-filename)))
+ ,form)))
(defun sr-tree-do-copy ()
"Recursively copy all selected files and directories between panes.

0 comments on commit aa31ff5

Please sign in to comment.