[elpa] externals/hyperbole ec0236813f 2/7: Add `help-mode' to `smart-lisp-mode-p' predicate

[ELPA Syncer]

branch: externals/hyperbole
commit ec0236813fe05ca23fbccc37c328c3cfc3ccbf3b
Author: bw <rsw@gnu.org>
Commit: bw <rsw@gnu.org>

    Add `help-mode' to `smart-lisp-mode-p' predicate
---
 ChangeLog   |  6 ++++++
 hibtypes.el | 10 +++++++++-
 2 files changed, 15 insertions(+), 1 deletion(-)

diff --git a/ChangeLog b/ChangeLog
index c5a233db50..42150229d2 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+* hibtypes.el (Info-node): Handle decoding of Info node names in
+    Hyperbole Help buffer lbl-key: lines, eliminating excess underscores.
+
+* hmouse-tag.el (smart-lisp-mode-p): Add 'help-mode', e.g. for output of {C-h 
A}
+    to make Hyperbole cross-references work.
+
 2024-07-07  Bob Weiner  <rsw@gnu.org>
 
 * hibtypes.el (elisp-compiler-msg): Fix to handle both of these cases:
diff --git a/hibtypes.el b/hibtypes.el
index d660bd0945..1d12df73cc 100644
--- a/hibtypes.el
+++ b/hibtypes.el
@@ -3,7 +3,7 @@
 ;; Author:       Bob Weiner
 ;;
 ;; Orig-Date:    19-Sep-91 at 20:45:31
-;; Last-Mod:      7-Jul-24 at 23:38:46 by Bob Weiner
+;; Last-Mod:     14-Jul-24 at 12:11:19 by Bob Weiner
 ;;
 ;; SPDX-License-Identifier: GPL-3.0-or-later
 ;;
@@ -1427,6 +1427,14 @@ Activates only if point is within the first line of the 
Info-node name."
          (node-ref (and (stringp ref)
                         (or (string-match-p "\\`([^\): \t\n\r\f]+)\\'" ref)
                             (string-match-p "\\`([^\): \t\n\r\f]+)[^ :;\"'`]" 
ref))
+                       ;; Below handle decoding of Info node names in
+                       ;; Hyperbole Help buffer lbl-key: lines,
+                       ;; eliminating excess underscores.
+                       (save-excursion
+                         (beginning-of-line)
+                         (when (looking-at "\\s-+lbl-key:\\s-+\"")
+                           (setq ref (ibut:key-to-label ref)))
+                         t)
                         (hpath:is-p ref nil t))))
     (and node-ref
          (ibut:label-set node-ref-and-pos)