[elpa] externals/hyperbole 6d8c184c2a 1/6: Smart Lisp Tags: support for "*Warnings*", "*Flymake log*", etc.

[ELPA Syncer]

branch: externals/hyperbole
commit 6d8c184c2a9d84932f92b0462710ee4b44ff0333
Author: Bob Weiner <rsw@gnu.org>
Commit: Bob Weiner <rsw@gnu.org>

    Smart Lisp Tags: support for "*Warnings*", "*Flymake log*", etc.
---
 ChangeLog          |  8 ++++----
 hibtypes.el        | 21 +++++++++++----------
 hmouse-tag.el      |  5 +++--
 hypb.el            |  3 ++-
 man/hyperbole.texi |  7 ++++---
 5 files changed, 24 insertions(+), 20 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 1566bd35e7..4ad422b3dd 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -34,7 +34,7 @@
 2023-04-09  Bob Weiner  <rsw@gnu.org>
 
 * kotl/kimport.el (kimport:initialize): Change test from 'kview:is-p'
-    to 'kfile-is-p' as view may get set before file is fully formatted.
+    to 'kfile:is-p' as view may get set before file is fully formatted.
                   (kimport:aug-post-statements, kimport:star-entries):
     Remove (goto-char start) after each entry is imported as this was
     causing a duplicate at the end of the import.
@@ -59,7 +59,6 @@
     packages are installed.
 
 * hbut.el (gbut:ebut-key-list, hbut:ebut-key-list): Move 'save-restriction'
-
     before call to 'hbdata:to-entry-ref' to capture all restriction
     changes.  Fixes a bug that could leave the in-buffer hbdata separator
     exposed.
@@ -83,7 +82,8 @@
 
 * FAST-DEMO: Add EmacsConf 2022 videos.
 
-* hmouse-tag.el (smart-emacs-lisp-mode-p): Add support for "*Warnings*",
+* man/hyperbole.texi (Smart Key - Lisp Source Code):
+  hmouse-tag.el (smart-emacs-lisp-mode-p): Add support for "*Warnings*",
     "*Flymake log*" and "*Flymake diagnostics..." buffers.
 
 * hui-mini.el (hui:menu-rolo): Make HyRolo menu a customizable list
@@ -1227,7 +1227,7 @@
 
 * hbut.el (ibut:create): Add 'dir' key parameter and set as hbut:current
     attribute.  Remove '(or args)' as that was preventing set of
- hbut:current attributes.
+    hbut:current attributes.
 
 2022-07-21  Mats Lidell  <matsl@gnu.org>
 
diff --git a/hibtypes.el b/hibtypes.el
index e82929f660..6763e0878b 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:     27-Mar-23 at 23:35:16 by Bob Weiner
+;; Last-Mod:     16-Apr-23 at 23:56:47 by Bob Weiner
 ;;
 ;; SPDX-License-Identifier: GPL-3.0-or-later
 ;;
@@ -363,15 +363,16 @@ in all buffers."
   "Follow an Org link in a non-Org mode buffer.
 This should be a very low priority so other Hyperbole types
 handle any links they recognize first."
