dot/emacs: More `dired' hacking: tweak keymap.

In Emacs23, C-x C-q is already bound to a slightly different function.
So don't fiddle if that key is already bound.  Also, bind C-c C-s for
making relative symlinks.  (Could have used plain `r' but that seems
weird.)

diff --git a/dot/emacs b/dot/emacs
index 1546c2ca4ca36c96c4ad319c6b97be2614723fa1..5b37d8b8c668ce422cfe26c276e3108b73981fe2 100644 (file)
--- a/dot/emacs
+++ b/dot/emacs
@@ -442,8 +442,11 @@
 
 (eval-after-load "dired"
   '(progn
 
 (eval-after-load "dired"
   '(progn

-     (define-key dired-mode-map [?\C-x ?\C-q]
-       'wdired-change-to-wdired-mode)))
+     (or (lookup-key dired-mode-map  [?\C-x ?\C-q])
+        (define-key dired-mode-map [?\C-x ?\C-q]
+          'wdired-change-to-wdired-mode))
+     (and (fboundp 'dired-do-relsymlink)
+         (define-key dired-mode-map [?\C-c ?\C-s] 'dired-do-relsymlink))))

 
 (add-hook 'org-mode-hook
          #'(lambda () (mdw-clobber-evil-keymap org-mode-map)))
 
 (add-hook 'org-mode-hook
          #'(lambda () (mdw-clobber-evil-keymap org-mode-map)))