[elpa] externals/hyperbole 7a55b745f1 3/5: Fix small issues in ibtype texinfo-ref and actype link-to-elisp-doc

[ELPA Syncer]

branch: externals/hyperbole
commit 7a55b745f1124afb4f82aa84a08eb03562818e9b
Author: Robert Weiner <rsw@gnu.org>
Commit: Robert Weiner <rsw@gnu.org>

    Fix small issues in ibtype texinfo-ref and actype link-to-elisp-doc
---
 ChangeLog   | 5 +++++
 hactypes.el | 2 +-
 hibtypes.el | 2 +-
 hpath.el    | 7 ++++---
 4 files changed, 11 insertions(+), 5 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 33b57c2f3e..a9b05e4f1e 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -9,6 +9,11 @@
 * test/MANIFEST         - Add summary of Hyperbole test case files
   install-test/MANIFEST - Add summary of Hyperbole installation test files
 
+* hibtypes.el (texinfo-ref): Add missing quoting in front of symbol in this 
line:
+    (hact 'link-to-elisp-doc `',symbol)
+  hactypes.el (link-to-elisp-doc): Fix to properly use hpath:display-where 
setting
+    to display symbol documentation.
+
 2022-01-16  Bob Weiner  <rsw@gnu.org>
 
 * EXAMPLE.kotl: Add section on Org table-handling support.
diff --git a/hactypes.el b/hactypes.el
index 3a63afb727..7faca6f0a5 100644
--- a/hactypes.el
+++ b/hactypes.el
@@ -321,7 +321,7 @@ Interactively, KEY-FILE defaults to the current buffer's 
file name."
        ((not (or (boundp symbol) (fboundp symbol)))
         (hypb:error "(link-to-elisp-doc): `%s' not defined" symbol))
        (t (let ((temp-buffer-show-function 'switch-to-buffer))
-            (hpath:display-buffer (current-buffer))
+            (hpath:display-buffer (help-buffer))
             (describe-symbol symbol)))))
 
 (defact link-to-file (path &optional point)
diff --git a/hibtypes.el b/hibtypes.el
index 0516f8b882..69d214b42c 100644
--- a/hibtypes.el
+++ b/hibtypes.el
@@ -1161,7 +1161,7 @@ For @code, @findex, @var and @vindex references, the 
associated documentation st
                (when (and symbol (pcase type-str
                                    ((or "code" "findex") (fboundp symbol))
                                    ((or "var" "vindex") (boundp symbol))))
-                 (hact 'link-to-elisp-doc symbol))))
+                 (hact 'link-to-elisp-doc `',symbol))))
             ;; If at an @node and point is within a node name reference
             ;; other than the current node, display it.
             ((save-excursion
diff --git a/hpath.el b/hpath.el
index 2ff4d09465..ebbd0c286f 100644
--- a/hpath.el
+++ b/hpath.el
@@ -2063,9 +2063,10 @@ be integrated, otherwise the filename is appended as a 
double-quoted argument."
 (defun hpath:display-where-function (display-where display-where-alist)
   "Return the function to display a Hyperbole buffer or path using symbol 
DISPLAY-WHERE or if null, `hpath:display-where'.
 DISPLAY-WHERE-ALIST is a lookup table mapping from DISPLAY-WHERE values to 
associated functions."
-  (unless display-where (setq display-where hpath:display-where))
-  (car (cdr (or (assq display-where display-where-alist)
-               (assq 'other-window display-where-alist)))))
+  (unless display-where
+    (setq display-where hpath:display-where))
+  (cadr (or (assq display-where display-where-alist)
+           (assq 'other-window display-where-alist))))
 
 (defun hpath:remote-available-p ()
   "Return non-nil if a remote file access package is available, nil otherwise.