Skip to content

Commit

Permalink
Merge pull request #610 from rswgnu/rsw
Browse files Browse the repository at this point in the history
hywiki-maybe-dehighlight-page-name - Exclude char after HyWikiWord
  • Loading branch information
rswgnu authored Nov 17, 2024
2 parents 7ccfb43 + 0b7e746 commit 4b1c74b
Show file tree
Hide file tree
Showing 2 changed files with 4 additions and 3 deletions.
3 changes: 2 additions & 1 deletion ChangeLog
Original file line number Diff line number Diff line change
@@ -1,6 +1,7 @@
2024-11-17 Bob Weiner <[email protected]>

* 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
Expand Down
4 changes: 2 additions & 2 deletions hywiki.el
Original file line number Diff line number Diff line change
Expand Up @@ -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
;;
Expand Down Expand Up @@ -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)))
Expand Down

0 comments on commit 4b1c74b

Please sign in to comment.