|
|
@@ -695,9 +695,11 @@ OT/NT etc. If that module doesn't have that verse...???"
|
|
|
(let ((module (or module bm-module)))
|
|
|
(with-temp-buffer
|
|
|
(let ((args (list "diatheke" nil (current-buffer) t "-b" module)))
|
|
|
- (if filter
|
|
|
+ (if searchtype
|
|
|
+ (setq filter nil)
|
|
|
+ (progn
|
|
|
(setq filter (concat filter diatheke-filter-options))
|
|
|
- (setq filter diatheke-filter-options))
|
|
|
+ (setq filter diatheke-filter-options)))
|
|
|
(when filter (setq args (append args (list "-o" filter))))
|
|
|
(when searchtype
|
|
|
(setq args (append args (list "-s" (pcase searchtype ("lucene" "lucene") ("phrase" "phrase"))))))
|
