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