[nongnu] elpa/hyperdrive 46eac0a67d 03/32: WIP

[ELPA Syncer]

branch: elpa/hyperdrive
commit 46eac0a67d95a100d874244c405ffd8f60e98899
Author: Adam Porter <adam@alphapapa.net>
Commit: Adam Porter <adam@alphapapa.net>

    WIP
---
 hyperdrive-handlers.el | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/hyperdrive-handlers.el b/hyperdrive-handlers.el
index 33e9742c26..50b72e0902 100644
--- a/hyperdrive-handlers.el
+++ b/hyperdrive-handlers.el
@@ -134,7 +134,7 @@ arguments."
         (push parent-entry entries))
       (with-current-buffer (hyperdrive--get-buffer-create directory-entry)
         (with-silent-modifications
-          (setf ewoc (or hyperdrive-ewoc     ; Bind this for lambdas.
+          (setf ewoc (or hyperdrive-ewoc ; Bind this for lambdas.
                          (setf hyperdrive-ewoc (ewoc-create 
#'hyperdrive-dir-pp)))
                 metadata-queue (make-plz-queue
                                 :limit 20
@@ -146,8 +146,9 @@ arguments."
                                                (ewoc-enter-last ewoc entry))
                                              (or (when prev-entry
                                                    (goto-entry prev-entry 
ewoc))
-                                                 (goto-char prev-point))))))
-          (setf prev-entry (ewoc-data (ewoc-locate hyperdrive-ewoc))
+                                                 (goto-char prev-point)))))
+                prev-entry (when-let ((node (ewoc-locate hyperdrive-ewoc)))
+                             (ewoc-data node))
                 prev-point (point))
           (ewoc-filter hyperdrive-ewoc #'ignore) 
           (ewoc-set-hf ewoc header "Loading...")