branch: externals/hyperbole
commit 0b7e746665ec7a0f297d8465f8b447f4a107f6fa
Author: bw <r...@gnu.org>
Commit: bw <r...@gnu.org>
hywiki-maybe-dehighlight-page-name - Exclude char after HyWikiWord
---
ChangeLog | 3 ++-
hywiki.el | 4 ++--
2 files changed, 4 insertions(+), 3 deletions(-)
diff --git a/ChangeLog b/ChangeLog
index b2a7db01f2..788ec03965 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,6 +1,7 @@
2024-11-17 Bob Weiner <r...@gnu.org>
-* hywiki.el (hywiki-word-at): Fix to exclude any char after the HyWikiWord, if
any.
+* hywiki.el (hywiki-word-at, hywiki-maybe-dehighlight-page-name): Fix to
exclude
+ any char after the HyWikiWord, if any.
* hproperty.el (hproperty:but-get-all-in-region): Return only overlays that
still
point to some buffer (may have overlay references that have been deleted
and point
diff --git a/hywiki.el b/hywiki.el
index 1eb570ef5c..6f6e232ce8 100644
--- a/hywiki.el
+++ b/hywiki.el
@@ -3,7 +3,7 @@
;; Author: Bob Weiner
;;
;; Orig-Date: 21-Apr-24 at 22:41:13
-;; Last-Mod: 17-Nov-24 at 10:27:44 by Bob Weiner
+;; Last-Mod: 17-Nov-24 at 15:56:48 by Bob Weiner
;;
;; SPDX-License-Identifier: GPL-3.0-or-later
;;
@@ -1188,7 +1188,7 @@ If in a programming mode, must be within a comment. Use
(progn
(setq hywiki--page-name (match-string-no-properties 1)
hywiki--start (match-beginning 0)
- hywiki--end (1- (match-end 0)))
+ hywiki--end (match-beginning 3))
(and (hywiki-get-page hywiki--page-name)
;; Ignore wikiwords preceded by any non-whitespace
character
;; (or (bolp) (memq (preceding-char) '(?\ ?\t)))
