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

Reply via email to