From 222bf66d520dcbdf73fe0026e8a7fe6ce719e816 Mon Sep 17 00:00:00 2001 From: cage Date: Thu, 6 Jan 2022 18:38:37 +0100 Subject: [PATCH] - fixed a bug in 'jump-to-parent-node', 'normalize a path with a '..' already generate a path that points to the parent. --- src/filesystem-tree-window.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/filesystem-tree-window.lisp b/src/filesystem-tree-window.lisp index 93a3726..4a252a7 100644 --- a/src/filesystem-tree-window.lisp +++ b/src/filesystem-tree-window.lisp @@ -307,7 +307,7 @@ (defun jump-to-parent-node (window path) (when (fs:backreference-dir-p path) - (let ((parent-path (fs:parent-dir-path (uri:normalize-path path)))) + (let ((parent-path (uri:normalize-path path))) (win-clear window :redraw nil) (resync-rows-db window :selected-path parent-path :redraw t))))