branch: externals/consult-recoll
commit 1c48329d90f93ec9718b4a2a4775a9b16ed802ca
Author: jao <j...@gnu.org>
Commit: jao <j...@gnu.org>
fix: show also results that have no snippets
---
consult-recoll.el | 12 +++++++-----
1 file changed, 7 insertions(+), 5 deletions(-)
diff --git a/consult-recoll.el b/consult-recoll.el
index c98971fd7c..b2bf0e0769 100644
--- a/consult-recoll.el
+++ b/consult-recoll.el
@@ -4,7 +4,7 @@
;; Maintainer: Jose A Ortega Ruiz
;; Keywords: docs, convenience
;; License: GPL-3.0-or-later
-;; Version: 0.6
+;; Version: 0.6.1
;; Package-Requires: ((emacs "26.1") (consult "0.18"))
;; Homepage: https://codeberg.org/jao/consult-recoll
@@ -129,7 +129,7 @@ Set to nil to use the default 'title (path)' format."
(get-text-property 0 'index candidate))
(defsubst consult-recoll--snippets (&optional candidate)
- (get-text-property 0 'snippets (or candidate consult-recoll--current)))
+ (get-text-property 0 'snippets (or candidate consult-recoll--current "")))
(defsubst consult-recoll--find-file (file &optional _page) (find-file file))
@@ -159,12 +159,14 @@ Set to nil to use the default 'title (path)' format."
'url urln
'title title
'index idx)))
- (setq consult-recoll--current cand)
- nil))
+ (prog1 (and (not (consult-recoll--snippets))
consult-recoll--current)
+ (setq consult-recoll--current cand))))
((string= "/SNIPPETS" str)
(and (not consult-recoll-inline-snippets) consult-recoll--current))
((string= "SNIPPETS" str)
- (and consult-recoll-inline-snippets consult-recoll--current))
+ (and consult-recoll-inline-snippets
+ (setq consult-recoll--current
+ (propertize consult-recoll--current 'snippets t))))
((and consult-recoll-inline-snippets consult-recoll--current)
(when-let* ((page (and (string-match "^\\([0-9]+\\) :" str)
(match-string 1 str)))
