 
 
 (provide 'neotree)
-;;; neotree.el ends here
+;;; neotree.el ends heree
                 'neo-full-path (neo-path--updir neo-buffer--start-node))
  (insert " (up a dir)")
  (neo-buffer--newline-and-begin)
  (neo-buffer--insert-with-face node
                        'neo-header-face)
  (neo-buffer--newline-and-begin))


        (setq r-path (expand-file-name r-path current-dir))
        r-path)))

(defun neo-path--shorten (path length)
  "Shorten a given path to a specified length. This is needed for paths, which
are to long for the window to display completely. The function cuts of the
first part of the path to remain the last folder (the current one)."
    (if (> (string-width path) length)
	(concat "«" (substring path (- (- length 1))))
      path))

(defun neo-path--updir (path)
  (let ((r-path (neo-path--expand-name path)))
    (if (and (> (length r-path) 0)
