[elpa] externals/hyperbole 335441d 15/25: Fix that Action Key did not expand collapsed Koutline trees

[Stefan Monnier]

branch: externals/hyperbole
commit 335441dfce09c0f0c928a488e5cf5f2df00bc952
Author: Bob Weiner <Bob.Weiner@DuffandPhelps.com>
Commit: Bob Weiner <Bob.Weiner@DuffandPhelps.com>

    Fix that Action Key did not expand collapsed Koutline trees
---
 Changes           | 11 +++++++++--
 hyperbole.el      | 10 ++++++----
 kotl/kotl-mode.el |  6 ++++--
 3 files changed, 19 insertions(+), 8 deletions(-)

diff --git a/Changes b/Changes
index d0461ed..4570f3e 100644
--- a/Changes
+++ b/Changes
@@ -1,10 +1,17 @@
+2020-07-28  Bob Weiner  <rsw@gnu.org>
+
+* kotl/kotl-mode.el (kotl-mode): Set outline-regexp so outline-on-heading-p and
+    smart-outline-subtree-hidden-p use it and the Action Key expands cells 
properly.
+
+* hyperbole.el (outline-invisible-in-p): Fixed to detect if tree is collapsed 
anywhere.
+
 2020-07-27  Mats Lidell  <matsl@gnu.org>
 
-* hui-dired-sidebar.el: Support for dired-sidebar added.
+* hui-dired-sidebar.el: Added support for dired-sidebar.
 
 2020-07-26  Bob Weiner  <rsw@gnu.org>
 
-* hibtypes.el (hsys-org): Move org links/refs to near top of priority list so 
things
+* hibtypes.el (hsys-org): Moved org links/refs to near top of priority list so 
things
     like URLs embeded within Org links are handled by Org, not Hyperbole.
               (markdown-follow-inline-link-p): Fixed to defer in-file links 
with
     point on the link title to the `pathname' ibtype since
diff --git a/hyperbole.el b/hyperbole.el
index bfbe6a1..8498706 100644
--- a/hyperbole.el
+++ b/hyperbole.el
@@ -594,10 +594,12 @@ If FLAG is nil then text is shown, while if FLAG is t the 
text is hidden."
   (defun outline-invisible-in-p (beg end)
     "Return t if there is an invisible character between BEG and END, else 
nil."
     (catch 'result
-      (delq nil (mapcar (lambda (o)
-                         (if (eq 'outline (overlay-get o 'invisible))
-                             (throw 'result t)))
-                       (overlays-in beg end))))))
+      (let ((p beg))
+       (while (< p end) 
+         (when (eq (get-char-property p 'invisible) 'outline)
+           (throw 'result t))
+         (setq p (1+ p))))
+      nil)))
 
 ;;; ************************************************************************
 ;;; Message System Support Configuration
diff --git a/kotl/kotl-mode.el b/kotl/kotl-mode.el
index 3cf210b..36874b4 100644
--- a/kotl/kotl-mode.el
+++ b/kotl/kotl-mode.el
@@ -16,7 +16,7 @@
 ;;; Other required Lisp Libraries
 ;;; ************************************************************************
 
-(eval-and-compile (mapc #'require '(delsel hsettings hmail kfile kvspec 
kcell)))
+(eval-and-compile (mapc #'require '(delsel hsettings hmail kfile kvspec kcell 
outline)))
 
 ;;; ************************************************************************
 ;;; Public variables
@@ -86,6 +86,7 @@ It provides the following keys:
   (mapc #'make-local-variable
        '(kotl-previous-mode indent-line-function indent-region-function
                             outline-isearch-open-invisible-function
+                            outline-regexp
                             line-move-ignore-invisible minor-mode-alist
                             selective-display-ellipses
                             paragraph-separate paragraph-start))
@@ -102,7 +103,8 @@ It provides the following keys:
                                       minor-mode-alist)
          ;; Remove indication that buffer is narrowed.
          mode-line-format (copy-sequence mode-line-format)
-         mode-line-format (set:remove "%n" mode-line-format)))
+         mode-line-format (set:remove "%n" mode-line-format)
+         outline-regexp (concat " *[0-9][0-9a-z.]*" 
kview:default-label-separator)))
   ;;
   (if (fboundp 'add-to-invisibility-spec)
       (add-to-invisibility-spec '(outline . t)))