branch: externals/hyperbole
commit 645103671e135f210c2d2179bb51c0321d05aa31
Author: bw <r...@gnu.org>
Commit: bw <r...@gnu.org>
hypb:in-string-p - Fix final and condition
---
ChangeLog | 3 +++
hypb.el | 7 ++++---
2 files changed, 7 insertions(+), 3 deletions(-)
diff --git a/ChangeLog b/ChangeLog
index 129fad4b51..fe6dbd63b9 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,8 @@
2025-06-21 Bob Weiner <r...@gnu.org>
+* hypb.el (hypb:in-string-p): Fix final and condition so does not fail when
point
+ is not 1 character after bol.
+
* kotl/klink.el (klink:create): Rewrite to set missing klink yank handler on
any newly created klink.
(klink:yank-handler): Fix by making first group optional rather
diff --git a/hypb.el b/hypb.el
index 9e151e82f1..e8a09ceb51 100644
--- a/hypb.el
+++ b/hypb.el
@@ -3,7 +3,7 @@
;; Author: Bob Weiner
;;
;; Orig-Date: 6-Oct-91 at 03:42:38
-;; Last-Mod: 20-Jun-25 at 17:53:08 by Bob Weiner
+;; Last-Mod: 21-Jun-25 at 13:54:25 by Bob Weiner
;;
;; SPDX-License-Identifier: GPL-3.0-or-later
;;
@@ -763,8 +763,9 @@ Quoting conventions recognized are:
;; Move back one char in case point is on a
;; closing delimiter char to ensure it is not
;; backslash quoted and so the right delimiter is matched.
- (unless (= (1- (point)) (line-beginning-position))
- (goto-char (1- (point))))
+ (if (/= (1- (point)) (line-beginning-position))
+ (goto-char (1- (point)))
+ t)
(re-search-forward close-regexp nil t)
(if range-flag
(progn
