From e37b5988e63ecfa61c582ae1ed56b841106242a7 Mon Sep 17 00:00:00 2001
From: 10sr <8slashes+git@gmail.com>
Date: Thu, 11 Dec 2014 14:57:47 +0900
Subject: [PATCH] emacs.el: Dirty fix of tree-mode-next,previous-node

---
 emacs.el | 26 ++++++++++++++++++++++++--
 1 file changed, 24 insertions(+), 2 deletions(-)

diff --git a/emacs.el b/emacs.el
index 6ffb9ee..97e1d56 100644
--- a/emacs.el
+++ b/emacs.el
@@ -905,7 +905,28 @@ found, otherwise returns nil."
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; some modes and hooks
 
-(lazy-load-eval 'dirtree)
+(lazy-load-eval 'dirtree nil
+  (defun my-dirtree-current-line-directory-p ()
+    "Return nil if element on current line is not a directory."
+    (file-directory-p (widget-get (tree-mode-button-current-line)
+                                  :file)))
+
+  ;; This fix is actually a little strange.  Strictly speaking
+  ;; judging tree should be done by whether the widget is a tree one.
+  (defun my-dirtree-next-node (arg)
+    "Fix the problem that `tree-mode-next-node' moves cursor 2 lines."
+    (interactive "p")
+    (if (my-dirtree-current-line-directory-p)
+        (widget-forward (* arg 2))
+      (widget-forward arg)))
+  (defun my-dirtree-previous-node (arg)
+    "Fix the problem that `tree-mode-previous-node' moves cursor 2 lines."
+    (interactive "p")
+    (my-dirtree-next-node (- arg)))
+
+  (define-key dirtree-mode-map "n" 'my-dirtree-next-node)
+  (define-key dirtree-mode-map "p" 'my-dirtree-previous-node)
+  )
 
 (and (fetch-library
       "https://raw.github.com/10sr/emacs-lisp/master/remember-major-modes-mode.el"
@@ -1419,7 +1440,8 @@ found, otherwise returns nil."
               ;;      (call-interactively 'bs-toggle-show-all))
               (set (make-local-variable 'scroll-margin) 0))))
 
-(iswitchb-mode 1)
+;;(iswitchb-mode 1)
+(icomplete-mode)
 
 (defun iswitchb-buffer-display-other-window ()
   "Do iswitchb in other window."