branch: externals/hyperbole
commit ec0236813fe05ca23fbccc37c328c3cfc3ccbf3b
Author: bw <r...@gnu.org>
Commit: bw <r...@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 <r...@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)
