daniel/emacs
1
2
Fork 0
Code Issues 7 Pull Requests Projects Releases Wiki Activity

update packages

Browse Source
This commit is contained in:
Daniel Weschke
2025-06-22 17:08:08 +02:00
parent 54e5633369
commit 16a0a6db93
558 changed files with 68349 additions and 26568 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
lisp/treemacs/treemacs-macros.el
View File

@@ -308,7 +308,7 @@ not work keep it on the same line."
((and prev-path (can-move-to prev-path))
(treemacs-goto-file-node prev-path))
(t
(-let [detour (treemacs--parent curr-file)]
(-when-let (detour (treemacs--parent curr-file))
(while (not (can-move-to detour))
(setf detour (treemacs--parent detour)))
(treemacs-goto-file-node detour)))))))
@@ -318,10 +318,18 @@ not work keep it on the same line."
(goto-char curr-point))
(_
;; point is on a custom node
;; TODO(2018/10/30): custom node exists predicate?
(condition-case _
(treemacs-goto-node curr-node-path)
(error (ignore)))))
(cond
((treemacs-is-path-visible? curr-node-path)
(treemacs-goto-extension-node curr-node-path))
((and next-path (treemacs-is-path-visible? next-path))
(treemacs-goto-extension-node next-path))
((and prev-path (treemacs-is-path-visible? prev-path))
(treemacs-goto-extension-node prev-path))
(t
(-when-let (detour (treemacs--parent curr-file))
(while (not (treemacs-is-path-visible? detour))
(setf detour (treemacs--parent detour)))
(treemacs-goto-extension-node detour))))))
(treemacs--evade-image)
(when (get-text-property (point) 'invisible)
(goto-char (or