branch: externals/hyperbole
commit 53f757ce033c31bb40fcbcc2db93e845fe241049
Author: bw <r...@gnu.org>
Commit: bw <r...@gnu.org>
hywiki.el (hywiki-maybe-at-wikiword-beginning): Handle opening [
---
ChangeLog | 3 +++
hywiki.el | 4 ++--
2 files changed, 5 insertions(+), 2 deletions(-)
diff --git a/ChangeLog b/ChangeLog
index 8c2e3a632c..8c5a236c28 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,8 @@
2024-08-18 Bob Weiner <r...@gnu.org>
+* hywiki.el (hywiki-maybe-at-wikiword-beginning): Fix to handle word
+ preceded by a single square bracket.
+
* hibtypes.el (hywiki-existing-word): Add this new ibtype to match to
HyWikiWords with an existing page at a higher priority than those
without an existing page, so can be handled separately. Must be
diff --git a/hywiki.el b/hywiki.el
index 4922110511..1d58c2ed91 100644
--- a/hywiki.el
+++ b/hywiki.el
@@ -658,8 +658,8 @@ per file to the absolute value of MAX-MATCHES, if given and
not 0. If
Does not test whether or not a page exists for the HyWiki word.
Use `hywiki-get-page' to determine whether a HyWiki page exists."
;; Ignore wikiwords preceded by any non-whitespace character, except
- ;; any of these: ({<"'`'
- (when (or (bolp) (cl-find (char-before) "\(\{\<\"'`\t\n\r\f "))
+ ;; any of these: [({<"'`'
+ (when (or (bolp) (cl-find (char-before) "\[\(\{\<\"'`\t\n\r\f "))
t))
(defun hywiki-word-activate (&optional arg)
