cage/tinmop
1
0
Fork 0
mirror of https://codeberg.org/cage/tinmop/ synced 2025-06-05 01:09:17 +02:00
Code Issues Activity

- fixed a bug in 'jump-to-parent-node', 'normalize a path with a '..' already generate a path that points to the parent.

Browse Source
This commit is contained in:
cage
2022-01-06 18:38:37 +01:00
parent a8904c3aa8
commit 222bf66d52
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/filesystem-tree-window.lisp
View File

@@ -307,7 +307,7 @@
(defun jump-to-parent-node (window path) (defun jump-to-parent-node (window path)
(when (fs:backreference-dir-p 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) (win-clear window :redraw nil)
(resync-rows-db window :selected-path parent-path :redraw t)))) (resync-rows-db window :selected-path parent-path :redraw t))))