[elpa] externals/hyperbole cd8cf0a3e1 1/2: Add Action Key support for Elisp symbols in ERT output lines

[ELPA Syncer]

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

    Add Action Key support for Elisp symbols in ERT output lines
    
    Example line:
           passed   39/219  gbut-program-calls-ebut-program (0.004310 sec)
    
    Also: kotl/kotl-mode.el (kotl-mode-map): Add more tab related bindings
      which orgtbl-mode overloads but were missing from kotl-mode.
---
 ChangeLog          |  8 ++++++++
 FAST-DEMO          |  2 ++
 HY-NEWS            |  3 +++
 Makefile           |  4 ++--
 hibtypes.el        | 20 +++++++++++++++-----
 kotl/kotl-mode.el  |  6 +++++-
 man/hkey-help.txt  |  1 +
 man/hyperbole.texi |  8 +++++---
 8 files changed, 41 insertions(+), 11 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 7d88cf2b44..e6379325c4 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,11 @@
+2022-02-13  Bob Weiner  <rsw@gnu.org>
+
+* hibtypes.el (elisp-compiler-msg): Add Action Key support for Elisp
+    symbols in ERT output lines like:
+       passed   39/219  gbut-program-calls-ebut-program (0.004310 sec)
+
+* kotl/kotl-mode.el (kotl-mode-map): Add more tab related bindings.
+
 2022-02-12  Bob Weiner  <rsw@gnu.org>
 
 * kotl/klink.el (klink:act): Add save-excursion, so point always ends
diff --git a/FAST-DEMO b/FAST-DEMO
index c8b8463a52..c3531b4c3e 100644
--- a/FAST-DEMO
+++ b/FAST-DEMO
@@ -152,6 +152,7 @@
        Use Posix apropos command to list grep-related commands.  Then press 
{M-RET} on
        any lines output to display the man page for the associated command.
 
+
 * Grep Messages, Stack Traces, Man Page Apropos Implicit Buttons
 
   These implicit buttons typically appear in shell buffers.  You issue a shell 
command and
@@ -241,6 +242,7 @@ see the doc on the 'pathname' ibtype, use {C-h f 
ibtypes::pathname RET}.  To
 lean how to create new kinds of implicit button and action types, see:
 "(hyperbole)Creating Types".
 
+
 * Hyperbole Subsystems
 
   Hyperbole includes a number of subsystems that can raise your productivity
diff --git a/HY-NEWS b/HY-NEWS
index 381b5e95a1..0004954972 100644
--- a/HY-NEWS
+++ b/HY-NEWS
@@ -151,6 +151,9 @@
       expandable/collapsible outline from the Koutline in the current buffer.
       See "(hyperbole)Exporting" and the new Koutliner Format submenu.
 
+  *** Org File Importation: Org files may now be imported to a Koutline using
+      {M-x kimport:file RET}.
+
   *** Org Table Support: Org table editing now automatically works in the
       Koutliner via Org table minor mode.  Use {M-x orgtbl-mode RET} to
       toggle this on and off.  A press of the Action Key on a | symbol,
diff --git a/Makefile b/Makefile
index aeeeffc80b..679f2f999f 100644
--- a/Makefile
+++ b/Makefile
@@ -3,7 +3,7 @@
 # Author:       Bob Weiner
 #
 # Orig-Date:    15-Jun-94 at 03:42:38
-# Last-Mod:     12-Feb-22 at 14:03:45 by Bob Weiner
+# Last-Mod:     13-Feb-22 at 10:35:20 by Bob Weiner
 #
 # Copyright (C) 1994-2021  Free Software Foundation, Inc.
 # See the file HY-COPY for license information.
@@ -405,7 +405,7 @@ $(pkg_dir)/hyperbole-$(HYPB_VERSION).tar: $(HYPERBOLE_FILES)
        cd $(pkg_dir) && $(RM) h.tar; \
          mv $(pkg_hyperbole) $(pkg_hyperbole)-$(HYPB_VERSION) && \
          COPYFILE_DISABLE=1 $(TAR) -clf 
