Merge: v0.8.10

alphapapa · Nov 7, 2024 · a5650e2 · a5650e2
2 parents b6f8a31 + 9c53c1b
commit a5650e2
Show file tree

Hide file tree

Showing 3 changed files with 159 additions and 134 deletions.
diff --git a/README.org b/README.org
@@ -567,13 +567,18 @@ Simple links may also be written manually in either sexp or non-sexp form, like:
 
 *Fixes*
 + Customization group for face ~org-ql-view-due-date~.
-+ Command ~org-ql-refile~ uses the base buffer when refiling to an indirect buffer.
 + Apply Org syntax font-locking to items in ~org-ql-view~ buffers.
 
 *** helm-org-ql
 
 Tagged v0.6.2, fixing a compilation warning.
 
+** 0.8.10
+
+*Fixes*
++ Command ~org-ql-refile~ uses the base buffer when refiling to an indirect buffer.  ([[https://github.com/alphapapa/org-ql/issues/466][#466]].)
++ Predicate ~link~ could signal an error when searching text that is mistakenly recognized as an Org link (e.g. Bash double-bracket constructs in a source block).  (Thanks to [[https://github.com/jwiegley][John Wiegley]] for reporting.)
+
 ** 0.8.9
 
 *Fixes*

diff --git a/org-ql.el b/org-ql.el
@@ -1626,11 +1626,15 @@ any link is found."
                          (or (null description)
                              (string-match-p description (match-string org-ql-link-description-group)))))
               (_ (if (and description target)
-                     (and (string-match-p target (match-string 1))
-                          (string-match-p description (match-string org-ql-link-description-group)))
-                   (or (string-match-p description-or-target (match-string 1))
-                       (string-match-p description-or-target
-                                       (match-string org-ql-link-description-group)))))))))
+                     (and (and (match-string 1)
+                               (string-match-p target (match-string 1)))
+                          (and (match-string org-ql-link-description-group)
+                               (string-match-p description (match-string org-ql-link-description-group))))
+                   (or (and (match-string 1)
+                            (string-match-p description-or-target (match-string 1)))
+                       (and (match-string org-ql-link-description-group)
+                            (string-match-p description-or-target
+                                            (match-string org-ql-link-description-group))))))))))
 
 (org-ql-defpred (rifle smart) (&rest strings)
   "Return non-nil if each of strings is found in the entry or its outline path.