-  (when (and (eq hsys-org-enable-smart-keys t)
-            (not (funcall hsys-org-mode-function))
-            ;; Prevent infinite recursion if ever called via 
org-metareturn-hook
-            ;; from org-meta-return invocation.
-            (not (hyperb:stack-frame '(ibtypes::debugger-source 
org-meta-return))))
-    (let ((start-end (hsys-org-link-at-p)))
-      (when start-end
-        (hsys-org-set-ibut-label start-end)
-        (hact 'org-open-at-point-global)))))
+  (with-no-warnings
+    (when (and (eq hsys-org-enable-smart-keys t)
+              (not (funcall hsys-org-mode-function))
+              ;; Prevent infinite recursion if ever called via 
org-metareturn-hook
+              ;; from org-meta-return invocation.
+              (not (hyperb:stack-frame '(ibtypes::debugger-source 
org-meta-return))))
+      (let ((start-end (hsys-org-link-at-p)))
+       (when start-end
+          (hsys-org-set-ibut-label start-end)
+          (hact 'org-open-at-point-global))))))
 
 ;;; ========================================================================
 ;;; Handles internal references within an annotated bibliography, delimiters=[]
diff --git a/hmouse-tag.el b/hmouse-tag.el
index 492cda3e28..7bf6557c6c 100644
--- a/hmouse-tag.el
+++ b/hmouse-tag.el
@@ -3,7 +3,7 @@
 ;; Author:       Bob Weiner
 ;;
 ;; Orig-Date:    24-Aug-91
-;; Last-Mod:      8-Apr-23 at 20:34:35 by Bob Weiner
+;; Last-Mod:     22-Apr-23 at 18:52:52 by Bob Weiner
 ;;
 ;; SPDX-License-Identifier: GPL-3.0-or-later
 ;;
@@ -386,7 +386,8 @@ If:
 (defun smart-emacs-lisp-mode-p ()
   "Return t if in a mode which uses Emacs Lisp symbols."
   ;; Beyond Lisp files, Emacs Lisp symbols appear frequently in Byte-Compiled
-  ;; buffers, debugger buffers, program ChangeLog buffers, and Help buffers.
+  ;; buffers, debugger buffers, program ChangeLog buffers, Help buffers,
+  ;; *Warnings*, *Flymake log* and *Flymake diagnostics... buffers.
   (or (memq major-mode #'(emacs-lisp-mode lisp-interaction-mode debugger-mode))
       (string-match (concat "\\`\\*\\(Warnings\\|Flymake 
log\\|Compile-Log\\(-Show\\)?\\)\\*"
                            "\\|\\`\\*Flymake diagnostics")
diff --git a/hypb.el b/hypb.el
index f52b2f1eff..24c0035d8e 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:     28-Mar-23 at 00:02:25 by Bob Weiner
+;; Last-Mod:     19-Apr-23 at 22:27:32 by Bob Weiner
 ;;
 ;; SPDX-License-Identifier: GPL-3.0-or-later
 ;;
@@ -1032,6 +1032,7 @@ Without file, the banner is prepended to the current 
buffer."
        (button-put button 'keymap hypb:hyperbole-banner-keymap)))))
 
 (defun hypb:locate-pathnames ()
+  "Return a space-separated string of pathnames in a *Locate* buffer."
   (save-excursion
     (goto-char (point-min))
     (search-forward "\n" nil t 3)
diff --git a/man/hyperbole.texi b/man/hyperbole.texi
index 14648f374c..e9151661f6 100644
--- a/man/hyperbole.texi
+++ b/man/hyperbole.texi
@@ -7,7 +7,7 @@
 @c Author:       Bob Weiner
 @c
 @c Orig-Date:     6-Nov-91 at 11:18:03
-@c Last-Mod:     10-Apr-23 at 18:41:25 by Bob Weiner
+@c Last-Mod:     22-Apr-23 at 18:54:55 by Bob Weiner
 
 @c %**start of header (This is for running Texinfo on a region.)
 @setfilename hyperbole.info
@@ -10192,8 +10192,9 @@ When pressed within an assembly source code file:
 @cindex lisp identifier
 @cindex elisp identifier
 When pressed on a Lisp symbol within any of these types of buffers
-(Lisp code, debugger, compilation, or help) or in change-log-mode
-on an Emacs Lisp bound identifier:
+(Lisp code, debugger, compilation, *Warnings*, *Flymake log* and *Flymake
+diagnostics, help or change-log-mode buffers) on an Emacs Lisp bound
+identifier:
   ACTION KEY
      Jumps to the definition of any selected Lisp construct.  This includes
      Hyperbole implicit button type and action type references.  If on an