$(pkg_dir)/hyperbole-$(HYPB_VERSION).tar hyperbole-$(HYPB_VERSION)
-       $(INSTALL) HY-ABOUT HY-ANNOUNCE HY-NEWS HY-WHY.kotl INSTALL README 
$(pkg_dir)/; chmod 644 $(pkg_dir)/*.tar
+       $(INSTALL) HY-ABOUT HY-ANNOUNCE HY-NEWS HY-WHY.kotl INSTALL README 
README.md README.html $(pkg_dir)/; chmod 644 $(pkg_dir)/*.tar
 
 pkgclean: packageclean
 packageclean:
diff --git a/hibtypes.el b/hibtypes.el
index 7c005497b1..a1d9513696 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:     30-Jan-22 at 16:37:47 by Bob Weiner
+;; Last-Mod:     13-Feb-22 at 11:37:13 by Bob Weiner
 ;;
 ;; Copyright (C) 1991-2021  Free Software Foundation, Inc.
 ;; See the "HY-COPY" file for license information.
@@ -1063,16 +1063,26 @@ This works with JavaScript and Python tracebacks, gdb, 
dbx, and xdb.  Such lines
 ;;; ========================================================================
 
 (defib elisp-compiler-msg ()
-  "Jump to source code for definition associated with an Emacs Lisp 
byte-compiler error message.
-Works when activated anywhere within an error line."
+  "Jump to source code for definition associated with an Emacs Lisp 
byte-compiler error message or ERT test output line.
+Works when activated anywhere within such a line."
   (when (or (member (buffer-name) '("*Compile-Log-Show*" "*Compile-Log*"
                                     "*compilation*"))
             (save-excursion
               (and (re-search-backward "^[^ \t\n\r]" nil t)
                    (looking-at "While compiling"))))
     (let (src buffer-p label)
-      ;; InfoDock and XEmacs
-      (or (and (save-excursion
+      (or
+       ;; Emacs Regression Test (ERT) output lines
+       (save-excursion
+        (forward-line 0)
+        (when (looking-at 
"\\s-+\\(passed\\|failed\\|skipped\\)\\s-+[0-9]+/[0-9]+\\s-+\\(\\S-+\\)\\s-+(")
+           (setq label (match-string-no-properties 2))
+           (ibut:label-set label (match-beginning 2) (match-end 2))
+           ;; Remove prefix generated by actype and ibtype definitions.
+           (setq label (hypb:replace-match-string "[^:]+::" label "" t))
+           (hact 'smart-tags-display label nil)))
+       ;; InfoDock and XEmacs
+       (and (save-excursion
                  (re-search-backward
                   "^Compiling \\(file\\|buffer\\) \\([^ \n]+\\) at "
                   nil t))
diff --git a/kotl/kotl-mode.el b/kotl/kotl-mode.el
index 70f8b7cba3..851d5a23f5 100644
--- a/kotl/kotl-mode.el
+++ b/kotl/kotl-mode.el
@@ -3,7 +3,7 @@
 ;; Author:       Bob Weiner
 ;;
 ;; Orig-Date:    6/30/93
-;; Last-Mod:     12-Feb-22 at 18:19:52 by Bob Weiner
+;; Last-Mod:     13-Feb-22 at 10:08:36 by Bob Weiner
 ;;
 ;; Copyright (C) 1993-2021  Free Software Foundation, Inc.
 ;; See the "../HY-COPY" file for license information.
@@ -3443,8 +3443,12 @@ Leave point at end of line now residing at START."
   ;; Override this global binding for set-selective-display with a similar
   ;; function appropriate for kotl-mode.
   (define-key kotl-mode-map "\C-x$"     'kotl-mode:hide-sublevels)
+  (define-key kotl-mode-map [(tab)]     'kotl-mode:tab-command) ;; TAB
   (define-key kotl-mode-map "\C-i"      'kotl-mode:tab-command) ;; TAB
+  (define-key kotl-mode-map [(shift tab)] 'kotl-mode:untab-command) ;; 
Shift-TAB
+  (define-key kotl-mode-map [S-iso-lefttab] 'kotl-mode:untab-command) ;; 
Shift-TAB
   (define-key kotl-mode-map [backtab]   'kotl-mode:untab-command) ;; Shift-TAB
+  (define-key kotl-mode-map [(meta tab)] 'kotl-mode:untab-command) ;; M-TAB
   (define-key kotl-mode-map "\M-\C-i"   'kotl-mode:untab-command) ;; M-TAB
   (define-key kotl-mode-map "\C-c\C-i"  
'kotl-mode:set-or-remove-cell-attribute)
   (define-key kotl-mode-map "\C-j"      'kotl-mode:add-cell)
diff --git a/man/hkey-help.txt b/man/hkey-help.txt
index 80c20c7cc2..460d59794b 100644
--- a/man/hkey-help.txt
+++ b/man/hkey-help.txt
@@ -92,6 +92,7 @@ Hyperbole Key Press/Click in Special Modes
   Any Known Lisp or ChangeLog   Jumps to identifier def    Referent Doc
   Fortran Mode                  Jumps to identifier def    Jumps to next def
   Emacs Lisp Compiler Error     Jumps to def with error    <- same
+  Emacs Regression Test (ERT)   Jumps to def with error    <- same
   Other Compiler Error          Jumps to src error line    <- same
   Grep or Occur Match           Jumps to match source line <- same
   Multi-buffer Occur Match      Jumps to match source line <- same
diff --git a/man/hyperbole.texi b/man/hyperbole.texi
index 5bcfdceed4..02559a7b9d 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:     12-Feb-22 at 18:11:31 by Bob Weiner
+@c Last-Mod:     13-Feb-22 at 11:38:53 by Bob Weiner
 
 @c %**start of header (This is for running Texinfo on a region.)
 @setfilename hyperbole.info
@@ -2257,9 +2257,11 @@ program.  Patch applies diffs to source code.
 @cindex byte compiler error
 @cindex Emacs Lisp compiler error
 @cindex compiler error
+@cindex Emacs Regression Test (ERT) symbol
 @item elisp-compiler-msg
-Jump to the source code for a definition associated with an Emacs Lisp
-byte-compiler error message.  This works anywhere within an error line.
+Jump to source code for definition associated with an Emacs Lisp
+byte-compiler error message or ERT test output line.  Works when
+activated anywhere within such a line.
 
 @findex ibtypes debugger-source
 @cindex gdb