The Lambda Lab
/
projects
/
elpher.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
0c3e78c
)
Fixed search getter.
author
Tim Vaughan
<tgvaughan@gmail.com>
Fri, 26 Apr 2019 16:01:17 +0000
(18:01 +0200)
committer
Tim Vaughan
<tgvaughan@gmail.com>
Fri, 26 Apr 2019 16:01:17 +0000
(18:01 +0200)
elopher.el
patch
|
blob
|
history
diff --git
a/elopher.el
b/elopher.el
index
4617d08
..
ba5fb17
100644
(file)
--- 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 ()
;; 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
(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))))
(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
(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))))))
(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
;; Raw server response retrieval