[elpa] externals/hyperbole 7eae539 05/25: (hui:ibut-label-create): Skip back past opening delimiter

[Stefan Monnier]

branch: externals/hyperbole
commit 7eae5391efd76a058579bdb421288370ea9db888
Author: Bob Weiner <Bob.Weiner@DuffandPhelps.com>
Commit: Bob Weiner <Bob.Weiner@DuffandPhelps.com>

    (hui:ibut-label-create): Skip back past opening delimiter
---
 Changes | 5 +++++
 hui.el  | 5 ++++-
 2 files changed, 9 insertions(+), 1 deletion(-)

diff --git a/Changes b/Changes
index 4c85148..d4d97a5 100644
--- a/Changes
+++ b/Changes
@@ -1,3 +1,8 @@
+2020-07-23  Bob Weiner  <rsw@gnu.org>
+
+* hui.el (hui:ibut-label-create): Fixed to skip back past opening delimiter
+    before adding new label.
+
 2020-07-22  Bob Weiner  <rsw@gnu.org>
 
 * hsys-org.el (org-mode): Added support for global Org link activation
diff --git a/hui.el b/hui.el
index ef8edfe..2d048ce 100644
--- a/hui.el
+++ b/hui.el
@@ -634,7 +634,10 @@ its buttons, the label is simply inserted at point."
          (ibut
           (save-excursion
             (when ibut-start
-              (goto-char ibut-start))
+              (goto-char ibut-start)
+              ;; Skip over any non-whitespace or symbol chars to move
+              ;; back past any opening delimiter
+              (skip-syntax-backward "^-_"))
             (save-excursion
               ;; Check if ibut has an existing preceding label
               (skip-chars-backward "][:=<>a-zA-Z0-9#@!$%^&* -")