Dolda2000 GitWeb
/
doldaconnect.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Log mode change.
[doldaconnect.git]
/
lib
/
guile
/
autodl
diff --git
a/lib/guile/autodl
b/lib/guile/autodl
index
f796176
..
fe454e8
100755
(executable)
--- a/
lib/guile/autodl
+++ b/
lib/guile/autodl
@@
-516,7
+516,8
@@
((622) ; Search result
(let ((ires (list->vector (dc-intresp resp))))
(if (eq? (cdr (assoc 'search-mode session)) 'wait)
((622) ; Search result
(let ((ires (list->vector (dc-intresp resp))))
(if (eq? (cdr (assoc 'search-mode session)) 'wait)
- (set-cdr! (assoc 'search-mode session) 'normal))
+ (begin (set-cdr! (assoc 'search-mode session) 'normal)
+ (logf "reverting to normal mode")))
(if (and ires (= (vector-ref ires 0) srchid)) (apply handlesr (map (lambda (n) (vector-ref ires n)) '(1 2 3 4 5 7 8))))))
)
(if (and ires (= (vector-ref ires 0) srchid)) (apply handlesr (map (lambda (n) (vector-ref ires n)) '(1 2 3 4 5 7 8))))))
)