From db6f42219edfc6927f8de02cf594e26eb6a46821 Mon Sep 17 00:00:00 2001 From: Tim Vaughan Date: Fri, 26 Apr 2019 18:01:17 +0200 Subject: [PATCH] Fixed search getter. --- elopher.el | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/elopher.el b/elopher.el index 4617d08..ba5fb17 100644 --- a/elopher.el +++ b/elopher.el @@ -400,8 +400,9 @@ The result is stored as a string in the variable elopher-selector-string." ;; Search retrieval (defun elopher-get-search-node () - (let* ((content (elopher-node-content elopher-current-node)) - (address (elopher-node-address elopher-current-node))) + (let ((content (elopher-node-content elopher-current-node)) + (address (elopher-node-address elopher-current-node)) + (aborted t)) (if content (progn (elopher-with-clean-buffer @@ -414,6 +415,7 @@ The result is stored as a string in the variable elopher-selector-string." (search-address (elopher-make-address query-selector (elopher-address-host address) (elopher-address-port address)))) + (setq aborted nil) (elopher-with-clean-buffer (insert "LOADING RESULTS...")) (elopher-get-selector search-address @@ -424,7 +426,8 @@ The result is stored as a string in the variable elopher-selector-string." (goto-char (point-min)) (elopher-set-node-content elopher-current-node (buffer-string)))))) - (elopher-visit-parent-node))))) + (if aborted + (elopher-visit-parent-node)))))) ;; Raw server response retrieval -- 2.20.1