mode-hooks: add dired-mode hook to allow recursive removals

Typing "yes" twice in a row is a bit much.

diff --git a/mode-hooks.el b/mode-hooks.el
index b0517f396274c09457787c801be87ba5dc97f94d..31c423e22d6e1cdf897d037c124f78a7d378daa6 100644 (file)
--- a/mode-hooks.el
+++ b/mode-hooks.el
@@ -3,6 +3,7 @@
    (file-name-sans-extension load-file-name))
 
 (load-library "css-mode-hooks")
    (file-name-sans-extension load-file-name))
 
 (load-library "css-mode-hooks")

+(load-library "dired-mode-hooks")

 (load-library "dns-mode-hooks")
 (load-library "js-mode-hooks")
 (load-library "haskell-mode-hooks")
 (load-library "dns-mode-hooks")
 (load-library "js-mode-hooks")
 (load-library "haskell-mode-hooks")

diff --git a/mode-hooks/dired-mode-hooks.el b/mode-hooks/dired-mode-hooks.el
new file mode 100644 (file)
index 0000000..9fe304e
--- /dev/null
+++ b/mode-hooks/dired-mode-hooks.el
@@ -0,0 +1,6 @@
+(defun dm-hook()
+  ;; If I'm using Emacs to remove directories, it's for speed.
+  (setq dired-recursive-deletes 'always)
+)
+
+(add-hook 'dired-mode-hook (function dm-hook))