[elpa] externals/ztree 3273e1f 13/23: Issue #60: ztree-dir change Emacs default directory

[Stefan Monnier]

branch: externals/ztree
commit 3273e1f84f9cded3794a6bf94dade8172fc4a251
Author: Alexey Veretennikov <alexey.veretennikov@gmail.com>
Commit: Alexey Veretennikov <alexey.veretennikov@gmail.com>

    Issue #60: ztree-dir change Emacs default directory
    
    Now callind ztree-dir and its widen/narrow operations
    will change the default directory, the same way as Dired does.
---
 ztree-dir.el | 12 +++++++++---
 1 file changed, 9 insertions(+), 3 deletions(-)

diff --git a/ztree-dir.el b/ztree-dir.el
index 5421ef0..5369269 100644
--- a/ztree-dir.el
+++ b/ztree-dir.el
@@ -155,6 +155,12 @@ Otherwise, the ztree window is used to find the file."
                 (directory-files path 'full)))
 
 
+(defun ztree-dir-change-directory (node)
+  "Change the start node to NODE and update current directory."
+  (ztree-change-start-node node)
+  (setq default-directory node))
+
+
 (defun ztree-dir-narrow-to-dir ()
   "Interactive command to narrow the current directory buffer.
 The buffer is narrowed to the directory under the cursor.
@@ -164,9 +170,9 @@ If the cursor is on a file, the buffer is narrowed to the 
parent directory."
          (node (ztree-find-node-in-line line))
          (parent (ztree-get-parent-for-line line)))
     (if (file-directory-p node)
-        (ztree-change-start-node node)
+        (ztree-dir-change-directory node)
       (when parent
-        (ztree-change-start-node (ztree-find-node-in-line parent))))))
+        (ztree-dir-change-directory (ztree-find-node-in-line parent))))))
 
 
 (defun ztree-dir-widen-to-parent ()
@@ -178,7 +184,7 @@ up of the opened."
   (let* ((node ztree-start-node)
          (parent (file-name-directory (directory-file-name node))))
     (when parent
-      (ztree-change-start-node parent))))
+      (ztree-dir-change-directory parent))))
 
 
 (defun ztree-dir-open-dired-at-point ()