branch: externals/hyperbole
commit af5baa21e3a554e0aeed70efa7b37c997b9a9998
Author: bw <[email protected]>
Commit: bw <[email protected]>
hkey-alist - Fix point comparison bug in hui-select-thing/sexp
hywiki-get-existing-page-file, hpath:expand - Fix to not expand
HyWikiWord spec value of 't' when given.
hywiki--extend-region - Fix so start is always <= end.
---
ChangeLog | 15 +++++++++++++++
hpath.el | 4 ++--
hywiki.el | 6 ++++--
3 files changed, 21 insertions(+), 4 deletions(-)
diff --git a/ChangeLog b/ChangeLog
index 5f54007b877..7e6f1caf115 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,11 @@
+2026-07-07 Bob Weiner <[email protected]>
+
+* hui-mouse.el (hkey-alist): Trigger 'hui-select-thing' or
'hui-select-mark-delimited-sexp'
+ if (point) >= any hbut end point, not just equal to it, as before. This
was causing
+ a failure to trigger when a HyWikiWord came right before a closing double
quote that
+ point was on, so the double quoted string was not selected and the
HyWikiWord was
+ activated instead.
+
2026-07-06 Bob Weiner <[email protected]>
* man/hyperbole.texi (HyWiki): Finish HyWiki manual chapter.
@@ -5,6 +13,13 @@
Elpa Stable given long full release cycles.
(Installation): Add optional (hywiki-mode :all) config.
+* hywiki.el (hywiki--extend-region): Fix so start is always <= end.
+
+ (hywiki-get-existing-page-file): Handle 't' value as
'file-stem-name'
+ from a HyWikiWord spec.
+ hpath.el (hpath:expand): Ensure path value is a string before trying to
expand
+ to handle HyWikiWord specs.
+
2026-07-04 Bob Weiner <[email protected]>
* hycontrol.el (hycontrol-frame-zoom-reset): Handle 'frame not zoomed'
diff --git a/hpath.el b/hpath.el
index b8bfb35e8a5..7c63fa43cf0 100644
--- a/hpath.el
+++ b/hpath.el
@@ -3,7 +3,7 @@
;; Author: Bob Weiner
;;
;; Orig-Date: 1-Nov-91 at 00:44:23
-;; Last-Mod: 28-Jun-26 at 16:52:07 by Bob Weiner
+;; Last-Mod: 5-Jul-26 at 13:09:03 by Bob Weiner
;;
;; SPDX-License-Identifier: GPL-3.0-or-later
;;
@@ -1295,7 +1295,7 @@ original path."
((and (null (file-name-directory substituted-path))
;; Could be an existing HyWikiWord
(let ((page-file (cdr (hywiki-get-referent
substituted-path))))
- (when page-file
+ (when (stringp page-file)
(setq substituted-path (expand-file-name page-file
hywiki-directory))))))
(t (expand-file-name substituted-path))))
(if exists-flag
diff --git a/hywiki.el b/hywiki.el
index 97a1d019c28..8f64e9aa480 100644
--- a/hywiki.el
+++ b/hywiki.el
@@ -3085,7 +3085,9 @@ FILE-STEM-NAME should not contain a directory and may
have or may omit
Checks only that FILE-STEM-NAME is not nil, not an empty string and does
not contain a directory path or returns nil."
(make-directory hywiki-directory t)
- (unless (or (null file-stem-name) (string-empty-p file-stem-name)
+ (unless (or (null file-stem-name)
+ (eq file-stem-name t) ;; HyWikiWord spec
+ (string-empty-p file-stem-name)
(file-name-directory file-stem-name))
(let (file-name
referent
@@ -4643,7 +4645,7 @@ delimiters."
(skip-chars-backward " \t\n\r")
(skip-syntax-forward "w")
(setq end (point)))
- (setq result (list start end)))
+ (setq result (list (min start end) (max start end))))
result))
(defun hywiki--get-all-references (function &optional start end)
