Dolda2000 GitWeb
/
doldaconnect.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Print the search-mode into the info-file.
[doldaconnect.git]
/
lib
/
guile
/
autodl
diff --git
a/lib/guile/autodl
b/lib/guile/autodl
index
d9e291b
..
b70fa8f
100755
(executable)
--- a/
lib/guile/autodl
+++ b/
lib/guile/autodl
@@
-211,7
+211,8
@@
(cons 'realsr info-numreal)
(cons 'totalsr info-numtotal)
(cons 'lastsrch lastsearch)
(cons 'realsr info-numreal)
(cons 'totalsr info-numtotal)
(cons 'lastsrch lastsearch)
- (cons 'srcheta info-searcheta))
+ (cons 'srcheta info-searcheta)
+ (cons 'srchmode (cdr (assoc 'search-mode session))))
op)
(newline op)
(close-port op))))
op)
(newline op)
(close-port op))))
@@
-514,6
+515,8
@@
(write-info-file)))))
((622) ; Search result
(let ((ires (list->vector (dc-intresp resp))))
(write-info-file)))))
((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))
(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))))))
)