From 5195cbc3dbc550c24d91cb3a833ade5d99bccea1 Mon Sep 17 00:00:00 2001 Message-Id: <5195cbc3dbc550c24d91cb3a833ade5d99bccea1.1717769209.git.mdw@distorted.org.uk> From: Mark Wooding Date: Wed, 9 Apr 2008 16:25:55 +0100 Subject: [PATCH] dot-emacs: Hack dired-maybe-insert-subdir to honour marks. Organization: Straylight/Edgeware From: Mark Wooding --- dot-emacs.el | 23 +++++++++++++++++++++++ 1 file changed, 23 insertions(+) diff --git a/dot-emacs.el b/dot-emacs.el index 4cfd386..f3c28f9 100644 --- a/dot-emacs.el +++ b/dot-emacs.el @@ -365,6 +365,29 @@ (defun mdwmail-mangle-signature () (perform-replace "\n-- \n" "\n-- " nil nil nil))) (add-hook 'mail-setup-hook 'mdwmail-mangle-signature) +;;;----- Dired hacking ------------------------------------------------------ + +(defadvice dired-maybe-insert-subdir + (around mdw-marked-insertion first activate) + "The DIRNAME may be a list of directory names to insert. Interactively, if +files are marked, then insert all of them. With a numeric prefix argument, +select that many entries near point; with a non-numeric prefix argument, +prompt for listing options." + (interactive + (list (dired-get-marked-files nil + (and (integerp current-prefix-arg) + current-prefix-arg) + #'file-directory-p) + (and current-prefix-arg + (not (integerp current-prefix-arg)) + (read-string "Switches for listing: " + (or dired-subdir-switches + dired-actual-switches))))) + (let ((dirs (ad-get-arg 0))) + (dolist (dir (if (listp dirs) dirs (list dirs))) + (ad-set-arg 0 dir) + ad-do-it))) + ;;;----- URL viewing -------------------------------------------------------- (defun mdw-w3m-browse-url (url &optional new-session-p) -- [mdw]