diff options
| -rw-r--r-- | xapian/xapian.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/xapian/xapian.scm b/xapian/xapian.scm index 6f6a4f2..80b4b9b 100644 --- a/xapian/xapian.scm +++ b/xapian/xapian.scm @@ -303,11 +303,11 @@ function." (append-map (match-lambda ;; Apply highlight-proc if highlit text. (('b text) - (highlight-proc text)) + (list (highlight-proc text))) ;; Add (br) if end of line. ((? (cut string-suffix? "\n" <>) text) (list (string-trim-right text #\newline) '(br))) ;; Else, return verbatim. - (text text)) + (text (list text))) children)))) |